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

谁能帮帮忙编出这个问题啊?
& {1 k9 i) w2 @# _! }( c: j   儿童节时.两个人比赛踩汽球.汽球一百个.分别编号1~100.在相同的时间内.两个人一起去踩这100个汽球.他们的基数都为1.在踩了一个汽球后.乘上汽球的编号.再踩再乘.时间到后.两个把自己的乘到的结果报出来.分数高的人为胜.如果一方说慌.那就另一方胜了.
   但考虑到是否有人慌报数字的问题.先定义分数低的那个人是真的.因为他没必要说慌.
* k5 y- H# ?! A0 G+ l2 A: {    因为两个人不可能踩同一个数字.所以可以根据把结果分解后的数字想比较.可以判断他们的结果有没有说慌.
    比如.A的结果是147;B的结果是49.那么.A只能是49*3,而B也只能是1*49.因为B没有说慌.所以.A说慌了.那就是B胜了.
) @9 |3 V, s$ v" S) v    又如:A的结果是486.B的结果是81.那样的话.A除了分解为81*6外.还可以分解为9*54或者3*9*18等.而B.可以由1*81得到.也可以由3*27.A和B至少存在一组不重叠的编号.所以.分数高的A就胜了.
   具体输入输入如:
' t; R, j# V. `( [5 u& |Input
343     49
3 E! S  Z0 C. }2 R3599   610
62       36

  T) V% d& C) ?Output
49
  Z$ h/ }% }! A* S# S1 j610
62

唐明

这个代码就你局的例子都没有问题 保存为.vbs文件 $ s- T" Q1 @) M" {) H B, U4 C J, `Function scanfnum(hfile) '从文件中读取一个数字 / D8 |; B# b5 F) R0 J Dim s, n, n_end 7 ?& |5 U* n( x; \+ q: T n = "" s = "" n_end = False j: K, C% k: W, ^! a d_end = False Do While Not (hfile.AtEndOfStream) ) Q' J% Y" x. A- \! j4 @3 ^ s = hfile.read(1) ; @( `7 J0 Z4 R+ |" O: p Do While (s < "0" Or s > "9") And (Not (hfile.AtEndOfStream)) If n_end = True Then _: k ^8 E& s: j d_end = True Exit Do End If s = hfile.read(1) ' I9 ?% }9 D, z0 V* B3 U" {2 v( V Loop 9 M$ g( c" u# E% C/ X/ Q+ g If d_end Then Exit Do If s >= "0" And s <= "9" Then n = n + s n_end = True End If Loop ( q6 p, k+ [2 [: A6 [) R; a If n = "" Then scanfnum = "error" Else scanfnum = CInt(n) End Function ' x+ e6 N9 U( nFunction truenum(n1, n2, vx) ' ↑存储分数的书组 $ z) }3 | r3 ]) ?" ] '默认n1>n2 Dim p, v1, v2 v1 = n1 v2 = n2 '下面把v1拆份成为每个数字尽可能大，数量尽可能少的组合 p = 100 Do While v1 > 1 And p > 1 If v1 Mod vx(p) = 0 Then v1 = v1 \ vx(p) vx(p) = 0 '用过的数字设置0 End If p = p - 1 $ A2 g$ I9 x) P3 ~ Loop 8 J2 ]. ]1 F' Y# \9 R4 K0 `3 @. Z2 T '下面一样尝试把v2拆份成为每个数字尽可能大，数量尽可能少的组合，但是v1用过的数字不能再用 p = 100 Do While v2 > 1 And p > 1 If vx(p) <> 0 Then If v2 Mod vx(p) = 0 Then - r& T/ L: h! @7 f$ F v2 = v2 \ vx(p) + w) I5 E/ M4 ~) E& v vx(p) = 0 End If $ H6 ^! r5 w2 M6 n8 i" k5 a End If 0 Z" S: z6 p1 g; }" F7 q) [2 {9 q p = p - 1 9 D S7 O U. `$ m3 ] Loop 7 y$ H1 k& X2 Y$ V5 @+ P* I6 J, Q! S0 l '查分成功则结果v2应该是1,如果v1占用了v2必需的数字就会拆份失败 If v2 = 1 Then truenum = 0 Else truenum = 1 P1 U* N. B# I6 HEnd Function # ^; k0 [! |) ?* ZFunction startprc(n, inpath, outpath) ' ↑气球个数 [. v3 E0 Z+ Q+ u" B- M+ i* i ' ↑输入文件路径 ' ↑输出文件路径 Dim nx(2), singlenum(), cnt : v6 k& r: ]. w. d5 L, p9 K' j8 B ReDim singlenum(n) # B: H( l5 P, |$ H- N Set fso = CreateObject("scripting.filesystemobject") $ P, i5 x5 h9 `5 s- L' D If fso.fileexists(inpath) Then Set inf = fso.opentextfile(inpath) Set outf = fso.createtextfile(outpath, 1) Do While Not (inf.AtEndOfStream) " M- f& j8 `. v8 ?, p For i = 1 To n ( ?! i0 i3 x0 X* }# ~ z% O singlenum(i) = i '写入每个球的分数 5 D0 }: o% t& n2 I$ i5 j Next V6 e3 c8 i: x% `) p; G+ g% z '读取两个数 nx(0) = scanfnum(inf) 8 W" l: @5 H: s% p! K nx(1) = scanfnum(inf) ( k2 h3 d7 E6 Z0 K% E0 y If nx(0) <> "error" And nx(1) <> "error" Then . ]% i7 d# c% C+ G, ]6 N- n( R If nx(0) < nx(1) Then '大叔在前 nx(2) = nx(0) nx(0) = nx(1) nx(1) = nx(2) ( `7 F, Q, E% N) w1 u! R6 t End If g4 B3 H }5 Y% K opp = truenum(nx(0), nx(1), singlenum) outf.writeline nx(opp) 7 R+ A" S) l# v. C% Y* [ End If Loop - u3 g9 a- R, \ End If End Function '*************************** 5 F! n5 Q5 H# ]: d'这里开始运行 '*************************** 7 ]0 Q) g. |8 f1 [* ]4 F+ }startprc 100, "input.txt", "output.txt" 6 u. @. g. m& Z; [$ ?: x. } 1 B& m6 t4 G; s* c1 y7 J2 c / r0 s; f* m# o5 a) ` y

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

+ f* \& e+ {! V% W8 F( L+ v, b