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

谁能帮帮忙编出这个问题啊?
   儿童节时.两个人比赛踩汽球.汽球一百个.分别编号1~100.在相同的时间内.两个人一起去踩这100个汽球.他们的基数都为1.在踩了一个汽球后.乘上汽球的编号.再踩再乘.时间到后.两个把自己的乘到的结果报出来.分数高的人为胜.如果一方说慌.那就另一方胜了.
# t5 w- @, u" k# g7 d4 w   但考虑到是否有人慌报数字的问题.先定义分数低的那个人是真的.因为他没必要说慌.
    因为两个人不可能踩同一个数字.所以可以根据把结果分解后的数字想比较.可以判断他们的结果有没有说慌.
    比如.A的结果是147;B的结果是49.那么.A只能是49*3,而B也只能是1*49.因为B没有说慌.所以.A说慌了.那就是B胜了.
5 K% }3 ~% [' a2 ~8 L    又如:A的结果是486.B的结果是81.那样的话.A除了分解为81*6外.还可以分解为9*54或者3*9*18等.而B.可以由1*81得到.也可以由3*27.A和B至少存在一组不重叠的编号.所以.分数高的A就胜了.
  ?' W/ \, D* ~! f5 L& J   具体输入输入如:
Input
/ u) W& D3 a8 ~/ Q5 g$ ]343     49
, H" W  n9 N( @0 ^" I( t3599   610
$ f% A& d6 P! b& {62       36

Output
49
: W7 P  \+ k8 s4 e- l610
62

唐明

这个代码就你局的例子都没有问题 保存为.vbs文件 % P' C5 p" X" [' B6 m Function scanfnum(hfile) '从文件中读取一个数字 Dim s, n, n_end - \% j% s5 D% K0 i n = "" s = "" % I, T0 M2 V) m/ M9 K n_end = False d_end = False 3 i9 u5 }$ U/ F9 c. k Do While Not (hfile.AtEndOfStream) s = hfile.read(1) Do While (s < "0" Or s > "9") And (Not (hfile.AtEndOfStream)) % H( N {& U6 N V/ h$ Z9 @ If n_end = True Then & Q4 o0 m% C' D/ ~ d_end = True Exit Do End If $ a' @* x# ?% p* X; [ s = hfile.read(1) Loop % U6 c3 ^. `6 P( @3 B If d_end Then Exit Do If s >= "0" And s <= "9" Then n = n + s n_end = True End If Loop ! X/ ~) b0 {; f* K8 P0 g8 c If n = "" Then scanfnum = "error" Else scanfnum = CInt(n) % n5 ], f* L$ U1 t5 g& ]8 B# f7 Q, w# EEnd Function Function truenum(n1, n2, vx) ' ↑存储分数的书组 / |- f" q& A& X6 ]4 d) I4 k" g '默认n1>n2 * G3 H8 {5 U5 u9 n5 z Dim p, v1, v2 & m8 K0 V5 [7 a8 Z9 m v1 = n1 v2 = n2 - J( h ^! J7 R* _ '下面把v1拆份成为每个数字尽可能大，数量尽可能少的组合 6 f* I* u1 R* Y p = 100 Do While v1 > 1 And p > 1 6 {; O7 U1 F; W- G If v1 Mod vx(p) = 0 Then ( D( K2 z# }$ n7 ]; _9 J! |" p9 Z v1 = v1 \ vx(p) vx(p) = 0 '用过的数字设置0 . Y) l6 o( V+ m' [/ w End If p = p - 1 # |5 l9 d. _8 L; D4 t) W! ~2 N Loop / U! o* t& u, j5 T! Q '下面一样尝试把v2拆份成为每个数字尽可能大，数量尽可能少的组合，但是v1用过的数字不能再用 $ }3 a5 z8 q* B4 s# y: q! J9 [ p = 100 7 t8 h4 W# X* y7 g7 l Do While v2 > 1 And p > 1 $ K! j5 m# c1 S! z9 h If vx(p) <> 0 Then 2 V. F+ W3 H( C. Q# A2 G If v2 Mod vx(p) = 0 Then v2 = v2 \ vx(p) : e. _: S% @5 D9 t6 L vx(p) = 0 * W" I- J! k+ ^) x End If ( S) Z: \, ~( b End If " A- g. B4 j# P4 H- [ r p = p - 1 4 p3 y6 n1 m- g7 |4 @' B0 a+ f Loop '查分成功则结果v2应该是1,如果v1占用了v2必需的数字就会拆份失败 ( ?" v$ ]. B6 x9 @ If v2 = 1 Then truenum = 0 Else truenum = 1 ' o9 z; |" U3 L+ [" Y* h+ zEnd Function 9 ]3 @. ^$ ]9 [% O [! |0 S8 x; g2 ? ) n$ F* \3 S7 VFunction startprc(n, inpath, outpath) ' ↑气球个数 % ~- Y# t2 r+ q, d( z& W ' ↑输入文件路径 ! ^6 x- F/ M+ C+ ` o ' ↑输出文件路径 6 A* z: N: _% D L' l; x4 j2 O. L. F Dim nx(2), singlenum(), cnt ReDim singlenum(n) ; j' \$ ?* z# t) U0 E/ q8 w Set fso = CreateObject("scripting.filesystemobject") If fso.fileexists(inpath) Then ( w( g' R1 s% J# t Set inf = fso.opentextfile(inpath) |/ i, l+ ]2 [' e/ x1 N" {8 t Set outf = fso.createtextfile(outpath, 1) Do While Not (inf.AtEndOfStream) * ^: y4 ?% o3 G& f3 a For i = 1 To n singlenum(i) = i '写入每个球的分数 : k3 i+ a: {. d) L, d, \ Z Next ) X% T. j8 S w2 q+ V0 V' i '读取两个数 nx(0) = scanfnum(inf) ( Q2 l# G9 K2 Q5 U+ o( D, Y8 o nx(1) = scanfnum(inf) If nx(0) <> "error" And nx(1) <> "error" Then & y, q1 S# v) o4 i If nx(0) < nx(1) Then '大叔在前 ; ~4 q7 o4 n$ Z nx(2) = nx(0) nx(0) = nx(1) nx(1) = nx(2) End If opp = truenum(nx(0), nx(1), singlenum) # m6 K, U. @* r) R/ g7 h6 l outf.writeline nx(opp) End If Loop End If & z* [. L3 E; JEnd Function " p5 K" d! r/ N, H- t* R5 i'*************************** 2 c$ B$ c, e! T& Z. s2 j1 h'这里开始运行 - I! C. R2 c' n6 F; J, k'*************************** 7 K% K' c6 Z+ R# {startprc 100, "input.txt", "output.txt" & o) b) u; n- k' Q3 f x1 P. e8 ^ g& k1 n& J6 I

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

, H4 a6 r" R! B. Q