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

谁能帮帮忙编出这个问题啊?
0 `4 j) v# J5 N/ F) o   儿童节时.两个人比赛踩汽球.汽球一百个.分别编号1~100.在相同的时间内.两个人一起去踩这100个汽球.他们的基数都为1.在踩了一个汽球后.乘上汽球的编号.再踩再乘.时间到后.两个把自己的乘到的结果报出来.分数高的人为胜.如果一方说慌.那就另一方胜了.
- G3 h' l+ `8 U   但考虑到是否有人慌报数字的问题.先定义分数低的那个人是真的.因为他没必要说慌.
    因为两个人不可能踩同一个数字.所以可以根据把结果分解后的数字想比较.可以判断他们的结果有没有说慌.
, k- z: h& t: n  N6 C) a    比如.A的结果是147;B的结果是49.那么.A只能是49*3,而B也只能是1*49.因为B没有说慌.所以.A说慌了.那就是B胜了.
6 z" J' _6 g) M    又如:A的结果是486.B的结果是81.那样的话.A除了分解为81*6外.还可以分解为9*54或者3*9*18等.而B.可以由1*81得到.也可以由3*27.A和B至少存在一组不重叠的编号.所以.分数高的A就胜了.
, B1 a: R4 W6 ~8 z' {/ ]2 x) Z0 d   具体输入输入如:
Input
5 b* c1 Y$ E' t343     49
9 a" g7 a* A" ~3 C; o* E3599   610
8 E4 L; b$ K; g( Z1 Z3 N62       36

Output
) ?3 [  D" s, a0 O49
610
9 Z# T: V6 J9 P2 }- F) ^62

唐明

这个代码就你局的例子都没有问题 保存为.vbs文件 Function scanfnum(hfile) '从文件中读取一个数字 8 O# m v5 Q, m Dim s, n, n_end 4 A5 x2 f+ ~6 @" J2 \5 h n = "" , k6 \. L q- c6 V& o6 R$ M$ | s = "" n_end = False d_end = False " ?) A5 k3 H8 \" n+ D) J Do While Not (hfile.AtEndOfStream) P$ F8 c: S0 G s = hfile.read(1) Do While (s < "0" Or s > "9") And (Not (hfile.AtEndOfStream)) ) s* m" U# t9 R: e. y If n_end = True Then 7 |4 Z. o* q* U% e d_end = True Exit Do 1 R- V- m7 J2 Q9 m8 z: L) F4 r& c5 a End If s = hfile.read(1) & ?2 R5 ]- p$ G Loop If d_end Then Exit Do If s >= "0" And s <= "9" Then $ j" P9 \! m# d n = n + s n_end = True End If ( \6 ]& F8 W: u2 J& N Loop * N! V9 r% U+ L7 R# g2 X If n = "" Then scanfnum = "error" Else scanfnum = CInt(n) End Function ) k) z( b9 C5 f/ ~. ?3 Q* Z9 zFunction truenum(n1, n2, vx) ' ↑存储分数的书组 ; ?) D$ R/ Q2 g. R4 y$ E! ] '默认n1>n2 : Y* W% g$ Z( J9 ~& N, E* y Dim p, v1, v2 6 \; Q4 u0 ~6 U6 a v1 k$ Q v1 = n1 v2 = n2 '下面把v1拆份成为每个数字尽可能大，数量尽可能少的组合 ) L# O5 n+ H5 N7 }! H p = 100 4 A5 b" |' N9 c* I Do While v1 > 1 And p > 1 If v1 Mod vx(p) = 0 Then 6 `- L6 ]7 P9 \( d2 D6 m1 P v1 = v1 \ vx(p) vx(p) = 0 '用过的数字设置0 End If p = p - 1 Loop '下面一样尝试把v2拆份成为每个数字尽可能大，数量尽可能少的组合，但是v1用过的数字不能再用 1 J" h+ @, u& K" P/ g p = 100 ) h- W9 w" q2 z1 C8 l Do While v2 > 1 And p > 1 If vx(p) <> 0 Then / k$ x4 Q5 W1 a If v2 Mod vx(p) = 0 Then 1 G$ ~6 _, y4 t* Q e v2 = v2 \ vx(p) ) C0 @) H* [5 [4 f vx(p) = 0 End If End If : e1 @+ D* ^8 n) A p = p - 1 Loop # b9 B& g$ g9 J7 D O5 ^* C '查分成功则结果v2应该是1,如果v1占用了v2必需的数字就会拆份失败 3 L4 u) G% Q( H$ u& m9 R, x If v2 = 1 Then truenum = 0 Else truenum = 1 a, F' y/ K7 N" X0 YEnd Function 0 |! Z8 x+ Q/ ?; M8 q+ a" T . f! y; o- g1 g: w7 I! m [# ], RFunction startprc(n, inpath, outpath) ' ↑气球个数 ' ↑输入文件路径 . z' Q0 P- G. E, ~ ' ↑输出文件路径 Dim nx(2), singlenum(), cnt ReDim singlenum(n) - |/ l6 k: I# I( o8 I 6 X# ?% i. A, f Set fso = CreateObject("scripting.filesystemobject") ' {4 A& ?* h) E# p7 |: r/ Y If fso.fileexists(inpath) Then Set inf = fso.opentextfile(inpath) # d. V5 ?: A7 y" ]1 A Set outf = fso.createtextfile(outpath, 1) Do While Not (inf.AtEndOfStream) For i = 1 To n singlenum(i) = i '写入每个球的分数 Next '读取两个数 # s, f% ^3 K8 p. _0 U# [ nx(0) = scanfnum(inf) nx(1) = scanfnum(inf) If nx(0) <> "error" And nx(1) <> "error" Then If nx(0) < nx(1) Then '大叔在前 ' _! N( T) B4 y- s) M nx(2) = nx(0) 6 K8 z6 b( i* W9 \ Q& Z& ` nx(0) = nx(1) nx(1) = nx(2) 0 @) K( k7 e; J" {% L( L0 P End If opp = truenum(nx(0), nx(1), singlenum) outf.writeline nx(opp) , Q( H' Y& H0 D; | End If * H+ \. c4 }6 o; [: ~; `1 z; V Loop 4 \% z7 [, }$ \# h; l3 P$ G8 n( U End If ) w0 |7 s1 |' Y3 ?End Function '*************************** # N, Q! Z( U6 K'这里开始运行 '*************************** startprc 100, "input.txt", "output.txt" & X+ v' m) @" l" ^2 Z, ^ 2 f; j) {4 G, Q' O5 x# E" g

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