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

谁能帮帮忙编出这个问题啊?
   儿童节时.两个人比赛踩汽球.汽球一百个.分别编号1~100.在相同的时间内.两个人一起去踩这100个汽球.他们的基数都为1.在踩了一个汽球后.乘上汽球的编号.再踩再乘.时间到后.两个把自己的乘到的结果报出来.分数高的人为胜.如果一方说慌.那就另一方胜了.
   但考虑到是否有人慌报数字的问题.先定义分数低的那个人是真的.因为他没必要说慌.
    因为两个人不可能踩同一个数字.所以可以根据把结果分解后的数字想比较.可以判断他们的结果有没有说慌.
    比如.A的结果是147;B的结果是49.那么.A只能是49*3,而B也只能是1*49.因为B没有说慌.所以.A说慌了.那就是B胜了.
3 Q7 _+ V4 V9 A9 b) Z    又如:A的结果是486.B的结果是81.那样的话.A除了分解为81*6外.还可以分解为9*54或者3*9*18等.而B.可以由1*81得到.也可以由3*27.A和B至少存在一组不重叠的编号.所以.分数高的A就胜了.
+ t9 x6 w* ^, R+ N$ O   具体输入输入如:
, t# G! S) b9 o8 WInput
343     49
3599   610
' G4 Z* Q: s$ O+ |, D62       36

Output
. e: r+ e2 V8 e6 q# }- t. g49
' N& Q5 S. p, r, \- E610
62

唐明

这个代码就你局的例子都没有问题 保存为.vbs文件 # P6 U3 [1 A+ j$ o: C: J+ dFunction scanfnum(hfile) '从文件中读取一个数字 Dim s, n, n_end + Z; Q3 \8 U6 X- ?9 X8 L+ E6 M. X n = "" + i. c: S A# p! Q* m$ N s = "" 7 y: L* p% K8 v n_end = False 2 |( e0 G& q9 v3 ^ d_end = False ) @* L; y+ B8 M' T; D" N! ]8 u* t Do While Not (hfile.AtEndOfStream) & J! a$ P$ @1 _* V7 c9 g- P6 E. P2 U s = hfile.read(1) 3 i( l8 s) e$ ?8 O1 m m' J1 h4 { Do While (s < "0" Or s > "9") And (Not (hfile.AtEndOfStream)) If n_end = True Then d_end = True * k. [" f( R7 Y3 n9 E: _" r6 ~ Exit Do End If ; p; h2 f) G |! j s = hfile.read(1) Loop ( Y1 D& A* W% [ If d_end Then Exit Do If s >= "0" And s <= "9" Then n = n + s n_end = True " v) P# c: M4 w! G/ H3 { End If Loop If n = "" Then scanfnum = "error" Else scanfnum = CInt(n) , _3 Y5 K% F! I; w6 X3 s' k End Function ) u6 X4 r# D& g0 R7 t1 j' YFunction truenum(n1, n2, vx) ' ↑存储分数的书组 & v. Y6 M0 M2 R; d$ g '默认n1>n2 / l9 w: i. F0 Y+ g0 L1 O Dim p, v1, v2 v1 = n1 . O$ H8 U: J1 Q7 D! a8 Z B* p v2 = n2 '下面把v1拆份成为每个数字尽可能大，数量尽可能少的组合 p = 100 Do While v1 > 1 And p > 1 If v1 Mod vx(p) = 0 Then v1 = v1 \ vx(p) ; W- Q' U- v" I. q vx(p) = 0 '用过的数字设置0 End If p = p - 1 Loop '下面一样尝试把v2拆份成为每个数字尽可能大，数量尽可能少的组合，但是v1用过的数字不能再用 p = 100 Do While v2 > 1 And p > 1 . A: J1 o0 g3 q* ~, q6 P! P If vx(p) <> 0 Then If v2 Mod vx(p) = 0 Then ! G7 z2 i) t* `0 G* S1 u v2 = v2 \ vx(p) vx(p) = 0 End If ) j. J6 L" h3 L% r# l; s End If ; n. V- \+ Y! |+ C6 T p = p - 1 " H3 R" G, t, _# h- l, v( T% q Loop '查分成功则结果v2应该是1,如果v1占用了v2必需的数字就会拆份失败 If v2 = 1 Then truenum = 0 Else truenum = 1 End Function 3 C6 [( n7 N7 a+ O9 |Function startprc(n, inpath, outpath) ' ↑气球个数 ' ↑输入文件路径 ) _) p2 V: P/ L ' ↑输出文件路径 & @$ y9 [7 T$ E1 J! r7 t3 J; {; Q( p Dim nx(2), singlenum(), cnt ReDim singlenum(n) & j6 i+ P! M" E$ T Set fso = CreateObject("scripting.filesystemobject") If fso.fileexists(inpath) Then 1 I* N7 W7 z6 a0 s* P& ^1 v Set inf = fso.opentextfile(inpath) Set outf = fso.createtextfile(outpath, 1) . `' w: r7 S A+ a" m Do While Not (inf.AtEndOfStream) 3 l) `6 S0 g, u* ^4 ] For i = 1 To n 8 r$ x' U4 S5 `- S1 I; b singlenum(i) = i '写入每个球的分数 Next '读取两个数 + ^' Z" E, U8 Z- t7 S4 g) ] nx(0) = scanfnum(inf) nx(1) = scanfnum(inf) , Q/ M: j" M( u* P0 X( p# T If nx(0) <> "error" And nx(1) <> "error" Then If nx(0) < nx(1) Then '大叔在前 nx(2) = nx(0) 3 O& J! o) ?8 `8 K( X nx(0) = nx(1) nx(1) = nx(2) End If 1 B/ Z& g8 O+ {: q" u) f' p opp = truenum(nx(0), nx(1), singlenum) ' `% j+ B, Y' ]4 T1 H1 T# U; ` outf.writeline nx(opp) End If Loop . Z7 K) j0 g% S4 Z4 N. V& k End If : x* Z9 R9 d7 J1 _End Function '*************************** '这里开始运行 ! x$ R" p# R; Z* q9 Q' } ~" t'*************************** : U3 ^- W: B& {# k5 i1 Sstartprc 100, "input.txt", "output.txt" % Q# G' @2 o) c2 T* J

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

4 }; B. @$ {4 s$ e$ F3 U