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

谁能帮帮忙编出这个问题啊?
. L# N6 q) w5 s& u   儿童节时.两个人比赛踩汽球.汽球一百个.分别编号1~100.在相同的时间内.两个人一起去踩这100个汽球.他们的基数都为1.在踩了一个汽球后.乘上汽球的编号.再踩再乘.时间到后.两个把自己的乘到的结果报出来.分数高的人为胜.如果一方说慌.那就另一方胜了.
- g1 l2 O# b$ u! z   但考虑到是否有人慌报数字的问题.先定义分数低的那个人是真的.因为他没必要说慌.
    因为两个人不可能踩同一个数字.所以可以根据把结果分解后的数字想比较.可以判断他们的结果有没有说慌.
    比如.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就胜了.
6 y; D2 D/ Z$ @5 X: e; W4 S% e   具体输入输入如:
) X7 u( Q' V3 Z" i  Y. G3 @2 ?Input
0 o" {- @7 e2 }2 \. F' h5 B4 d/ u* D343     49
9 U4 n% A+ l* ?7 G3599   610
62       36
) g% y0 R( `9 U# _9 [% S
Output
49
610
62

唐明

这个代码就你局的例子都没有问题 保存为.vbs文件 ' r. P0 E- a- d& j1 V5 z Function scanfnum(hfile) '从文件中读取一个数字 Dim s, n, n_end n = "" ! {0 K2 ^3 s( B8 N' } s = "" L4 W4 d* I" @0 \8 k1 M$ g n_end = False 6 J- c* H+ w% v. ^% D; L3 q d_end = False Do While Not (hfile.AtEndOfStream) % y8 y- }) e, c s = hfile.read(1) ' a! `- ]! j, L" J( } Do While (s < "0" Or s > "9") And (Not (hfile.AtEndOfStream)) If n_end = True Then 2 {9 C+ x+ z. H. ^ d_end = True 0 g7 Q0 T$ k* j1 _( ]7 }% Y Exit Do + G/ |) {4 P" w End If s = hfile.read(1) % B) F* s/ r" d: y- C& e Loop If d_end Then Exit Do If s >= "0" And s <= "9" Then n = n + s n_end = True 8 ], p' B9 }/ L End If , n1 A0 U+ A! e! ? Loop # W7 H; I& d9 E8 F' M If n = "" Then scanfnum = "error" Else scanfnum = CInt(n) ( y H* ~* [, A7 o Z5 K6 N$ j, g% ]+ d# xEnd Function , e2 E1 ? g3 f7 O( D; LFunction truenum(n1, n2, vx) w0 c. q; k2 ^+ ?4 r ' ↑存储分数的书组 '默认n1>n2 Dim p, v1, v2 * C A3 U* m9 T& P8 q8 o2 ^5 y3 I v1 = n1 3 _8 @1 J# ?6 x2 N( N! L v2 = n2 '下面把v1拆份成为每个数字尽可能大，数量尽可能少的组合 9 X2 [- v2 K% `% k p = 100 Do While v1 > 1 And p > 1 If v1 Mod vx(p) = 0 Then v1 = v1 \ vx(p) - ?1 g# h/ w4 H! E& ~7 |$ h vx(p) = 0 '用过的数字设置0 + M/ L7 \( j* O* e1 k, U! ^5 W End If , m' U3 Q7 s4 D. I% W( j- m p = p - 1 Loop '下面一样尝试把v2拆份成为每个数字尽可能大，数量尽可能少的组合，但是v1用过的数字不能再用 p = 100 Do While v2 > 1 And p > 1 6 L/ x, y6 m( a9 z" h If vx(p) <> 0 Then 6 h, {* a5 b. S2 j* \1 G& V; g- d; j$ o If v2 Mod vx(p) = 0 Then v2 = v2 \ vx(p) vx(p) = 0 / c. q2 f( j. n End If 3 U$ i8 w3 a( H" T2 @ End If p = p - 1 Loop '查分成功则结果v2应该是1,如果v1占用了v2必需的数字就会拆份失败 If v2 = 1 Then truenum = 0 Else truenum = 1 End Function ! J% _/ J |' x% f* n3 a; d 3 }8 l0 G( f: z( w8 yFunction startprc(n, inpath, outpath) ' ↑气球个数 / b- H& N/ m6 O3 z$ F* w ' ↑输入文件路径 3 R+ ~3 O6 p M4 o ' ↑输出文件路径 Dim nx(2), singlenum(), cnt , i9 V5 ~! q! S( L4 }" a% w ReDim singlenum(n) % J9 ~, i; L+ z8 M # E# i* x& O: x' B1 t; T# w- m Set fso = CreateObject("scripting.filesystemobject") If fso.fileexists(inpath) Then Set inf = fso.opentextfile(inpath) Set outf = fso.createtextfile(outpath, 1) ) ?) q6 E% |/ H* [& N Do While Not (inf.AtEndOfStream) % E) }/ W% z' Z3 A For i = 1 To n , |7 ~8 W' a1 o) R7 h singlenum(i) = i '写入每个球的分数 * ^ e8 F6 _/ A5 Q/ N; m Next '读取两个数 nx(0) = scanfnum(inf) h# r- {- C/ L nx(1) = scanfnum(inf) If nx(0) <> "error" And nx(1) <> "error" Then If nx(0) < nx(1) Then '大叔在前 nx(2) = nx(0) nx(0) = nx(1) nx(1) = nx(2) 4 q; Q6 I: |- v% u* m End If opp = truenum(nx(0), nx(1), singlenum) outf.writeline nx(opp) End If Loop End If End Function 5 ]# u* d, m5 U7 U1 f, V; E+ v6 ?'*************************** + f# Z" O4 t# w- z+ t. y'这里开始运行 ; J2 j' ?% w$ W9 Y'*************************** startprc 100, "input.txt", "output.txt" ( a! O+ W2 u9 _/ [3 m / |; N; H& x4 r- @" A : G+ n" k) g: r4 \$ K

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