LOGO编程学习.docVIP

LOGO 编程学习 cs for i 3 15 [repeat :i [setpc :i fd :i*5 rt 360/:i wait 50]] ? for i 1 16 [setpc :i-1 stampoval :i*10 :i*10] ? cs for i 1 16 [setpc :i-1 setw :i stampoval :i*10 :i*10] ? cs for i 1 16 [setpc :i-1 setw :i stampoval :i*15 :i*15] ? to circle repeat 360 [fd 1 rt 1] end CIRCLE defined. ? run circle 过程RUN needs a list as its first input. ? ? draw ? to ppoo TELL [0 1 2 3 4 5 6 7] PENDOWN ST EACH [SETH 45 * WHO SETPC WHO FD 30] end PPOO redefined. ? run ppoo 过程RUN needs a list as its first input. ? BACKGROUND (BG) 画随机分布点 PC Logo 4.0 简体中文版　版本