|
|
马上注册，结交更多同行朋友，交流，分享，学习。
您需要 登录 才可以下载或查看，没有帐号？注册
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 |
|
发表于 2008-12-30 18:55:45
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
淘帖
赞一下！