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

谁能帮帮忙编出这个问题啊?
9 G5 v2 @) ]: U   儿童节时.两个人比赛踩汽球.汽球一百个.分别编号1~100.在相同的时间内.两个人一起去踩这100个汽球.他们的基数都为1.在踩了一个汽球后.乘上汽球的编号.再踩再乘.时间到后.两个把自己的乘到的结果报出来.分数高的人为胜.如果一方说慌.那就另一方胜了.
1 U9 ^* q  M3 z" P6 p   但考虑到是否有人慌报数字的问题.先定义分数低的那个人是真的.因为他没必要说慌.
    因为两个人不可能踩同一个数字.所以可以根据把结果分解后的数字想比较.可以判断他们的结果有没有说慌.
+ u: u4 U; Y% f4 s0 w' ?% U2 ~    比如.A的结果是147;B的结果是49.那么.A只能是49*3,而B也只能是1*49.因为B没有说慌.所以.A说慌了.那就是B胜了.
+ g/ f- t" _- S# v9 v* K) A; j    又如:A的结果是486.B的结果是81.那样的话.A除了分解为81*6外.还可以分解为9*54或者3*9*18等.而B.可以由1*81得到.也可以由3*27.A和B至少存在一组不重叠的编号.所以.分数高的A就胜了.
   具体输入输入如:
Input
343     49
3599   610
3 b& q& r) s6 t# ^! P# p+ ~1 C3 X& I62       36

+ n# _; s! Q. ~( O' a' d0 g) B  VOutput
7 O& k& e6 u& }  U2 _9 A49
610
62

唐明

这个代码就你局的例子都没有问题 保存为.vbs文件 # o. F0 W3 U! e4 K3 b# c3 p7 KFunction scanfnum(hfile) 2 ~% h; x. ]1 t1 b '从文件中读取一个数字 + v& T" G5 I; N k Dim s, n, n_end n = "" s = "" n_end = False * F& ^- p- Q7 W. D d_end = False Do While Not (hfile.AtEndOfStream) 9 K8 U+ v2 H9 O2 _1 {) y6 ?, S( d s = hfile.read(1) 5 \0 f6 R% I: |' b& s4 g2 P* s Do While (s < "0" Or s > "9") And (Not (hfile.AtEndOfStream)) If n_end = True Then d_end = True Exit Do / f3 a G9 q/ }2 ]" R4 |. D End If s = hfile.read(1) , P- U2 h& Z% E1 G+ o Loop 5 g. O# |* {$ |$ a! ~: m6 } If d_end Then Exit Do & ?1 d1 F5 c+ {$ M If s >= "0" And s <= "9" Then " D3 q# X1 H- V+ _2 k) u n = n + s n_end = True 4 h$ E" @$ x7 k% L End If Loop If n = "" Then scanfnum = "error" Else scanfnum = CInt(n) End Function - W, M3 G+ A/ H/ | Function truenum(n1, n2, vx) ' ↑存储分数的书组 % E7 L* R/ A/ [" o '默认n1>n2 # v ~/ M g( d Dim p, v1, v2 v1 = n1 v2 = n2 '下面把v1拆份成为每个数字尽可能大，数量尽可能少的组合 p = 100 Do While v1 > 1 And p > 1 ' o; z3 [! y0 _ o9 A; C If v1 Mod vx(p) = 0 Then v1 = v1 \ vx(p) vx(p) = 0 '用过的数字设置0 End If p = p - 1 Loop '下面一样尝试把v2拆份成为每个数字尽可能大，数量尽可能少的组合，但是v1用过的数字不能再用 p = 100 Do While v2 > 1 And p > 1 % ^3 s' x. I- |) f0 N9 w! I$ \7 c If vx(p) <> 0 Then If v2 Mod vx(p) = 0 Then v2 = v2 \ vx(p) 7 ^! z( v4 i' E$ | vx(p) = 0 $ u5 v# l1 E2 {- ? End If " ^; i9 L) k; _$ p) t, K/ b; B End If 9 m3 X7 D* ^) k. H p = p - 1 + b# ~# L% h, e& T- q Loop 0 u- Z) d/ S- W2 X+ S+ h0 H; z! ? '查分成功则结果v2应该是1,如果v1占用了v2必需的数字就会拆份失败 If v2 = 1 Then truenum = 0 Else truenum = 1 End Function Function startprc(n, inpath, outpath) $ }, S. r1 I7 Q6 X& ^* ^, t: ? ' ↑气球个数 * m4 }6 `- X5 H2 w9 g ' ↑输入文件路径 ' ↑输出文件路径 ! ?4 z7 z7 N3 Q Dim nx(2), singlenum(), cnt ReDim singlenum(n) Set fso = CreateObject("scripting.filesystemobject") . m3 [7 J9 m- P- O If fso.fileexists(inpath) Then Set inf = fso.opentextfile(inpath) 7 }: j" p7 s. k2 S+ i8 z# U) D0 r Set outf = fso.createtextfile(outpath, 1) : N7 R" G$ h# ~" _' Q' k2 x Do While Not (inf.AtEndOfStream) For i = 1 To n singlenum(i) = i '写入每个球的分数 Next ) i. \& h: Y- }) y1 d9 k '读取两个数 nx(0) = scanfnum(inf) nx(1) = scanfnum(inf) , ^% } ? Q7 p6 y0 V5 p If nx(0) <> "error" And nx(1) <> "error" Then 4 W2 P7 J. y3 I" J If nx(0) < nx(1) Then '大叔在前 2 L- Q, f! H: x1 Q2 F0 c nx(2) = nx(0) ) V2 a% U' _/ V$ R6 J3 ]% S- l( u1 { nx(0) = nx(1) ) F" ?1 y/ k; j9 {& s% n" k* o, L nx(1) = nx(2) & c7 {2 f1 L- ]+ ]+ b End If ) J) E! _; K" B i V opp = truenum(nx(0), nx(1), singlenum) outf.writeline nx(opp) End If Loop End If End Function - L- A, u3 {7 ^! h# m! t'*************************** '这里开始运行 '*************************** - d- B9 E N5 ~: ustartprc 100, "input.txt", "output.txt" ; Y: n: K# a( n; y

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