2847657989 发表于 2014-3-13 07:53:53

UG GRIP一个算24点的小游戏_源代码

这是UG GRIP一个算24点的小游戏程序，纯粹练习算法用的。无聊的时候也可以玩玩。$$这是一个算24点的程序
number/a,b,c,d,i,j,k,l,hh
string/pl(4,10),an(100),tt(100)
data/pl,'+','-','x','/'a1:
param/'pls enter number','1',int,a, $
'2',int,b, $
'3',int,c, $
'4',int,d,resp
jump/a1:,term:,,,respa2:
do/a3:,i,1,4
do/a4:,j,1,4
do/a5:,k,1,4ifthen/i==1
hh=a+b
elseif/i==2
hh=a-b
elseif/i==3
hh=a*b
elseif/i==4
hh=a/b
endififthen/j==1
hh=hh+c
elseif/j==2
hh=hh-c
elseif/j==3
hh=hh*c
elseif/j==4
hh=hh/c
endififthen/k==1
hh=hh+d
elseif/k==2
hh=hh-d
elseif/k==3
hh=hh*d
elseif/k==4
hh=hh/d
endifif/hh==24,jump/ppp:a5:a4:a3:a6:
messg/'没有答案！'term:
haltppp:
an=istrl(a)+pl(i)+istrl(b)+pl(j)+istrl(c)+pl(k)+istrl(d)
messg/'答案就是'+an
jump/term:






原帖地址：
**** Hidden Message *****

xwx* 发表于 2014-3-13 19:30:29

顶楼主啦..希望楼主多发精品好帖啦.....

273302449 发表于 2014-3-14 12:51:27

很很好很好很好

chtan7882 发表于 2014-6-11 08:30:20

谢谢谢谢

shan326873071 发表于 2014-11-1 21:10:41

学习一下

摩天楼的怪人 发表于 2015-12-24 08:58:55

正需要啊！楼主好人！

Ilhan.Mansiz 发表于 2016-1-15 12:05:27

感谢楼主分享！！！

Ilhan.Mansiz 发表于 2016-1-15 13:33:41

还是有很多问题的

Ilhan.Mansiz 发表于 2016-1-15 13:33:50

还是有很多问题的

jake-119001234* 发表于 2016-5-3 09:09:00

怎么叫算24点的小游戏？没玩过！
页: [1] 2 3
查看完整版本: UG GRIP一个算24点的小游戏_源代码