turtles-own
3 T0 L4 s5 c) k; R0 @to setup, X: D* V, m) V5 y% u9 d0 f4 [
clear-all
* j1 |/ m! l1 j0 l$ N create-turtles 1000 t, L" d# j( H, Q, Y( Z: V, l
ask turtles [setxy random-xcor random-ycor]
* A; ^3 E* x* \ ?8 V! `, ~$ J( u6 k end) e1 x' h* S, n" y7 r) Z/ o
- @1 r4 C% m8 y( i& A; Ato go
' B& |+ j6 |" t- q ? ask turtles
) A/ U2 D! U0 W4 ^7 O W [ right random 360 forward 1]' e( _0 M6 V3 m" m7 h5 }
run-a-turtle {1 m6 I9 G, D
end
( r; P+ M( y5 @! V4 O1 g, W% T0 J7 n4 @
; F" b8 w. Z" B4 Wto run-a-turtle
: I/ K7 U, D7 M/ j) u( {" W ask turtle i [set color red : B6 d, Y! z1 u) T- p3 h2 F2 N
set i i + 1 ]8 ?5 K) I* L6 L% Y1 ^! K
ifelse i >= 99 [stop]
9 J K) g, W7 v* p! m3 Y$ H! T0 \ [run-a-turtle]
$ [0 y3 @5 o, q& o9 b6 ]5 pend4 R4 T, y2 f) R# e" l, _' ?$ j+ E- h
我这个程序就是运行不起，我想随机create100个turtles，然后，让turtles一个一个的变红，这里我用了一个循环，而且一个一个叫turtle变红，我就是用的ask turtle i.
$ l5 u+ T" f: F% [最近我都在自己学这个语言，有很多不精的地方，这个程序就是通不过，谁能帮忙看看啊，万分感谢！！！！！ |
发表于 2008-7-29 21:19:36
楼主