turtles-own
. H* g! l7 C8 X. t4 a1 p+ @. xto setup8 x) D4 ^% H- P
clear-all' ]: ^, R) I( o# T
create-turtles 100
$ t( J" O9 R! T; x3 v ask turtles [setxy random-xcor random-ycor]) w% X6 }0 `* L. o/ ^8 X9 R# E
end/ R/ G5 q) z2 _7 w5 M" x, z" z
. \1 P5 l7 N3 K, Bto go
$ C6 a- j& h7 n7 ?- m; l1 s7 K- b ask turtles1 [ S. g$ t4 f/ t
[ right random 360 forward 1]% o( I: R) ?' i
run-a-turtle4 T2 X) f0 e @
end
4 q x) \1 M t- N# U3 y- Q
+ n5 h2 s: i3 `( \/ eto run-a-turtle
3 L4 L4 |9 z6 Y- N, F ask turtle i [set color red
- X1 L3 D+ t& H3 P2 }, c0 G/ | set i i + 1 ]
2 N+ B- _- ~3 b, |6 U6 r, D0 k ifelse i >= 99 [stop], L/ Y$ P% k! X% c
[run-a-turtle]
* C/ ]9 u- T" K1 O2 wend
* ]' p$ S( \" k: |9 v* d1 [ 我这个程序就是运行不起,我想随机create100个turtles,然后,让turtles一个一个的变红,这里我用了一个循环,而且一个一个叫turtle变红,我就是用的ask turtle i.
0 O2 h% }; X e9 v! M6 p. V最近我都在自己学这个语言,有很多不精的地方,这个程序就是通不过,谁能帮忙看看啊,万分感谢!!!!! |