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

2847657989

这是UG GRIP一个算24点的小游戏程序，纯粹练习算法用的。无聊的时候也可以玩玩。

$$这是一个算24点的程序

1. number/a,b,c,d,i,j,k,l,hh
   
2. string/pl(4,10),an(100),tt(100)
   
3. data/pl,'+','-','x','/'a1:
   
4. param/'pls enter number','1',int,a, $
   
5. '2',int,b, $
   
6. '3',int,c, $
   
7. '4',int,d,resp
   
8. jump/a1:,term:,,,respa2:
   
9. do/a3:,i,1,4
   
10. do/a4:,j,1,4
    
11. do/a5:,k,1,4ifthen/i==1
    
12. hh=a+b
    
13. elseif/i==2
    
14. hh=a-b
    
15. elseif/i==3
    
16. hh=a*b
    
17. elseif/i==4
    
18. hh=a/b
    
19. endififthen/j==1
    
20. hh=hh+c
    
21. elseif/j==2
    
22. hh=hh-c
    
23. elseif/j==3
    
24. hh=hh*c
    
25. elseif/j==4
    
26. hh=hh/c
    
27. endififthen/k==1
    
28. hh=hh+d
    
29. elseif/k==2
    
30. hh=hh-d
    
31. elseif/k==3
    
32. hh=hh*d
    
33. elseif/k==4
    
34. hh=hh/d
    
35. endifif/hh==24,jump/ppp:a5:a4:a3:a6:
    
36. messg/'没有答案！'term:
    
37. haltppp:
    
38. an=istrl(a)+pl(i)+istrl(b)+pl(j)+istrl(c)+pl(k)+istrl(d)
    
39. messg/'答案就是'+an
    
40. jump/term:

复制代码

原帖地址：
http://www.ugufun.com/?p=115

xwx*

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

273302449

很很好很好很好

chtan7882

谢谢谢谢

shan326873071

学习一下

摩天楼的怪人

正需要啊！楼主好人！

Ilhan.Mansiz

感谢楼主分享！！！

Ilhan.Mansiz

还是有很多问题的

Ilhan.Mansiz

还是有很多问题的

jake-119001234*

怎么叫算24点的小游戏？没玩过！