马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
原帖地址：http://www.ugufun.com/?p=115 这是UG GRIP一个算24点的小游戏程序，纯粹练习算法用的。无聊的时候也可以玩玩。9 k: W7 l* i& N! b# P
$$这是一个算24点的程序
7 l k' k Q$ S" ?7 r6 Inumber/a,b,c,d,i,j,k,l,hh
7 z; g/ W. v. ?5 @7 _" F* H$ Z$ w* Dstring/pl(4,10),an(100),tt(100), G% j2 W. u3 H* ?4 ?9 j" C
data/pl,'+','-','x','/' a1:8 z+ c! M% g* n2 N! d- K7 o
param/'pls enter number','1',int,a, $
. m$ P$ {6 Z; f'2',int,b, $- b' h& d' G( j% E* w5 y
'3',int,c, $$ g' N2 s* p3 k/ ~8 ]* k
'4',int,d,resp d2 E2 O* a# m2 f( {" W
jump/a1:,term:,,,resp a2:& f( A+ e- C p& ~% T! T6 A4 a
do/a3:,i,1,4& n# D) ~# ~+ ]; e2 z/ {2 d
do/a4:,j,1,4' A; A( ?5 g, B9 s
do/a5:,k,1,4 ifthen/i==14 V! j$ S9 A7 D% d l/ \4 }- z& J
hh=a+b
: |' ~, `3 t% d% aelseif/i==24 \7 [; ^: ]5 F
hh=a-b3 T( [, A0 R0 J% |4 q- a! y9 e
elseif/i==3
( e' X- n3 h$ c; ohh=a*b
p3 o" x8 P) b5 oelseif/i==41 B' R& A5 K* j/ i' K1 x
hh=a/b; j! H, Y9 Y" \! {: M4 ?. c
endif ifthen/j==1
: G$ Y7 x9 f C) Whh=hh+c
( w% v6 ]4 H9 A# c1 b; j# u# |elseif/j==25 J8 i, `; n. Q6 l
hh=hh-c$ s( \% a; n2 U; A1 |5 m) d
elseif/j==3
0 u: g" {% }/ g- M D3 x7 Nhh=hh*c. q* `" a) K0 t4 b+ M
elseif/j==4% r4 ` ~4 K1 d( e" t" y, @
hh=hh/c
0 e) B) j4 C* ~* Q+ wendif ifthen/k==1
! }+ O: M5 c1 i6 P5 f8 e; Ehh=hh+d
- K6 i1 h. K# g& P ]# Welseif/k==2
* Z; N' B( ]8 c1 V9 ]hh=hh-d1 W9 \+ d2 n+ h( I
elseif/k==3* R0 r& m4 I, O2 W
hh=hh*d
' Y0 t% I, C: G- _' t; @6 `elseif/k==46 u p t" U% i7 a0 d7 @: K' o# S
hh=hh/d
6 \, a9 `- j. K# n1 @' z9 Z9 Hendif if/hh==24,jump/ppp: a5: a4: a3: a6:
* w6 j" Y3 |7 B. b. imessg/'没有答案！' term:
# h- p" \6 i4 V: W4 d. ^# yhalt ppp:; b3 ~7 m: Y' g% V4 e
an=istrl(a)+pl(i)+istrl(b)+pl(j)+istrl(c)+pl(k)+istrl(d)
# ~5 B! Q) ^6 \% {- D" ]messg/'答案就是'+an4 ~) Z$ w# ]% r/ J
jump/term:
( k8 e% ^* u4 ^9 ~6 s9 l1 s. d | 
发表于 2014-3-13 07:52:48
