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

谁能帮帮忙编出这个问题啊?
   儿童节时.两个人比赛踩汽球.汽球一百个.分别编号1~100.在相同的时间内.两个人一起去踩这100个汽球.他们的基数都为1.在踩了一个汽球后.乘上汽球的编号.再踩再乘.时间到后.两个把自己的乘到的结果报出来.分数高的人为胜.如果一方说慌.那就另一方胜了.
4 q$ H+ ]" I: l3 x4 l# n   但考虑到是否有人慌报数字的问题.先定义分数低的那个人是真的.因为他没必要说慌.
    因为两个人不可能踩同一个数字.所以可以根据把结果分解后的数字想比较.可以判断他们的结果有没有说慌.
8 T; s: y9 }3 g; [    比如.A的结果是147;B的结果是49.那么.A只能是49*3,而B也只能是1*49.因为B没有说慌.所以.A说慌了.那就是B胜了.
8 K1 L5 P5 }7 F8 G; ?    又如:A的结果是486.B的结果是81.那样的话.A除了分解为81*6外.还可以分解为9*54或者3*9*18等.而B.可以由1*81得到.也可以由3*27.A和B至少存在一组不重叠的编号.所以.分数高的A就胜了.
   具体输入输入如:
Input
343     49
3599   610
62       36
3 c. W( I2 F+ }) C6 n" S" E1 C) t$ ?+ ]
Output
49
& N5 M1 ^  b/ Y' [/ w* ^5 M610
2 ?$ g6 T: _9 M+ m62

唐明

这个代码就你局的例子都没有问题 ; @* @" E4 Z6 H2 x保存为.vbs文件 Function scanfnum(hfile) $ h6 I6 r' `& @ '从文件中读取一个数字 Dim s, n, n_end : E% F% m7 o5 U: j! R: I, R n = "" s = "" n_end = False d_end = False Do While Not (hfile.AtEndOfStream) s = hfile.read(1) 1 x# z2 Q* k# M+ e Do While (s < "0" Or s > "9") And (Not (hfile.AtEndOfStream)) If n_end = True Then d_end = True Exit Do 4 \( _, ~$ ^3 `0 L5 Q End If [& b8 L6 x8 E! n e" [ s = hfile.read(1) Loop 1 O, S( E6 _6 r" J$ Z8 B! C* |5 u" W( i If d_end Then Exit Do 1 B+ m) D" S$ y If s >= "0" And s <= "9" Then 2 o7 q$ n9 E" t n = n + s n_end = True ' F, \! ?$ ^" ^ End If 3 Z7 Y! A- j; k. ?9 w2 S Loop If n = "" Then scanfnum = "error" Else scanfnum = CInt(n) End Function Function truenum(n1, n2, vx) 9 H7 z. f9 I% K! |) ^- m ' ↑存储分数的书组 $ Q: y# T; t4 T( N '默认n1>n2 ' ?# C1 C6 h* J; ?: p0 p& P0 v Dim p, v1, v2 5 ]3 j4 ^" ]6 R2 \3 t v1 = n1 f+ `( F# V: t- ^4 c8 F+ O v2 = n2 '下面把v1拆份成为每个数字尽可能大，数量尽可能少的组合 ' j0 S0 }4 K' V G- i* A, p* m p = 100 " p/ U% Z* K! N: X- F) ` ]0 z Do While v1 > 1 And p > 1 7 w7 A9 J9 { ~% P |( C- h7 d If v1 Mod vx(p) = 0 Then + p4 o1 n( }. r* l$ ~1 z v1 = v1 \ vx(p) vx(p) = 0 '用过的数字设置0 - r4 l0 `/ ?7 n End If p = p - 1 Loop ) R) B/ q6 w& {/ _; q1 ~ '下面一样尝试把v2拆份成为每个数字尽可能大，数量尽可能少的组合，但是v1用过的数字不能再用 p = 100 , y4 T+ i7 i, Q2 a# ~0 C) ~3 V Do While v2 > 1 And p > 1 If vx(p) <> 0 Then 2 h7 Y- @2 T* L9 x If v2 Mod vx(p) = 0 Then v2 = v2 \ vx(p) vx(p) = 0 End If ; S2 x+ i/ s5 y/ o3 Y8 W End If , U4 Q: `6 D" l. m( w1 Q( K! R p = p - 1 Loop '查分成功则结果v2应该是1,如果v1占用了v2必需的数字就会拆份失败 3 t/ S8 q7 d8 @5 G If v2 = 1 Then truenum = 0 Else truenum = 1 & H) i, @: t! n* YEnd Function . m+ K4 _/ r8 F) \6 V' T 5 a ~5 p2 H4 W/ D; e* e6 g0 QFunction startprc(n, inpath, outpath) ! J" n" g3 u7 r2 c ' ↑气球个数 ) f" P* i. L+ _* C M ' ↑输入文件路径 ' ↑输出文件路径 & I. w1 S7 f+ c, C9 H' C8 N Dim nx(2), singlenum(), cnt ReDim singlenum(n) * Y* H' x/ D# P8 g9 @& W0 J Set fso = CreateObject("scripting.filesystemobject") . ?( S& h1 B' @, a2 u If fso.fileexists(inpath) Then - y }/ F: h$ {, n$ ` Set inf = fso.opentextfile(inpath) Set outf = fso.createtextfile(outpath, 1) 3 G6 ?! ^: o+ D6 w3 K0 h Do While Not (inf.AtEndOfStream) For i = 1 To n ( m3 p6 H. B) g5 Q' R singlenum(i) = i '写入每个球的分数 : t k o" `5 ` F2 f% ^ Next '读取两个数 nx(0) = scanfnum(inf) ' m1 a. c, L3 ]. t5 | nx(1) = scanfnum(inf) If nx(0) <> "error" And nx(1) <> "error" Then " g* ?5 L1 j, J If nx(0) < nx(1) Then '大叔在前 ! W% T, ]) |1 u& D7 D nx(2) = nx(0) ) c c, e) Y: s& x/ \ nx(0) = nx(1) " x" D6 e: Q9 O/ W9 M [ nx(1) = nx(2) End If t/ `3 a0 H2 N& _2 \ opp = truenum(nx(0), nx(1), singlenum) outf.writeline nx(opp) End If Loop End If End Function '*************************** '这里开始运行 2 ^1 i! A( r1 r- ~ f'*************************** 2 D! g9 |. |4 dstartprc 100, "input.txt", "output.txt" 4 C; g) Y! t" m) {6 D5 L 5 ~: G/ {4 v7 k

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