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

谁能帮帮忙编出这个问题啊?
; e( e3 E6 N9 f' a& }6 V$ E. d4 A   儿童节时.两个人比赛踩汽球.汽球一百个.分别编号1~100.在相同的时间内.两个人一起去踩这100个汽球.他们的基数都为1.在踩了一个汽球后.乘上汽球的编号.再踩再乘.时间到后.两个把自己的乘到的结果报出来.分数高的人为胜.如果一方说慌.那就另一方胜了.
   但考虑到是否有人慌报数字的问题.先定义分数低的那个人是真的.因为他没必要说慌.
' X+ G  y0 Q  R    因为两个人不可能踩同一个数字.所以可以根据把结果分解后的数字想比较.可以判断他们的结果有没有说慌.
2 L: \# A  c: }! Y' r    比如.A的结果是147;B的结果是49.那么.A只能是49*3,而B也只能是1*49.因为B没有说慌.所以.A说慌了.那就是B胜了.
" T. d- j9 f2 {" z" R3 C! o6 j5 F    又如:A的结果是486.B的结果是81.那样的话.A除了分解为81*6外.还可以分解为9*54或者3*9*18等.而B.可以由1*81得到.也可以由3*27.A和B至少存在一组不重叠的编号.所以.分数高的A就胜了.
   具体输入输入如:
) V: c' q  t1 ^- _3 Z3 k% e, ?' Q/ H( SInput
343     49
: ~9 |  W3 }: ~3599   610
2 c$ C( M9 f. C1 c% E* b" J62       36

8 M) Y# C$ m, v3 X1 DOutput
49
- H1 d0 c& Q" `+ d2 y' ?+ u+ [610
! m2 ?: @$ r+ B  b+ o6 B62

唐明

这个代码就你局的例子都没有问题 6 H2 A( p, S4 \- _5 W保存为.vbs文件 Function scanfnum(hfile) '从文件中读取一个数字 9 s9 [0 G' Z) N Dim s, n, n_end n = "" s = "" n_end = False d_end = False , D% A/ P6 m* b9 p! i Do While Not (hfile.AtEndOfStream) s = hfile.read(1) 5 D3 M( @# s1 i' g/ ? Do While (s < "0" Or s > "9") And (Not (hfile.AtEndOfStream)) 7 D0 d6 F$ A/ |+ G+ ]; h If n_end = True Then d_end = True Exit Do 1 P. }; h) c- ?1 b2 s0 _& `# e9 o End If s = hfile.read(1) . P: s( P: \. o6 O- t Loop % E+ ?/ c P% @' k4 P- K If d_end Then Exit Do $ `+ i; W5 c; m% w: o4 B3 t% R If s >= "0" And s <= "9" Then n = n + s n_end = True . M" {4 d1 z R6 I1 X End If # R8 j o$ U7 g& T Loop % c- g! [9 K" L0 k If n = "" Then scanfnum = "error" Else scanfnum = CInt(n) # `3 E3 I4 r1 \# o) Y( e End Function Function truenum(n1, n2, vx) ' ↑存储分数的书组 '默认n1>n2 5 l: ^% j8 I) M- K Dim p, v1, v2 ( \& `% p/ b# t% b: X/ v d f- w, n v1 = n1 / X6 V5 O6 u) a: n v2 = n2 '下面把v1拆份成为每个数字尽可能大，数量尽可能少的组合 # w4 ^* W& z. V7 h p = 100 Do While v1 > 1 And p > 1 If v1 Mod vx(p) = 0 Then v1 = v1 \ vx(p) vx(p) = 0 '用过的数字设置0 End If p = p - 1 ( G! c0 d: z3 n2 p' I' Z Loop # D+ @1 \# T G" E* B: `7 B) J '下面一样尝试把v2拆份成为每个数字尽可能大，数量尽可能少的组合，但是v1用过的数字不能再用 p = 100 Do While v2 > 1 And p > 1 7 b# |* ?1 K3 ^3 S; M8 ` If vx(p) <> 0 Then If v2 Mod vx(p) = 0 Then v2 = v2 \ vx(p) vx(p) = 0 End If End If p = p - 1 * i' D9 A+ w2 k! l Loop '查分成功则结果v2应该是1,如果v1占用了v2必需的数字就会拆份失败 If v2 = 1 Then truenum = 0 Else truenum = 1 4 b0 e6 D4 m" ^1 R$ rEnd Function ! p0 g, ^8 i2 ` Function startprc(n, inpath, outpath) ' ↑气球个数 # O, T8 K& C: l/ w1 `1 n ' ↑输入文件路径 0 V# p+ `7 D+ Z ' ↑输出文件路径 # I/ f7 y: N0 s% L6 h6 J( M9 o Dim nx(2), singlenum(), cnt ReDim singlenum(n) 2 ^) k% K" h6 |; l' J' j. U Set fso = CreateObject("scripting.filesystemobject") ' y; z' s" p. r If fso.fileexists(inpath) Then 7 c2 y( N+ y* z+ j Set inf = fso.opentextfile(inpath) * W. [; l+ e9 V7 N E Set outf = fso.createtextfile(outpath, 1) , \6 j4 q' n: O- y Do While Not (inf.AtEndOfStream) m) L1 l1 c7 u4 s For i = 1 To n - o9 g+ J6 i X, B singlenum(i) = i '写入每个球的分数 Next '读取两个数 4 e: I% { _5 u nx(0) = scanfnum(inf) ! k" U: i( P k9 v$ S' n nx(1) = scanfnum(inf) If nx(0) <> "error" And nx(1) <> "error" Then If nx(0) < nx(1) Then '大叔在前 5 w0 p5 e! y' I# I3 t nx(2) = nx(0) nx(0) = nx(1) " N9 W9 C8 M' o# U3 N nx(1) = nx(2) " U2 x3 f) I) q- x, `, g) C End If 1 ?! i' W" N m3 B1 } opp = truenum(nx(0), nx(1), singlenum) outf.writeline nx(opp) & S# M; h& p0 Y% t8 M( P1 k7 L End If Loop 3 c' q( q a& d! q( y4 I End If End Function '*************************** '这里开始运行 '*************************** startprc 100, "input.txt", "output.txt" " v4 H3 A/ D& ` / M1 j, ]% Q. a) J% |8 r/ p! S ! m6 I/ P- K/ T! c. P + @; Y( h5 u5 X1 u& @ , y2 [* L c8 s: ?6 z6 J

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

0 J2 C# E7 F$ v) a4 e1 S