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

xcb

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

这是UG GRIP一个算24点的小游戏程序，纯粹练习算法用的。无聊的时候也可以玩玩。
( r5 I$ `$ A/ q+ M2 K! W* w2 _# J% Y$$这是一个算24点的程序
/ M& M- W8 @/ G( r) ynumber/a,b,c,d,i,j,k,l,hh
string/pl(4,10),an(100),tt(100)
8 S! R0 ^* B" Zdata/pl,'+','-','x','/'

a1:
param/'pls enter number','1',int,a, $
'2',int,b, $
7 l5 O  m* \! Q5 ]'3',int,c, $
'4',int,d,resp
2 v4 r/ I, T  u- u- B, ?; \jump/a1:,term:,,,resp

a2:
( E, h7 K& _" ]$ A$ A& ydo/a3:,i,1,4
* i9 c. {$ t! n3 K0 c: pdo/a4:,j,1,4
7 Y  q" ?6 B. M7 P- B6 x6 ^do/a5:,k,1,4

ifthen/i==1
7 W" _  F2 L8 k+ C# g8 `7 Qhh=a+b
( o* \7 X: O0 y$ G3 ]0 L  Selseif/i==2
" G. ?9 t7 W# g( |" I! khh=a-b
. h' p3 H+ w# Welseif/i==3
4 [- a! @8 ?4 u1 K  }( F% I7 Q' Whh=a*b
elseif/i==4
9 v, o, D4 {& w; S3 Shh=a/b
4 J& x. Z, u) B# B9 ?- H1 tendif

ifthen/j==1
hh=hh+c
elseif/j==2
4 ]# E$ F( f% F5 Z3 _6 S* ], Lhh=hh-c
elseif/j==3
hh=hh*c
7 g1 W. ]2 O$ [6 Y) ?elseif/j==4
hh=hh/c
9 w/ u* P3 N, C- Y  K- ]; k7 R5 X5 sendif

ifthen/k==1
- S" Y$ G0 b* O% K' _hh=hh+d
elseif/k==2
hh=hh-d
elseif/k==3
* B0 e+ h+ }! W$ T# F& X/ jhh=hh*d
% X' d7 u1 Y) Pelseif/k==4
hh=hh/d
5 _1 `5 I) s8 v( n. s0 Z( Mendif

if/hh==24,jump/ppp:

a5:

a4:

a3:

a6:
messg/'没有答案！'

term:
halt

ppp:
. O* k! y7 o/ O8 |an=istrl(a)+pl(i)+istrl(b)+pl(j)+istrl(c)+pl(k)+istrl(d)
! O% ?# |  G' h; J$ {1 ?3 F4 \0 G1 [: Mmessg/'答案就是'+an
jump/term:

9 ?/ m3 z$ L/ u: e3 a$ L5 @) l