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

谁能帮帮忙编出这个问题啊?
   儿童节时.两个人比赛踩汽球.汽球一百个.分别编号1~100.在相同的时间内.两个人一起去踩这100个汽球.他们的基数都为1.在踩了一个汽球后.乘上汽球的编号.再踩再乘.时间到后.两个把自己的乘到的结果报出来.分数高的人为胜.如果一方说慌.那就另一方胜了.
   但考虑到是否有人慌报数字的问题.先定义分数低的那个人是真的.因为他没必要说慌.
    因为两个人不可能踩同一个数字.所以可以根据把结果分解后的数字想比较.可以判断他们的结果有没有说慌.
    比如.A的结果是147;B的结果是49.那么.A只能是49*3,而B也只能是1*49.因为B没有说慌.所以.A说慌了.那就是B胜了.
    又如:A的结果是486.B的结果是81.那样的话.A除了分解为81*6外.还可以分解为9*54或者3*9*18等.而B.可以由1*81得到.也可以由3*27.A和B至少存在一组不重叠的编号.所以.分数高的A就胜了.
   具体输入输入如:
Input
& [1 L. Q' m, L$ O6 y/ z7 h343     49
7 U% i" s4 q8 U- r8 D3599   610
( n( l! L, O" J# L, K62       36
7 K) V; H: |, z, ?' z
2 N1 x" i5 r* y% X. L; nOutput
49
6 i) s/ W9 j9 l" e! T1 @. [" m610
62

唐明

这个代码就你局的例子都没有问题 7 X. ~3 {$ }- \" o保存为.vbs文件 * O7 ]! q, a: r2 p; o6 x Function scanfnum(hfile) $ U7 O5 \8 R) i# @9 H8 ?+ T '从文件中读取一个数字 V7 \4 u$ x5 J/ w Dim s, n, n_end 8 e/ s6 k% h. {2 B8 z* I- _' g n = "" ! D. n0 {3 ^" ?- W1 E s = "" ; k) C5 W' y( m8 R6 m6 [3 V. k* M9 p n_end = False - E# V L- }6 ]. a# w d_end = False : i3 ^9 G. Q* g3 a- ~0 j( h" x% O: s Do While Not (hfile.AtEndOfStream) 1 E* U! Y* @9 f6 y" @. k* U6 X s = hfile.read(1) / V, k3 o! X0 l" C+ Y Do While (s < "0" Or s > "9") And (Not (hfile.AtEndOfStream)) 1 e9 m3 b! ?2 E: ~% ? P. v& \( Q If n_end = True Then , U: R- X. E N+ B/ D! n d_end = True % K" C( B0 U4 b: r/ k) D5 ~) j Exit Do End If 2 x) a4 z" `4 n4 Q& b4 b s = hfile.read(1) Loop 0 Y4 E7 z3 N- K+ ~) ?+ o If d_end Then Exit Do # D Y7 v% A# }! x$ ] If s >= "0" And s <= "9" Then n = n + s n_end = True 8 ~% L- _! ?4 w( y7 P" C End If Loop If n = "" Then scanfnum = "error" Else scanfnum = CInt(n) : y. _6 [8 h& O, v' s 2 L; J6 @: g' REnd Function * y! X W& A# A: |- D Function truenum(n1, n2, vx) ' ↑存储分数的书组 7 C9 ?# o3 O, P. c5 D& e '默认n1>n2 + ?' k& k4 i8 v' V3 R1 [0 x; n Dim p, v1, v2 ) [6 p! U! I4 k: C v1 = n1 v2 = n2 ! b1 f: a1 N; T# ~ '下面把v1拆份成为每个数字尽可能大，数量尽可能少的组合 # b- {4 s+ y: ~# ?* X9 i4 _, `1 i p = 100 Do While v1 > 1 And p > 1 If v1 Mod vx(p) = 0 Then * n% O8 E- B5 ~0 b v1 = v1 \ vx(p) vx(p) = 0 '用过的数字设置0 End If * A) Z$ s4 D8 g( e/ S p = p - 1 4 b# I* M/ b1 @4 a8 {9 o1 v Loop '下面一样尝试把v2拆份成为每个数字尽可能大，数量尽可能少的组合，但是v1用过的数字不能再用 ( y. D/ `. {- l. W2 c. Z- Q p = 100 Do While v2 > 1 And p > 1 9 X4 \" D. W* b+ G, C7 R If vx(p) <> 0 Then 0 S+ h9 e- s& [( g$ S If v2 Mod vx(p) = 0 Then 1 j9 `8 \* R4 l& p: U9 v8 Q v2 = v2 \ vx(p) vx(p) = 0 End If End If # ~1 P5 s G9 C7 G3 d5 A p = p - 1 Loop '查分成功则结果v2应该是1,如果v1占用了v2必需的数字就会拆份失败 If v2 = 1 Then truenum = 0 Else truenum = 1 End Function " }1 h+ W) g# c+ H! J: C0 H . e/ Q1 I( }# ?/ YFunction startprc(n, inpath, outpath) ' ↑气球个数 ' ↑输入文件路径 / q* h( K7 e9 f; O0 b+ [4 k L* w ' ↑输出文件路径 ; e# h: ?5 ^4 o+ I3 h Dim nx(2), singlenum(), cnt 7 r% P' \: T* U ReDim singlenum(n) / I, x# f8 c' B0 n: @& v Set fso = CreateObject("scripting.filesystemobject") If fso.fileexists(inpath) Then y% k* K p! z8 H* C Set inf = fso.opentextfile(inpath) Set outf = fso.createtextfile(outpath, 1) Do While Not (inf.AtEndOfStream) For i = 1 To n ( _7 s4 ?3 {$ a \7 ], L& e singlenum(i) = i '写入每个球的分数 Next ; ]4 Q& P+ G: |6 L- [ '读取两个数 nx(0) = scanfnum(inf) nx(1) = scanfnum(inf) If nx(0) <> "error" And nx(1) <> "error" Then # y# D5 A2 c1 ?4 j( F6 l If nx(0) < nx(1) Then 0 I( A% J3 G/ e, Y( \2 l2 a+ P '大叔在前 " Z( \5 u E* Y# c7 `1 k4 Z nx(2) = nx(0) & k2 C6 k: ~, Z2 e2 [ ` nx(0) = nx(1) 1 L3 U5 S" G# H2 i% N nx(1) = nx(2) ' s X7 I( C* V) e1 p End If ; p$ D! @" C8 Z; Q! \ opp = truenum(nx(0), nx(1), singlenum) outf.writeline nx(opp) 2 e# D! y1 M" I' K End If Loop End If 3 q e! z m; x5 Y( uEnd Function '*************************** '这里开始运行 3 @$ X) ~; W7 M* Z9 D. Q'*************************** startprc 100, "input.txt", "output.txt" 1 I/ `2 C. v: T J / z7 [6 ^- _7 p/ l9 [0 } + p# t" H! I% q2 c

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

* c: R/ Y T6 L- f