Một Số Hình ảnh đẹp Do Mswlogo Tạo Ra. - Em Yêu Tin Học

Có thể bạn quan tâm

Giới thiệu với các bạn một số hình vẽ đẹp được tạo bởi Mswlogo

TO a

cs SETACTIVEAREA [-150 -250 350 250] Setpc [255 0 255] MAKE “append “FALSE

setpensize [200 200] repeat 36 [ fd 20 rt 10 (GIFSAVE “01.gif 0 :append 0) MAKE “append “TRUE]

END

To b

SETACTIVEAREA [-250 -250 250 250] MAKE “append “FALSE PENNORMAL CS

For [i -1 15] [

repeat 720 [fd power 1.2 :i rt repcount] (GIFSAVE “02.gif 0 :append 0) MAKE “append “TRUE lt 45]

End

To c

cs SETACTIVEAREA [-190 -190 150 150] MAKE “append “FALSE

repeat 100 [ repeat 34 [fd 12 rt 10] (GIFSAVE “03.gif 0 :append 0) MAKE “append “TRUE rt 90]

PENNORMAL

End

Repeat 4 [repeat 30 [lt 90 fd 4 rt 90 fd 4] rt 90]

Repeat 4 [repeat 20 [lt 160 fd 20 rt 160 fd 20] rt 90]

repeat 8 [repeat 20 [lt 170 fd 20 rt 170 fd 20] rt 45]

for [i 0 220 sin :i/1000] [fd :i bk :i rt 51]

for [i 100 10 -5] [repeat 5 [repeat 6 [fd :i lt 72] lt 144]]

for [i 100 10 -10] [repeat 5 [repeat 5 [fd :i lt 72] lt 72]]

repeat 2000 [pu home seth random 361 fd 40 pd fd random 200]

To d

cs SETSCREENCOLOR [0 0 0] SETPENCOLOR [0 255 0] SETACTIVEAREA [-200 -200 200 200] MAKE “append “FALSE

For [t 0 180] [seth :t fd 200 * sin :t*7 home (GIFSAVE “04.gif 0 :append 0) MAKE “append “TRUE] End

4.1 133 votes Đánh giá bài viết