2.4.grs

UG二次开发很好的东西 需要的朋友可以下载来看看 很好用啊

$$输入数字num
l10:
param/'enter a number','number=',num,resp
jump/l10:,trm:,,resp
$$判断num的值，若大于0.01，则执行语句标号l20:下的程序指令，否则结束程序。
if/num<=0.01,jump/trm:
if/num>0.01,jump/l20:

$$若num大于0.01，则打印num，并对num开根号且将此值赋于num。
l20:
print/num
num=sqrtf(num)

$$判断num的值，若大于2，则返回语句标号l20:，循环执行标号下面的程序指令，否则结
$$束程序。
l30:
if/num>2,jump/l20:
if/num<=2,jump/trm:

$$结束程序
trm:
halt