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

谁能帮帮忙编出这个问题啊?
   儿童节时.两个人比赛踩汽球.汽球一百个.分别编号1~100.在相同的时间内.两个人一起去踩这100个汽球.他们的基数都为1.在踩了一个汽球后.乘上汽球的编号.再踩再乘.时间到后.两个把自己的乘到的结果报出来.分数高的人为胜.如果一方说慌.那就另一方胜了.
9 F+ j# s% |: d   但考虑到是否有人慌报数字的问题.先定义分数低的那个人是真的.因为他没必要说慌.
    因为两个人不可能踩同一个数字.所以可以根据把结果分解后的数字想比较.可以判断他们的结果有没有说慌.
" E2 a1 o& X" c+ ^+ }7 Y2 o! b    比如.A的结果是147;B的结果是49.那么.A只能是49*3,而B也只能是1*49.因为B没有说慌.所以.A说慌了.那就是B胜了.
1 T; T9 G6 h3 _4 V    又如:A的结果是486.B的结果是81.那样的话.A除了分解为81*6外.还可以分解为9*54或者3*9*18等.而B.可以由1*81得到.也可以由3*27.A和B至少存在一组不重叠的编号.所以.分数高的A就胜了.
( Z; H, `0 Y7 K* T, g   具体输入输入如:
Input
343     49
3599   610
3 l4 m; Y. l7 Z$ |62       36
4 N, o* S5 _: n( ~+ G' R; b/ z
4 y  G: P8 @; P) i' nOutput
7 A- z  H9 v; d9 S- o49
610
62

唐明

这个代码就你局的例子都没有问题 * Q8 k. z1 ^/ L' _9 ?+ ]8 C保存为.vbs文件 6 Y$ I2 U; J0 e; ]# J- h. c3 ^Function scanfnum(hfile) '从文件中读取一个数字 4 U7 L( W: R) t& @ Dim s, n, n_end n = "" ! n4 ^: K5 T7 u7 x1 P# \* \& k* F s = "" # g9 \1 x3 q1 V8 E9 C) Z 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 ) m) P. `" w/ c( `& G4 e4 N d_end = True ) s7 k9 d6 e4 l! S: _; {2 T Exit Do ! P) k" o. ]2 A7 s& n% a* T5 Q End If " S4 M7 \5 z! [ I) L s = hfile.read(1) 2 _! c) a# j4 A, ]2 t- x Loop If d_end Then Exit Do If s >= "0" And s <= "9" Then n = n + s $ F8 ^- R, d+ |9 e2 }/ K( s( r n_end = True 6 n K$ S& {' F$ C% X+ n End If % N) e: v" {2 V4 A/ y* k+ d Loop If n = "" Then scanfnum = "error" Else scanfnum = CInt(n) ( A- E! E9 r$ X2 j! ^, \End Function Function truenum(n1, n2, vx) ' ↑存储分数的书组 1 [% J0 ?: @4 b8 s1 n. P' E8 U; U/ K '默认n1>n2 $ k. h) w4 |9 y& N Dim p, v1, v2 v1 = n1 v2 = n2 H6 N8 D9 V4 C4 V- x- @. m7 M '下面把v1拆份成为每个数字尽可能大，数量尽可能少的组合 p = 100 # }1 j) L8 @6 \ Do While v1 > 1 And p > 1 If v1 Mod vx(p) = 0 Then . \) M8 c9 Z4 K! ?- C( J' T/ j; A v1 = v1 \ vx(p) vx(p) = 0 '用过的数字设置0 ; H8 {) g) g9 N; K End If p = p - 1 Loop $ {4 S! A' ]2 q0 c7 l- a/ y. { '下面一样尝试把v2拆份成为每个数字尽可能大，数量尽可能少的组合，但是v1用过的数字不能再用 p = 100 Do While v2 > 1 And p > 1 If vx(p) <> 0 Then If v2 Mod vx(p) = 0 Then ( m4 |1 l4 }3 F [! m v2 = v2 \ vx(p) $ \ G1 ^* K# e+ j vx(p) = 0 8 V. V, @) E: y End If ; `+ `+ Y! @/ \, c End If p = p - 1 7 h; G. s* y! q: I0 t- H- I$ w Loop '查分成功则结果v2应该是1,如果v1占用了v2必需的数字就会拆份失败 , z! }5 q5 ?0 `3 {( p& c9 x6 A If v2 = 1 Then truenum = 0 Else truenum = 1 ! G2 p% ^' o: K( e% U7 HEnd Function . H7 R2 [ b: }( S. _6 i 1 t- G: p% G1 U. k4 h8 MFunction startprc(n, inpath, outpath) ! C6 M& b5 ~" p; E ' ↑气球个数 ' ↑输入文件路径 " X i: S w' r6 ]' E& d ' ↑输出文件路径 $ N& A2 |/ t7 O& [ Dim nx(2), singlenum(), cnt % S4 A2 f, d& t0 T0 j ReDim singlenum(n) ' R1 ], W: J& _2 P Set fso = CreateObject("scripting.filesystemobject") If fso.fileexists(inpath) Then Set inf = fso.opentextfile(inpath) - C& v- f9 O" P# m! X4 ~6 J Set outf = fso.createtextfile(outpath, 1) Do While Not (inf.AtEndOfStream) For i = 1 To n singlenum(i) = i '写入每个球的分数 / o" b# \: |% f2 C Next . n2 S% }8 g: Y' E) u' m3 V '读取两个数 nx(0) = scanfnum(inf) nx(1) = scanfnum(inf) 5 o: W7 P3 Y D1 W5 ^ P If nx(0) <> "error" And nx(1) <> "error" Then If nx(0) < nx(1) Then + x/ l+ e5 l7 u. ]9 s' J '大叔在前 nx(2) = nx(0) ( f( q0 z- v) d nx(0) = nx(1) nx(1) = nx(2) - z' M) L1 b: v8 I( C/ Q' a% g End If , H% A! w( K% u5 N- j& P opp = truenum(nx(0), nx(1), singlenum) 0 Y# `7 n6 ] z( j p3 I outf.writeline nx(opp) ) q& B% f9 b' g7 a7 r End If ) l5 n5 @$ ^ r' I! ]2 r Loop 0 W; k4 P! e& O# K End If ! v) J/ r6 f: X+ o4 FEnd Function '*************************** * W7 Y8 I2 W5 o! r'这里开始运行 ! G/ s# ~1 s* z3 D0 p5 u'*************************** startprc 100, "input.txt", "output.txt" - _* u# q8 n3 s$ b2 ~7 H # d" j( \1 x! ~2 M3 C 3 h# C2 A" b& [3 K; c" `6 h+ }& } * u) o" C1 n! r, q7 G

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

$ p2 C, Y& O5 F* ^0 n7 ^