|
马上注册,结交更多同行朋友,交流,分享,学习。
您需要 登录 才可以下载或查看,没有帐号?注册
x
刚开始学习GRIP语言,请大家看看这个程序怎么回事,能编译通过,但没有达到预期的效果,本来想让第三象限的点变红,但运行后不是这样
ENTITY/pt(100)
NUMBER/a(200,3),i,NUM
i=1
L10:
IDENT/'pick point',pt,CNT,NUM,resp
JUMP/L10:,trm:,,resp
a(i,1..3)=&point(pt(i))
DO/L20:,i,1,NUM
L20:
IF/a(i,1)<0 and a(i,2)<0
&color(pt(i))=&red
trm:
HALT |
|