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

谁能帮帮忙编出这个问题啊?
   儿童节时.两个人比赛踩汽球.汽球一百个.分别编号1~100.在相同的时间内.两个人一起去踩这100个汽球.他们的基数都为1.在踩了一个汽球后.乘上汽球的编号.再踩再乘.时间到后.两个把自己的乘到的结果报出来.分数高的人为胜.如果一方说慌.那就另一方胜了.
% g- `2 x/ e% E; Q! J- X   但考虑到是否有人慌报数字的问题.先定义分数低的那个人是真的.因为他没必要说慌.
    因为两个人不可能踩同一个数字.所以可以根据把结果分解后的数字想比较.可以判断他们的结果有没有说慌.
" g* ?; `3 _& }" x7 d1 _! n    比如.A的结果是147;B的结果是49.那么.A只能是49*3,而B也只能是1*49.因为B没有说慌.所以.A说慌了.那就是B胜了.
+ h9 h1 P3 {' l' R    又如:A的结果是486.B的结果是81.那样的话.A除了分解为81*6外.还可以分解为9*54或者3*9*18等.而B.可以由1*81得到.也可以由3*27.A和B至少存在一组不重叠的编号.所以.分数高的A就胜了.
2 [& i6 @6 Y- u/ u* I6 q   具体输入输入如:
Input
/ |8 M% p1 A( D& q, J' ?8 O! @343     49
3599   610
62       36

Output
& Q- w& p4 v" c% I: Q* B# G8 R; i1 A49
610
62

唐明

这个代码就你局的例子都没有问题 保存为.vbs文件 0 m, Z& Y7 k3 { 1 c7 l4 `) Q# X2 u$ Y- w) s+ DFunction scanfnum(hfile) '从文件中读取一个数字 N+ | C. r# |( Z6 S6 T Dim s, n, n_end n = "" s = "" # S, J5 ~" ~' I n_end = False d_end = False Do While Not (hfile.AtEndOfStream) s = hfile.read(1) Do While (s < "0" Or s > "9") And (Not (hfile.AtEndOfStream)) If n_end = True Then ! I& h. U- _ J d_end = True Exit Do ) @2 y& W" t# V0 q8 |! U. @3 P+ H End If * ]6 C% q( x$ i) R. P( R0 w s = hfile.read(1) Loop - O3 A; Z, L5 ] b6 k0 ?/ N/ I If d_end Then Exit Do If s >= "0" And s <= "9" Then n = n + s + z4 y& E: ]! ?; g" c9 k8 ]) u' {& ] n_end = True % c# j# i' w2 N8 w" ]' i% x- H- z/ m End If Loop / h# A z2 S8 U& B! C If n = "" Then scanfnum = "error" Else scanfnum = CInt(n) End Function ' v0 p6 [% o- i' f Function truenum(n1, n2, vx) # P) a( h# t- e) `" x+ D3 @ ' ↑存储分数的书组 '默认n1>n2 Dim p, v1, v2 v1 = n1 v2 = n2 " T0 d6 d' R! K2 Q3 H: Q+ s '下面把v1拆份成为每个数字尽可能大，数量尽可能少的组合 p = 100 Do While v1 > 1 And p > 1 $ H, {/ b' o$ }8 ~% y If v1 Mod vx(p) = 0 Then * n v! F8 W$ \5 M! Q) {* ^ v1 = v1 \ vx(p) vx(p) = 0 '用过的数字设置0 End If p = p - 1 Loop . q' g+ k8 j8 O2 M8 D '下面一样尝试把v2拆份成为每个数字尽可能大，数量尽可能少的组合，但是v1用过的数字不能再用 7 X& l& J) p; ?4 e p = 100 3 d8 D# L2 ^ o, E2 R4 w* X9 O3 v Do While v2 > 1 And p > 1 If vx(p) <> 0 Then ; r' U& G* ]5 c If v2 Mod vx(p) = 0 Then 5 T T9 I9 e( E+ O8 B- E4 q- T; d v2 = v2 \ vx(p) 1 L5 F1 Z _; j) l' ^ vx(p) = 0 7 s. |0 u, b5 n" R. E End If b( n% A* ~4 [4 P3 C: p End If " i/ q( u! l, m5 f p = p - 1 Loop ' p: K8 G8 ?9 c- N9 r- q* q5 A, y; f '查分成功则结果v2应该是1,如果v1占用了v2必需的数字就会拆份失败 If v2 = 1 Then truenum = 0 Else truenum = 1 End Function 4 x7 J( [; @+ m' p1 a/ t Function startprc(n, inpath, outpath) ' ↑气球个数 ) u) w d) p2 i& }- R ' ↑输入文件路径 6 z! S' `: B8 E! u+ W @ ' ↑输出文件路径 ! s0 F9 Y5 C* c/ j Dim nx(2), singlenum(), cnt ReDim singlenum(n) - ]5 ~) ]% c* U& r; ^ j& N- z# E Set fso = CreateObject("scripting.filesystemobject") 6 L G- N# q, _, c0 X: w9 Q! U If fso.fileexists(inpath) Then Set inf = fso.opentextfile(inpath) Set outf = fso.createtextfile(outpath, 1) , x3 z! h8 ]; ^2 s Do While Not (inf.AtEndOfStream) For i = 1 To n [6 d1 ^" X- K6 E singlenum(i) = i '写入每个球的分数 ; @$ G& w5 X, B: X" i r( f2 Q Next '读取两个数 nx(0) = scanfnum(inf) nx(1) = scanfnum(inf) 5 z$ _0 k, l; v# Q& u+ r0 F If nx(0) <> "error" And nx(1) <> "error" Then ) H+ t; X& X6 U- j$ i If nx(0) < nx(1) Then + S; h, g2 y$ } '大叔在前 nx(2) = nx(0) ' i: S' P! ~7 [9 S8 H X# l2 n nx(0) = nx(1) ) ~7 ]4 K: H8 M0 m9 A nx(1) = nx(2) End If 2 N5 b. ~ f; o8 R* Q: B opp = truenum(nx(0), nx(1), singlenum) ; c9 T; g( v* T$ o: z: C2 w/ \ outf.writeline nx(opp) End If Loop 3 r( B# g5 F% X) S9 m) n: i End If 8 ]# i- i/ m% C5 g/ eEnd Function 4 a7 l3 ^4 S1 F9 q'*************************** '这里开始运行 '*************************** * f# O% ]0 q3 [2 dstartprc 100, "input.txt", "output.txt" 5 V/ [. Y# ^* f * _5 F) ?0 I( Q8 V7 N2 ?, e/ Z % m" C/ |# ?/ t; j* t8 W ; p/ N; u1 ^$ e: f) `0 N

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

7 d0 J& F7 S6 c0 I2 m