loop有吧: @4 N. K- r" a% w% C4 [# O8 j
loop ; q' P( P0 x; c, o: {2 `6 ~ s- k& v6 x% Cloop [ commands ] 3 Y* V8 a9 J2 RRuns the list of commands forever, or until the current procedure exits through use of the stop 6 q, _0 U* G0 }* R/ j3 Acommand or the report command. ; J6 O; Q4 X6 ~Note: In most circumstances, you should use a forever button in order to repeat something forever.' q/ C/ j- g5 C3 F! m
The advantage of using a forever button is that the user can click the button to stop the loop7 M9 @/ e" `7 b9 `8 a0 S
0 _3 U3 L# o6 I
（version 3.1.3） 4 U( _! V! {5 M! p p不过好像不大推荐
globals[p ]% m4 X: s9 v, m: ]+ a, B
to setup " z. Q6 O0 @4 y set p 1: g: \0 E. I5 ]5 m' ?* K) F$ M
set p p + 1- S4 A% t" W0 O/ O
show p3 w/ B d1 G( F5 l1 w6 b3 B
end ! o3 y, k" G- L. f3 m我想表达的是让这个循环一直下去，直到p=100时才停止，logo语言该怎么写呢？除了repeat，可否用其它原语表示。 8 ^4 P, m7 ~2 l$ V5 G3 I, p: B. G! ^/ s0 C$ b% Q$ A. i. J
[ 本帖最后由 wjcpcahu 于 2008-4-11 10:25 编辑 ]
globals[p ml ]. p) _ B7 x! ~1 O- P" C, s# ~' C
to setup6 }2 f) u+ ]) r) d6 u
set ml n-values 200 [ifelse-value (random-float 1 < 0.3 ) [0] [1] ] & K; y" r; r( [8 N$ p0 a) _, d. Eset ml filter [ ? = 1] ml+ d- ~- A+ E6 W% h; x: I0 d
set p 14 y& W. e. b8 H9 j
repeat length ml [ set p p + 1]7 n c) J7 X4 n4 ~- j
if p > 100[stop]: I# W* a% {. g2 H1 x
show p R% M7 k. k3 t. |end 6 c) u( B7 R, g3 R2 J) S' R/ y- h7 M" c! P
像这种简单的迭代加和还可以，但如果牵涉到多变量的迭代加和，不知道该怎么表达。还有，如果想取出运行中每个阶段的值而不仅仅是终值，该怎么取呢？ 7 S8 V L) Z0 b& S& B5 h! P5 _8 ]9 V% r( o$ F' H
[ 本帖最后由 wjcpcahu 于 2008-4-11 11:25 编辑 ]
发表于 2008-4-10 17:04:15
楼主
什么都不说了，都在程序里了。