O0033$ W2 I5 X& [/ P3 ]
#200=0
. N, n# ^, A6 f U$ G#10=-33 N/ x; d4 @# K% J1 S
#1=-109 M2 w- f: {! c) ` z4 ^; r( B0 r
#102=10000
w! x* x0 d3 ]. V3 x% }G97M3S400
7 o6 p9 u2 ~. [" `3 o; WT0303
/ p, p8 L/ Q# M) G6 tG0X52.Z2.
+ b5 J# F/ o8 `8 Y# ]G99" w4 J! V' T5 L$ V* [$ S% ]& W
9 q# G6 t: y" t1 a, r8 O) T
IF[#200EQ0]THEN#200=12345* P1 V0 l$ j& @4 W& b1 R
WHILE[#102GE1]DO10 {& \3 P; Q% J9 t
N1#30=#200/#102
c1 x: [# T2 E4 A& ^0 O#100=FIX[#30]
7 T: T Y. |3 E9 F; f9 `#200=#200-#100*#102
$ M% y! Y' ~0 |#102=#102/10
4 w r. O* z# X/ jIF[#100NE0]GOTO10: w$ T) x! N8 D c0 R
END1
0 R/ y/ I$ T2 P- s! N
W) s5 {; U) a1 m/ ^2 _IF[#102LT1]GOTO20
8 a( P7 [0 L" b( K3 y5 @! H9 z' |5 }" U& x, { g
N10#101=#100*#1-#3. k+ J! T4 w- F$ \; A+ N
G1Z#101F1.
% g" c$ Q( x! X- ^, ~X44.F0.05
8 h3 s2 |1 ~% z! n3 H8 vG0X52.
! Y. U3 D$ H$ {6 f0 N, {GOTO1
' o+ Q- S& R4 z, K9 n4 B( P% S8 j' }
N20G0Z100.
' w" Y! [" W& p* U E) b$ HM54 T3 J0 \& b" t% a! q4 q
M303 m+ H! c! m$ t0 ^( k
见笑了！哈哈！8 ~& N. B. n1 E; r6 ~
我这个程序容错性差，求改进！
" Y( f9 b- I" v9 p' I; ?2 k0 e2 Q* [9 d# f9 E8 ]- t0 V
|
楼主: jiangssli
发表于 2011-11-16 21:39:47
