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

谁能帮帮忙编出这个问题啊?
/ k4 f5 ^# Y8 x8 W, J2 i   儿童节时.两个人比赛踩汽球.汽球一百个.分别编号1~100.在相同的时间内.两个人一起去踩这100个汽球.他们的基数都为1.在踩了一个汽球后.乘上汽球的编号.再踩再乘.时间到后.两个把自己的乘到的结果报出来.分数高的人为胜.如果一方说慌.那就另一方胜了.
   但考虑到是否有人慌报数字的问题.先定义分数低的那个人是真的.因为他没必要说慌.
% @, x% c7 q( @/ s% z/ s% Y% N    因为两个人不可能踩同一个数字.所以可以根据把结果分解后的数字想比较.可以判断他们的结果有没有说慌.
    比如.A的结果是147;B的结果是49.那么.A只能是49*3,而B也只能是1*49.因为B没有说慌.所以.A说慌了.那就是B胜了.
0 B4 p: W9 V) V- {. B# b    又如:A的结果是486.B的结果是81.那样的话.A除了分解为81*6外.还可以分解为9*54或者3*9*18等.而B.可以由1*81得到.也可以由3*27.A和B至少存在一组不重叠的编号.所以.分数高的A就胜了.
6 R! {, }" v0 _& H) }% M3 a   具体输入输入如:
6 ~+ S0 w8 h% a; l( YInput
' r! \' r; t& w7 R+ l: T343     49
, D3 m% R* x/ m7 Z; p/ C, A$ E/ ]3599   610
62       36
' B! g  M+ s+ [6 W' p# O" L
Output
49
610
  t) e- l, ]+ ?7 X- u5 C62

唐明

这个代码就你局的例子都没有问题 保存为.vbs文件 ; u4 [/ ? J) h1 D* X Function scanfnum(hfile) '从文件中读取一个数字 ' D3 I6 k( k5 u5 g; z; h7 h* Z9 C1 P Dim s, n, n_end n = "" s = "" 1 T1 N3 W" G; d- m n_end = False ) e; t3 V" q; ~7 _# s d_end = False - A5 m% Z9 k2 ` H+ } Do While Not (hfile.AtEndOfStream) ; Z3 R- H8 `4 t, u9 l s = hfile.read(1) Do While (s < "0" Or s > "9") And (Not (hfile.AtEndOfStream)) 1 B- d8 X; c7 P( w0 P0 U# D' }/ _2 |$ [) h If n_end = True Then d_end = True Exit Do * G0 ^- V. b/ Q End If 6 t9 j, O% L/ n; J+ l. B, T5 }" l; R s = hfile.read(1) U$ E/ ?2 v$ u0 R$ C Loop 1 s6 m- ]7 z: U( i; g+ C* G8 F If d_end Then Exit Do If s >= "0" And s <= "9" Then n = n + s * a2 }( e- G# @) z" r Z7 f n_end = True End If Loop If n = "" Then scanfnum = "error" Else scanfnum = CInt(n) 7 w( v5 @4 Y: z% [( B* P4 c. | , e7 u" {% G% j* H3 F1 @End Function m0 [& {8 h4 V$ ^3 |Function truenum(n1, n2, vx) 6 W* ]5 r5 O0 m& u {: p: {. B* y ' ↑存储分数的书组 3 s& {4 T3 C: G. ?' a, p '默认n1>n2 Dim p, v1, v2 v1 = n1 1 O: V7 L1 a8 U" o- D c6 } v2 = n2 '下面把v1拆份成为每个数字尽可能大，数量尽可能少的组合 p = 100 Do While v1 > 1 And p > 1 If v1 Mod vx(p) = 0 Then v1 = v1 \ vx(p) 6 s A) }5 d4 ]0 R/ @5 q; s( ]/ M vx(p) = 0 '用过的数字设置0 End If p = p - 1 Loop ( p) O7 r& q( M, m! {. e- Y- t& } '下面一样尝试把v2拆份成为每个数字尽可能大，数量尽可能少的组合，但是v1用过的数字不能再用 + w" w5 [7 Q5 C" V7 ~; t p = 100 Do While v2 > 1 And p > 1 If vx(p) <> 0 Then If v2 Mod vx(p) = 0 Then 1 L" N! v4 R ?/ n; D- n3 N8 { v2 = v2 \ vx(p) 1 r2 i1 E& w/ T vx(p) = 0 2 h- {/ h& p9 ^2 a0 u+ f* C End If + p/ A6 H0 c( m* x( n End If # L6 [9 g4 U* I. N p = p - 1 Loop '查分成功则结果v2应该是1,如果v1占用了v2必需的数字就会拆份失败 ) C7 _7 u" }/ q* P9 K If v2 = 1 Then truenum = 0 Else truenum = 1 7 x/ X$ K1 ?$ Z$ b# eEnd Function * P1 g! i l X; ?% _! u4 m/ QFunction startprc(n, inpath, outpath) ' ↑气球个数 ' ↑输入文件路径 ' ↑输出文件路径 9 o2 d. M. q) b7 E: Z Dim nx(2), singlenum(), cnt ReDim singlenum(n) 6 H9 r+ s7 }" w ) P/ L- h8 Y0 V7 c3 ?# i Set fso = CreateObject("scripting.filesystemobject") 7 Z& o$ p" k$ {. \ If fso.fileexists(inpath) Then 5 R1 D/ q: C3 ~' ~ Set inf = fso.opentextfile(inpath) Set outf = fso.createtextfile(outpath, 1) 1 [& l* {6 v9 k8 p. H# E& \# e Do While Not (inf.AtEndOfStream) 7 u$ S; d: h/ O For i = 1 To n e3 U, }+ o: S. i1 {) n* _ singlenum(i) = i '写入每个球的分数 ' u, ^& [( g& i y# J* t; y Next 9 y! P" e9 {! K7 s+ v8 o" b- y3 h '读取两个数 nx(0) = scanfnum(inf) 1 F0 h' H6 m$ g. ~- Y) f# \ nx(1) = scanfnum(inf) If nx(0) <> "error" And nx(1) <> "error" Then * L) J6 ^" n+ u8 a! y If nx(0) < nx(1) Then '大叔在前 5 ~: G8 L% o: m9 K2 @# O) {. |/ L nx(2) = nx(0) ' Y b( s! N8 f; b: f( N) t nx(0) = nx(1) nx(1) = nx(2) 7 j5 j# i+ z/ q0 ?+ i9 x End If - G+ t" G# m. P9 @' Z opp = truenum(nx(0), nx(1), singlenum) 5 c& E9 U1 y$ l1 k; G8 R outf.writeline nx(opp) End If 0 ~% P- B' P; Y; j6 k Loop End If End Function '*************************** 5 `- r7 z9 m9 {& R. i/ ~# N; I'这里开始运行 ! m' ]$ T b! p5 O9 F# ]4 _'*************************** startprc 100, "input.txt", "output.txt" # Y0 o4 W2 v8 K2 K, {% V4 y , w; w" Y* x/ j. P- f

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

0 [0 M. ^( q) b I/ M# u6 h