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

谁能帮帮忙编出这个问题啊?
* o& o6 o$ U* j/ F7 P   儿童节时.两个人比赛踩汽球.汽球一百个.分别编号1~100.在相同的时间内.两个人一起去踩这100个汽球.他们的基数都为1.在踩了一个汽球后.乘上汽球的编号.再踩再乘.时间到后.两个把自己的乘到的结果报出来.分数高的人为胜.如果一方说慌.那就另一方胜了.
; w5 m% Z0 q6 E$ v' W   但考虑到是否有人慌报数字的问题.先定义分数低的那个人是真的.因为他没必要说慌.
3 z( V! l8 Q$ g; \1 V! y    因为两个人不可能踩同一个数字.所以可以根据把结果分解后的数字想比较.可以判断他们的结果有没有说慌.
' U& u$ K& w! P. i    比如.A的结果是147;B的结果是49.那么.A只能是49*3,而B也只能是1*49.因为B没有说慌.所以.A说慌了.那就是B胜了.
    又如:A的结果是486.B的结果是81.那样的话.A除了分解为81*6外.还可以分解为9*54或者3*9*18等.而B.可以由1*81得到.也可以由3*27.A和B至少存在一组不重叠的编号.所以.分数高的A就胜了.
   具体输入输入如:
, F" h1 W8 Y! {1 w, z/ o' vInput
343     49
( H  h" F, J; W% p: o3599   610
62       36

Output
8 q# {: t) I( F4 [" e3 ~49
" s: r. V- S* J" i. l610
/ Y0 x8 z4 m3 C: L5 q9 P" {62

唐明

这个代码就你局的例子都没有问题 ' a( |/ z. {: e- @! V" Q1 R! Y! N保存为.vbs文件 Function scanfnum(hfile) '从文件中读取一个数字 Dim s, n, n_end n = "" s = "" n_end = False d_end = False Do While Not (hfile.AtEndOfStream) # b/ V! @ Y9 w6 D# z; E: i n s = hfile.read(1) Do While (s < "0" Or s > "9") And (Not (hfile.AtEndOfStream)) ) {: ]6 o4 ]% C If n_end = True Then d_end = True Exit Do 4 Y3 m: p: I; b* V End If s = hfile.read(1) % S* V" y* o: N3 K0 u) F Loop # e: B" M% u! Z) w1 H If d_end Then Exit Do % U, F* D+ i8 |& n& t7 P2 Y8 {6 S" o If s >= "0" And s <= "9" Then n = n + s 2 ? O- S( p5 K n_end = True % v/ R6 l- `. F" U6 V4 w* X End If / g- Y3 w% Z4 d& U* o0 E7 a6 g Loop " }( ]( u8 |5 e$ _* J0 F% M( S/ p( g# d If n = "" Then scanfnum = "error" Else scanfnum = CInt(n) # R" b9 I. T4 ?4 e4 E, E TEnd Function 4 e: l6 d9 F& B0 a3 \) _: G$ J Function truenum(n1, n2, vx) ' ↑存储分数的书组 '默认n1>n2 Dim p, v1, v2 9 Q9 R; A4 y b2 [- @ Q- |5 b v1 = n1 $ s; n8 ~& v5 l9 U& Y7 H v2 = n2 '下面把v1拆份成为每个数字尽可能大，数量尽可能少的组合 . A a( S2 k. T9 w: _ p = 100 J/ g7 q" ~2 ~ Do While v1 > 1 And p > 1 + X5 L8 q! T7 K' L If v1 Mod vx(p) = 0 Then * B+ n& |; R5 T# e$ z6 G. A2 } v1 = v1 \ vx(p) vx(p) = 0 '用过的数字设置0 ) d& A% V3 j4 |) q* H8 ? End If p = p - 1 Loop '下面一样尝试把v2拆份成为每个数字尽可能大，数量尽可能少的组合，但是v1用过的数字不能再用 7 q# l* B2 `& O3 P7 W p = 100 % X1 E6 }) O+ x& r8 u6 M Do While v2 > 1 And p > 1 If vx(p) <> 0 Then If v2 Mod vx(p) = 0 Then . I& }& P! }: u/ X" f M1 m- m v2 = v2 \ vx(p) 8 L! W2 x& O( `; R& r vx(p) = 0 End If . Z$ a6 Z- [+ K# V6 g End If p = p - 1 ' Y8 O( O9 P& Y5 o0 t Loop '查分成功则结果v2应该是1,如果v1占用了v2必需的数字就会拆份失败 If v2 = 1 Then truenum = 0 Else truenum = 1 * s% x4 ]& N8 q" U1 }9 B+ D8 x' EEnd Function Function startprc(n, inpath, outpath) & @; @5 R$ U8 A4 T6 @ ' ↑气球个数 ' C5 b2 n* M3 U6 e5 I ' ↑输入文件路径 " E- t. A7 `1 w3 L: \& R ' ↑输出文件路径 Dim nx(2), singlenum(), cnt & A9 I8 `5 ~5 b# o5 y' _8 h9 D ReDim singlenum(n) ! v4 C. v8 W( w# C* i Set fso = CreateObject("scripting.filesystemobject") If fso.fileexists(inpath) Then Set inf = fso.opentextfile(inpath) Set outf = fso.createtextfile(outpath, 1) " r9 D/ E( l& H Do While Not (inf.AtEndOfStream) For i = 1 To n $ T+ r& J$ K$ e8 W- V8 q singlenum(i) = i '写入每个球的分数 Next '读取两个数 2 \3 r, i4 z' y+ Q nx(0) = scanfnum(inf) ( e# ^" P! U* q0 i nx(1) = scanfnum(inf) If nx(0) <> "error" And nx(1) <> "error" Then If nx(0) < nx(1) Then ! B& s( a. z0 q/ O '大叔在前 6 Q5 q6 o: e# P nx(2) = nx(0) nx(0) = nx(1) ; B- X6 i% @7 }8 z! C5 R, d nx(1) = nx(2) # {# D: X; k; H/ I, V6 t End If , ]9 U( x7 v& O+ r opp = truenum(nx(0), nx(1), singlenum) outf.writeline nx(opp) / K6 ?- S1 w% c @* m" R End If 9 e. R( }* F9 E, Z Loop 4 V. M7 c9 ?" ^* y! K& l End If End Function '*************************** " v' a) B5 _8 t& f+ {'这里开始运行 ( l* c* z; e2 Y7 e6 s'*************************** startprc 100, "input.txt", "output.txt" ' t& C% x' g$ y4 L / ]3 ?; L6 [' i, f

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

. m, c8 u1 ^* `7 R