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

谁能帮帮忙编出这个问题啊?
   儿童节时.两个人比赛踩汽球.汽球一百个.分别编号1~100.在相同的时间内.两个人一起去踩这100个汽球.他们的基数都为1.在踩了一个汽球后.乘上汽球的编号.再踩再乘.时间到后.两个把自己的乘到的结果报出来.分数高的人为胜.如果一方说慌.那就另一方胜了.
4 F* |2 V( ]  q' x   但考虑到是否有人慌报数字的问题.先定义分数低的那个人是真的.因为他没必要说慌.
    因为两个人不可能踩同一个数字.所以可以根据把结果分解后的数字想比较.可以判断他们的结果有没有说慌.
/ l) v; \- }% u. Q- D+ L, T; d, L    比如.A的结果是147;B的结果是49.那么.A只能是49*3,而B也只能是1*49.因为B没有说慌.所以.A说慌了.那就是B胜了.
5 i! u0 H2 n6 z$ k5 [/ X4 K    又如:A的结果是486.B的结果是81.那样的话.A除了分解为81*6外.还可以分解为9*54或者3*9*18等.而B.可以由1*81得到.也可以由3*27.A和B至少存在一组不重叠的编号.所以.分数高的A就胜了.
" f5 I& z# l7 j# e   具体输入输入如:
3 `$ @4 v+ Y/ R% E' h9 I5 O. r. xInput
343     49
* {- I! M9 l8 o3599   610
62       36

) J1 y% k* ]" m2 E3 P- M1 mOutput
49
610
, f" l1 v- j1 K6 P2 N$ o) u$ ]62

唐明

这个代码就你局的例子都没有问题 保存为.vbs文件 ( w% z/ q) V* k( [# I) ^, |4 @Function scanfnum(hfile) '从文件中读取一个数字 Dim s, n, n_end ) ~7 z9 O8 C5 w7 p* b3 f n = "" s = "" : X( p4 Q$ G) X: m1 s% C n_end = False d_end = False . M8 S( m3 U2 X, d: ~ Do While Not (hfile.AtEndOfStream) ' Q$ f1 d% _& z s = hfile.read(1) Do While (s < "0" Or s > "9") And (Not (hfile.AtEndOfStream)) " _+ [# c' \# M6 E" ?6 N9 ?+ |6 A If n_end = True Then . d$ {- v D* s' P/ [ d_end = True Exit Do End If s = hfile.read(1) & k N; E9 _. }- h1 N7 ]3 ` Loop ) t' S3 W, i6 Q) H+ b If d_end Then Exit Do ) k, k: [4 l7 ?4 ?% ?1 q If s >= "0" And s <= "9" Then n = n + s n_end = True : \9 l/ s* ], T: a End If Loop 6 L9 p9 t4 A6 D+ n% P G If n = "" Then scanfnum = "error" Else scanfnum = CInt(n) + a1 b/ Q6 e$ b7 J7 P: X+ B 2 o8 [' s' b6 |End Function 4 J6 V6 h8 B9 O. X2 e + E( z& B1 E f7 h9 T' i& [Function truenum(n1, n2, vx) ' ↑存储分数的书组 '默认n1>n2 9 d2 ~9 |* V/ \ n7 u% N Dim p, v1, v2 : c; h5 ^0 O* ^- j' I9 r v1 = n1 v2 = n2 0 B$ [ _1 o( h) V/ N- o9 ^ '下面把v1拆份成为每个数字尽可能大，数量尽可能少的组合 p = 100 Do While v1 > 1 And p > 1 6 }$ @% O3 n# b9 [ If v1 Mod vx(p) = 0 Then 1 p2 Q4 {+ {9 N2 @6 `2 v% [' X1 l v1 = v1 \ vx(p) vx(p) = 0 '用过的数字设置0 End If p = p - 1 1 w, m6 w& Q; { Loop '下面一样尝试把v2拆份成为每个数字尽可能大，数量尽可能少的组合，但是v1用过的数字不能再用 - R! i7 Y% p! J. ~( c6 Y; m. I p = 100 % |; ]( g, ^" j5 S) f Do While v2 > 1 And p > 1 ) c; V9 ]) S9 t y" [7 r) m i If vx(p) <> 0 Then , Q' ^+ q- }& l) w If v2 Mod vx(p) = 0 Then v2 = v2 \ vx(p) / d& T/ u Z1 Z( r: b; a) U% E0 f* G) w vx(p) = 0 6 x, T9 }) d: y+ O, E End If End If ( j1 B8 P( H: D, K3 C) O p = p - 1 / K. l2 p. ~' D8 s( K: ` Loop '查分成功则结果v2应该是1,如果v1占用了v2必需的数字就会拆份失败 If v2 = 1 Then truenum = 0 Else truenum = 1 3 Z0 u7 Z" o' l% qEnd Function Function startprc(n, inpath, outpath) ; k" z* t$ g2 @ ' ↑气球个数 $ k3 w( p- P4 t ' ↑输入文件路径 # {& T' k+ w: C! c+ s2 D ' ↑输出文件路径 Dim nx(2), singlenum(), cnt ReDim singlenum(n) 4 ]2 r- h" `* h0 F7 p$ T' _ Set fso = CreateObject("scripting.filesystemobject") ( k- c/ D) r" `0 U; W If fso.fileexists(inpath) Then Set inf = fso.opentextfile(inpath) / s8 ~; U6 {7 w0 C/ ?1 U Set outf = fso.createtextfile(outpath, 1) Do While Not (inf.AtEndOfStream) For i = 1 To n 7 U+ L$ P7 Z4 [7 n singlenum(i) = i '写入每个球的分数 8 E" c8 P- ~0 m Next $ f% ]8 }5 d- d1 ?/ u '读取两个数 nx(0) = scanfnum(inf) nx(1) = scanfnum(inf) 7 e j" L* E6 g% n% n7 ?9 [ If nx(0) <> "error" And nx(1) <> "error" Then ( C. A# t& Z0 N7 W9 f! A If nx(0) < nx(1) Then '大叔在前 ) b/ {9 U2 p: i nx(2) = nx(0) t w3 n" L) s* F, ] nx(0) = nx(1) / [# c- j$ A. G2 ]1 [; O nx(1) = nx(2) End If opp = truenum(nx(0), nx(1), singlenum) 8 S0 L! |1 n5 S& Y: B; L8 N) K outf.writeline nx(opp) ( o8 ?/ O5 n4 ~( Z End If Loop End If End Function & X" R, D) G- y'*************************** '这里开始运行 ' E5 z8 C r% s9 v, ~% }- O$ ]'*************************** ( s: g* \: m8 b. @- fstartprc 100, "input.txt", "output.txt" * R3 K2 D4 Y+ O0 X6 I3 V6 U $ @2 L( N( o: U ! U- m' K6 p/ T9 z g* L" D / ]' O% _- X E* X8 K: E; Z

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

( [2 \) q. N' N. U. P; ?5 h0 q8 y