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

谁能帮帮忙编出这个问题啊?
   儿童节时.两个人比赛踩汽球.汽球一百个.分别编号1~100.在相同的时间内.两个人一起去踩这100个汽球.他们的基数都为1.在踩了一个汽球后.乘上汽球的编号.再踩再乘.时间到后.两个把自己的乘到的结果报出来.分数高的人为胜.如果一方说慌.那就另一方胜了.
   但考虑到是否有人慌报数字的问题.先定义分数低的那个人是真的.因为他没必要说慌.
    因为两个人不可能踩同一个数字.所以可以根据把结果分解后的数字想比较.可以判断他们的结果有没有说慌.
1 ?! \" X$ b' H1 Y' X7 }5 s7 @    比如.A的结果是147;B的结果是49.那么.A只能是49*3,而B也只能是1*49.因为B没有说慌.所以.A说慌了.那就是B胜了.
4 g0 m7 w; s) W: Q4 l    又如:A的结果是486.B的结果是81.那样的话.A除了分解为81*6外.还可以分解为9*54或者3*9*18等.而B.可以由1*81得到.也可以由3*27.A和B至少存在一组不重叠的编号.所以.分数高的A就胜了.
   具体输入输入如:
, C! T3 f! u$ C- GInput
343     49
9 Y& \. e2 x' A& w. H- Z1 W3599   610
; T6 r  S$ F( R' }$ c$ ~62       36
, d8 ~% ?( s8 L: n, A# E) y
4 N' d6 j) Q# L6 Q  k1 QOutput
/ o( B- G! E# K1 u4 ]7 T49
610
: W+ O& F9 o5 t: c: P8 Y+ c# D62

唐明

这个代码就你局的例子都没有问题 保存为.vbs文件 # h/ b* ?3 h! i/ \" ` Function scanfnum(hfile) 0 L! L( a+ ]" @1 Z" X* q '从文件中读取一个数字 3 ~1 _5 A. W2 u7 y# g$ w7 @ D Dim s, n, n_end n = "" : d/ j+ r/ Q6 T. a2 r+ g* t0 o s = "" * Q7 V) D6 l8 S8 Z$ y; W n_end = False d_end = False - @* ]! R9 m# G- J9 c5 n3 M Do While Not (hfile.AtEndOfStream) " |, d$ b8 s4 \' U8 z* s6 { s = hfile.read(1) . I& J9 E' C( `+ G& o, H7 o Do While (s < "0" Or s > "9") And (Not (hfile.AtEndOfStream)) If n_end = True Then ) S! G- e- `; `, i' V7 [! W2 a d_end = True Exit Do + ~% W- g; O& H, ^' w: y End If s = hfile.read(1) + [. Y; g; r' N. ^" e. }, n8 L Loop * Z! `# Y# K# d! E- h: h' {' j' c If d_end Then Exit Do 6 l2 Z! j, k* X4 @% u* ? If s >= "0" And s <= "9" Then ( M m( q9 i# V3 ?: r- Y/ N n = n + s 1 [1 Y+ ?$ c3 ]$ ? n_end = True End If |5 @& U& ]& M( q4 v, X g' m Loop 6 n/ K/ {, O- I$ s- w. O If n = "" Then scanfnum = "error" Else scanfnum = CInt(n) End Function y1 E" y- F/ z9 h1 j, W; s & w$ W$ r' E3 T. ^Function truenum(n1, n2, vx) & l9 Z; } o3 t2 K, j ' ↑存储分数的书组 '默认n1>n2 Dim p, v1, v2 8 I h( n A3 k# a0 V9 W$ ]( s v1 = n1 v2 = n2 '下面把v1拆份成为每个数字尽可能大，数量尽可能少的组合 p = 100 : n/ g* I( ]5 q! K# B6 O Do While v1 > 1 And p > 1 If v1 Mod vx(p) = 0 Then 8 q; d! V5 c6 a* X v1 = v1 \ vx(p) - X1 }, F! w* q* H vx(p) = 0 '用过的数字设置0 e n* {5 d. H6 w* \. d' Y: E8 | M End If ' s) g* \, O/ e5 a1 y p = p - 1 " @# d5 N$ b/ }4 u8 F' R Loop '下面一样尝试把v2拆份成为每个数字尽可能大，数量尽可能少的组合，但是v1用过的数字不能再用 p = 100 Do While v2 > 1 And p > 1 If vx(p) <> 0 Then c8 S4 i' L$ T0 x If v2 Mod vx(p) = 0 Then & U a; D, d- V2 \) w; z- u v2 = v2 \ vx(p) - n7 B1 s9 G h vx(p) = 0 / t1 O" o/ _# M% P E- n9 i1 F2 t End If End If p = p - 1 Loop ; Y4 W! i0 ]! x' u '查分成功则结果v2应该是1,如果v1占用了v2必需的数字就会拆份失败 If v2 = 1 Then truenum = 0 Else truenum = 1 : f' ^8 p8 m p7 x; ]End Function / ^- G5 C" j, A+ f ( C7 B8 U6 U4 i7 ZFunction startprc(n, inpath, outpath) ' ↑气球个数 : J( j( J2 W! C Z, u& \1 V ' ↑输入文件路径 ' ↑输出文件路径 4 R, Z2 A6 T7 B9 d: R Dim nx(2), singlenum(), cnt # C' ]+ Z; x8 Z3 p9 o" Z% h% ] ReDim singlenum(n) # d" z0 ]) k; U) R9 K7 x Set fso = CreateObject("scripting.filesystemobject") ' ]8 D& ?) U3 _; ` If fso.fileexists(inpath) Then Set inf = fso.opentextfile(inpath) Set outf = fso.createtextfile(outpath, 1) Do While Not (inf.AtEndOfStream) For i = 1 To n singlenum(i) = i '写入每个球的分数 Next '读取两个数 nx(0) = scanfnum(inf) nx(1) = scanfnum(inf) If nx(0) <> "error" And nx(1) <> "error" Then If nx(0) < nx(1) Then '大叔在前 nx(2) = nx(0) / x8 g6 e, T4 p/ c# e# y nx(0) = nx(1) / l; |% Y; u! i' I' y4 o nx(1) = nx(2) . Z. J n, {# ?3 C' e End If ' E2 {* d: u- t$ L- ~7 k opp = truenum(nx(0), nx(1), singlenum) & b# N, {, @, a1 Q& e5 N6 r% P outf.writeline nx(opp) End If : R: F- d6 K( ]% C/ S: \/ [: w Loop End If : ^) x# q9 n$ I9 \" ZEnd Function '*************************** '这里开始运行 # c: P2 g. g2 _) b' e'*************************** ) g, k! Q; I; r; N; L. A, ]startprc 100, "input.txt", "output.txt" & [. p- z$ `; l2 M( Q% a 3 H& D( |/ V" g7 B% A* H/ J

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

" S+ H1 n: M8 f7 Z2 q3 L* r0 K9 n