马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
原帖地址：http://www.ugufun.com/?p=115 这是UG GRIP一个算24点的小游戏程序，纯粹练习算法用的。无聊的时候也可以玩玩。
1 r0 k9 C" G3 q& l$$这是一个算24点的程序+ g( k, ?- a, L' f
number/a,b,c,d,i,j,k,l,hh
: y' g- d' A. R0 ?# mstring/pl(4,10),an(100),tt(100), V; O" a7 x/ b8 M0 z! b$ K3 g
data/pl,'+','-','x','/' a1:; E8 c. Z U* U# i# Q
param/'pls enter number','1',int,a, $
+ M6 x0 M, `9 T& f% V% ['2',int,b, $
1 N: A; H; z' t. S9 k'3',int,c, $
& S3 Q& z- d" C- X- i* i3 Y'4',int,d,resp
: J3 P4 x& k( w" n; [jump/a1:,term:,,,resp a2:
% i' P3 s2 x- l: ~do/a3:,i,1,44 U. r8 w+ E* S6 _! X9 P
do/a4:,j,1,4' d* o4 I3 g$ R- T: f3 e- p
do/a5:,k,1,4 ifthen/i==15 t+ R/ n9 b& [: ]9 T; [
hh=a+b# j& s( t K1 H
elseif/i==2/ g0 M9 t( n+ z" u# D" V V
hh=a-b
* H* D0 A5 R! y$ D" ]elseif/i==36 h# v5 O, C9 O8 T, z! d' b3 r
hh=a*b! f# e1 q4 Q) C$ ^5 E
elseif/i==45 g" L7 j# D' e2 i0 V
hh=a/b
! K2 `3 }3 {6 |8 b! `1 D( A0 Bendif ifthen/j==13 X, |6 N* x8 [5 M
hh=hh+c- n' t! e$ j; S: X% g& Q
elseif/j==2% T4 `( [& _1 Q' c+ o2 o# @
hh=hh-c2 L# V( e( F% [/ y1 I) i
elseif/j==3- a$ [( f2 g+ Q3 V' H$ q6 E
hh=hh*c/ `$ _% H3 b! p" l% v# y& b
elseif/j==4/ b4 ] e# x8 _9 x
hh=hh/c
& w. M1 a I; l( ~3 t9 M yendif ifthen/k==1
5 V% d# v# c8 [! Z p5 ^hh=hh+d" o$ Z8 K# y; D/ V6 w' [ W. i
elseif/k==25 g" K: m0 I- c# L6 q! _; T0 f( H, r
hh=hh-d
( Q9 b1 S) n( w- h7 d: f. {, E9 g/ pelseif/k==3
2 v- W b* k5 b8 x9 n5 z% Nhh=hh*d( }" B% t0 `5 l, {2 v# P
elseif/k==42 F4 E$ j/ r' `8 f- b; |' L
hh=hh/d
" J0 B, Y& F$ [2 z3 |7 O7 s; ?1 vendif if/hh==24,jump/ppp: a5: a4: a3: a6:' ~9 _: f$ R& z
messg/'没有答案！' term:
$ |- Y" Z. ]6 P$ dhalt ppp:( b- s+ @4 u$ L) T1 p* p1 B6 [
an=istrl(a)+pl(i)+istrl(b)+pl(j)+istrl(c)+pl(k)+istrl(d)
4 n0 f: W. I7 N7 a4 r1 A% H# c$ I% emessg/'答案就是'+an2 O, h8 S9 H N
jump/term: % W* X$ A* c: b& }# g
| 
发表于 2014-3-13 07:52:48
