iCAx开思工具箱

标题: 这个程序是怎么回事？ [打印本页]

作者: chinatea 时间: 2008-12-30 18:55
标题: 这个程序是怎么回事？
刚开始学习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

作者: szhixiang030 时间: 2008-12-31 22:20
问题已经解决了

作者: yungezi 时间: 2009-1-6 20:53
color(pt(i))=&red
改成
&color(pt(i))=4

欢迎光临 iCAx开思工具箱 (https://t.icax.org/)