马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
原帖地址：http://www.ugufun.com/?p=115 这是UG GRIP一个算24点的小游戏程序，纯粹练习算法用的。无聊的时候也可以玩玩。 O2 ~$ D$ q+ {5 E* D- U# ?4 V
$$这是一个算24点的程序
" t0 w& ~( O% Bnumber/a,b,c,d,i,j,k,l,hh
! B+ P9 e$ ]0 l$ y' bstring/pl(4,10),an(100),tt(100)' S+ ^" U* M% a
data/pl,'+','-','x','/' a1:
9 J- T- k8 T7 M9 F. @param/'pls enter number','1',int,a, $
9 Z; w" r$ O7 m) e# z'2',int,b, $- A! {; X3 v: k
'3',int,c, $
* ^' U) G+ D& k4 X/ q'4',int,d,resp4 x( Y% D6 h9 W( x
jump/a1:,term:,,,resp a2:
9 z% S# a5 z9 N( ~: g0 sdo/a3:,i,1,4
. {* r+ M+ R$ Ido/a4:,j,1,4
. i" `) J1 w: K6 rdo/a5:,k,1,4 ifthen/i==12 x: I5 F' u* K# @# \* c
hh=a+b% \& v' u7 A8 P! X8 u4 U
elseif/i==27 q" |- j* g' O
hh=a-b- L) g4 D9 ?3 ~3 t
elseif/i==3
* O8 Q" M! \: p( B, d0 o. {hh=a*b+ U9 g7 R. S/ B U' ]
elseif/i==4( A$ s2 G0 [8 K5 v$ i( H! I1 ]
hh=a/b
0 ]$ u0 o$ ?2 q- Z; S* V hendif ifthen/j==12 D: }7 |/ \8 h
hh=hh+c
- A8 ~2 U+ u- K( `, Y% p3 Uelseif/j==2
* C$ w1 ]* t6 B4 k* Ihh=hh-c
7 ^+ l: w% W/ Belseif/j==3" r* ]' B0 p& u) Q- q- Z) h
hh=hh*c/ z _% V( _8 q* }7 ^
elseif/j==4
7 _* X& I4 n5 C, |! d1 g, ?" u, _hh=hh/c
& g8 u) G1 [5 o9 [, ?$ n$ ]. P, [! Eendif ifthen/k==1' E6 L: E2 [5 ~( j# w+ A: Q' P
hh=hh+d2 j6 J, m2 @6 Z/ S6 i5 C0 x
elseif/k==2
0 h1 q; \6 D! C% L) T: U$ a, t. @hh=hh-d
! r# C1 \% X1 C U4 i, R( h; Z/ ~elseif/k==3
7 o+ \( t \+ V$ W$ T) Q- xhh=hh*d6 m" B O" n/ m5 r& K' @4 ^, F
elseif/k==4$ s. i' i0 m4 ~$ P1 ~6 k
hh=hh/d
1 M3 k3 G' D2 {endif if/hh==24,jump/ppp: a5: a4: a3: a6:6 N+ B' X" H X# \3 X% m
messg/'没有答案！' term:) ?# r/ z2 ]* m- R' {- b
halt ppp:- t' |9 B, V9 k" ^* U; V0 P0 ^! k5 G
an=istrl(a)+pl(i)+istrl(b)+pl(j)+istrl(c)+pl(k)+istrl(d)
/ Q z4 U& L( `& R# V9 Dmessg/'答案就是'+an
. }; x- h6 e& t @! q/ Ojump/term:
, \1 s5 |0 \% r, u: U | 
发表于 2014-3-13 07:52:48
