有趣的踩汽球问题.看看吧

谁能帮帮忙编出这个问题啊?
   儿童节时.两个人比赛踩汽球.汽球一百个.分别编号1~100.在相同的时间内.两个人一起去踩这100个汽球.他们的基数都为1.在踩了一个汽球后.乘上汽球的编号.再踩再乘.时间到后.两个把自己的乘到的结果报出来.分数高的人为胜.如果一方说慌.那就另一方胜了.
   但考虑到是否有人慌报数字的问题.先定义分数低的那个人是真的.因为他没必要说慌.
    因为两个人不可能踩同一个数字.所以可以根据把结果分解后的数字想比较.可以判断他们的结果有没有说慌.
    比如.A的结果是147;B的结果是49.那么.A只能是49*3,而B也只能是1*49.因为B没有说慌.所以.A说慌了.那就是B胜了.
& D1 r' O+ m! @& [, r/ a8 J    又如:A的结果是486.B的结果是81.那样的话.A除了分解为81*6外.还可以分解为9*54或者3*9*18等.而B.可以由1*81得到.也可以由3*27.A和B至少存在一组不重叠的编号.所以.分数高的A就胜了.
% ]2 g' w: m6 n( h( a   具体输入输入如:
# E! ^( J. ]' s5 v: O9 iInput
343     49
3599   610
62       36

Output
. H  y2 T2 A) T8 z49
610
62

唐明

这个代码就你局的例子都没有问题 保存为.vbs文件 7 h$ g+ P6 P, D Function scanfnum(hfile) '从文件中读取一个数字 Dim s, n, n_end . H! `1 ^* A5 Y8 p5 \0 Q n = "" $ t" Q! v" Y6 {% }$ T1 l+ p2 f s = "" n_end = False d_end = False 4 f4 q* b8 L# z9 C: J% k) m$ J Do While Not (hfile.AtEndOfStream) s = hfile.read(1) 0 T& }( g3 ]( ]- m Do While (s < "0" Or s > "9") And (Not (hfile.AtEndOfStream)) If n_end = True Then 1 ]0 X, U% V$ X. d d_end = True x" [2 ~7 Y! u Exit Do End If 1 @) s. k0 E6 E5 E9 B5 s s = hfile.read(1) Loop / `: y7 F, ^1 L' ^9 p2 w* {) ?; W If d_end Then Exit Do If s >= "0" And s <= "9" Then ; l1 S' x: J: U+ I/ l2 r n = n + s 7 z% T$ f$ q9 U n_end = True End If Loop 7 M' c- z9 c. C: Z/ p If n = "" Then scanfnum = "error" Else scanfnum = CInt(n) End Function # [4 p0 k, U! n/ t Function truenum(n1, n2, vx) 5 M: U2 {5 _, ?; `9 `8 O% @3 h ' ↑存储分数的书组 '默认n1>n2 ; Y0 a3 I/ Q t* p! ` Dim p, v1, v2 " e8 x/ X4 e0 }' U1 v. B) `! Q _ v1 = n1 v2 = n2 - _: N; o ~$ D. Y6 n '下面把v1拆份成为每个数字尽可能大，数量尽可能少的组合 p = 100 % ^: v3 e- K- ?: n Do While v1 > 1 And p > 1 If v1 Mod vx(p) = 0 Then v1 = v1 \ vx(p) vx(p) = 0 '用过的数字设置0 8 r l7 P. u' ~ End If # B! o9 l: Q5 v: r1 I1 W p = p - 1 Loop * d! P, e9 k; [! G$ T* h '下面一样尝试把v2拆份成为每个数字尽可能大，数量尽可能少的组合，但是v1用过的数字不能再用 ' Q! |5 O/ |" D4 E- I p = 100 ) s( `2 j+ Y' d: }' }5 ?* x Do While v2 > 1 And p > 1 If vx(p) <> 0 Then ) t. j) ]) D- q$ c# q* m If v2 Mod vx(p) = 0 Then 5 B( N# s* _* y, u' E' ^ B v2 = v2 \ vx(p) # t3 U+ t% D4 p# m* q7 E- D$ @6 f vx(p) = 0 End If - o' v" A) M4 f' A( l: J8 f" ~- ^ End If - e- Y+ x* F6 g' J6 K/ T, l2 p# L p = p - 1 Loop '查分成功则结果v2应该是1,如果v1占用了v2必需的数字就会拆份失败 / h' O! Y8 I' g: o" e5 D! c If v2 = 1 Then truenum = 0 Else truenum = 1 6 o2 L) z6 s- z8 G) U. \) aEnd Function : [" T$ _/ F, o q! C% ?" z ( U f) K1 M) I. {% xFunction startprc(n, inpath, outpath) ' ↑气球个数 9 u! ^" J7 G: w# k4 ~( A" { ' ↑输入文件路径 % B3 T J9 T/ h& j- z ' ↑输出文件路径 ) _7 |6 D0 D6 B0 { Dim nx(2), singlenum(), cnt ReDim singlenum(n) 8 }% o+ m, M3 J1 x0 a Set fso = CreateObject("scripting.filesystemobject") ' R+ p8 [. U+ t } If fso.fileexists(inpath) Then . L0 B, m m- n, K) X" i* E7 U0 p Set inf = fso.opentextfile(inpath) 8 j4 A* G+ @2 z Set outf = fso.createtextfile(outpath, 1) 1 j" H# ?# u6 Q% R4 n6 ` Do While Not (inf.AtEndOfStream) " \& z9 m) e9 @& y For i = 1 To n singlenum(i) = i '写入每个球的分数 2 h7 u9 u9 F Q& A ~ m Next $ c$ N. Q. s3 ]/ [$ b9 w '读取两个数 nx(0) = scanfnum(inf) $ ]" y. n' k- F- p nx(1) = scanfnum(inf) If nx(0) <> "error" And nx(1) <> "error" Then If nx(0) < nx(1) Then . t+ h b& q: Y '大叔在前 4 h! d. s: m( y nx(2) = nx(0) 3 O; a7 d: v1 V/ O, f nx(0) = nx(1) - x* {# H- k6 Z3 u& _0 j$ R! |& r# d0 q nx(1) = nx(2) ! X F$ G7 a5 Y% m" Z0 L; { End If opp = truenum(nx(0), nx(1), singlenum) / ?7 L( I3 a! K3 s2 b# \& j, @ outf.writeline nx(opp) End If Loop End If End Function '*************************** '这里开始运行 '*************************** * ~' \& i$ {9 [7 n) Qstartprc 100, "input.txt", "output.txt" / v( d4 S2 E5 w8 O+ h: h & a) w: _# w" t5 z2 P5 Z4 C " _3 m' A9 d: k; @

[此贴子已经被作者于2004-5-10 14:36:26编辑过]

. E6 Q) N2 g" k9 u8 \- A