turtles-own
' U: b( m8 C; F) }6 F* Cto setup$ y% A) }9 y$ h2 G2 }& J9 f& V
clear-all
; c, y N2 w% F7 W3 d, l# F; L create-turtles 100
* R8 x/ ^# | O1 [' u ask turtles [setxy random-xcor random-ycor]
* e' b7 H0 g: w- q! ]7 m3 V end1 J9 d2 z3 v4 @ a. ~& u
: ?% `0 R9 O$ c( ]4 Y8 n
to go# s, i$ P* R/ } f" S0 w# w7 u: D
ask turtles
" s% O" B! P; f1 r% k/ T. @7 u [ right random 360 forward 1]) V. h- w- R* q i3 H& n: D
run-a-turtle
, q) G* p3 T! }- ^1 u' Vend
, x4 K: t- O8 f# i5 W
0 {7 f6 x" I3 zto run-a-turtle
3 w+ X: w1 d+ p ask turtle i [set color red & X9 q. @* Q6 V- L, D7 Q
set i i + 1 ]" u% z% F- f; T& I5 _5 n
ifelse i >= 99 [stop]5 T$ l3 b: K( c$ w) j
[run-a-turtle]7 k& ?4 p) V2 s2 T$ D+ ^. B& S
end+ h* k( H2 X; ?
我这个程序就是运行不起，我想随机create100个turtles，然后，让turtles一个一个的变红，这里我用了一个循环，而且一个一个叫turtle变红，我就是用的ask turtle i./ U5 ^$ K7 v( ]3 t+ s% K5 h: u% q) }
最近我都在自己学这个语言，有很多不精的地方，这个程序就是通不过，谁能帮忙看看啊，万分感谢！！！！！ |
发表于 2008-7-29 21:19:36
楼主