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

xcb

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

这是UG GRIP一个算24点的小游戏程序，纯粹练习算法用的。无聊的时候也可以玩玩。
( v% O0 y+ A& N# c% l' _# q$$这是一个算24点的程序
% n$ x/ \$ F3 n& K4 g, tnumber/a,b,c,d,i,j,k,l,hh
% C" Z- f# h8 v. astring/pl(4,10),an(100),tt(100)
* v! I8 r+ c+ a8 Tdata/pl,'+','-','x','/'

a1:
param/'pls enter number','1',int,a, $
'2',int,b, $
, E7 W: b, a) ^# Y2 c'3',int,c, $
'4',int,d,resp
jump/a1:,term:,,,resp

a2:
: o/ S3 _. c& O2 _( Gdo/a3:,i,1,4
  v3 m7 o2 h9 x8 M2 A; X$ zdo/a4:,j,1,4
  w4 M; Z+ b: v, E( ydo/a5:,k,1,4

ifthen/i==1
  ~1 u+ V8 [& ghh=a+b
: Y7 G. K" w# }% v7 G& h) }elseif/i==2
hh=a-b
, ]" B' o% v- eelseif/i==3
0 S, K. t- }" P' }hh=a*b
" ^& u, u/ f, O8 P( oelseif/i==4
hh=a/b
6 e+ ^6 u' K) x" n+ p6 m0 ^; Zendif

ifthen/j==1
6 K( c" B# I" P8 chh=hh+c
elseif/j==2
hh=hh-c
elseif/j==3
hh=hh*c
elseif/j==4
4 _) i" V" O! G8 T7 B  X5 i7 Qhh=hh/c
endif

ifthen/k==1
hh=hh+d
elseif/k==2
0 U9 v* k; c$ y* Y  e3 whh=hh-d
5 z4 t6 F% W, P' P. Eelseif/k==3
" ^/ e* k" U0 @* ?% zhh=hh*d
elseif/k==4
( l/ V. }. P# q9 @$ u, V, {% j1 Phh=hh/d
" B/ E; A# C" H' Aendif

if/hh==24,jump/ppp:

a5:

a4:

a3:

a6:
) d' J6 Q9 @8 {messg/'没有答案！'

term:
halt

ppp:
& f+ a% N" q3 {0 Uan=istrl(a)+pl(i)+istrl(b)+pl(j)+istrl(c)+pl(k)+istrl(d)
  T- M/ W& \$ J" Pmessg/'答案就是'+an
jump/term:

9 X& \' s  n# P$ J