O00330 X/ _6 w) i; y' b
#200=0
l) l; d) y4 e% f5 w O#10=-3$ ?# n3 g: N; L6 O- l8 M
#1=-10 @# ^3 x0 n( O* X. }- i
#102=10000
$ q3 o4 f0 ?7 {$ S/ XG97M3S400
9 o5 u0 f3 B$ {0 ST0303
/ U% m+ @' o9 EG0X52.Z2.
% Y- Z6 T0 s6 V) f$ Z3 X) a( q( K1 |G99
' H" C: o; I7 R3 [) ?6 M( E
+ Z+ L; p7 A# v/ T' h! p0 XIF[#200EQ0]THEN#200=12345" B+ Z! P# N" d0 o* y8 f5 H
WHILE[#102GE1]DO1' ~0 s" J/ E/ ?7 v& [/ h
N1#30=#200/#102/ h& p5 S! \. n
#100=FIX[#30]; R: @5 z3 }1 V+ r5 P. @, c! ?# @) K
#200=#200-#100*#102, G7 c! D+ w6 g% \9 R
#102=#102/103 V8 r$ ~" _& X/ t4 J# ^& O( ^
IF[#100NE0]GOTO10% o* ^. b5 n. m w+ V
END1
' t" n! m% |# u4 j# u; }- K) G: T8 h7 K3 n4 j6 \# V
IF[#102LT1]GOTO20! T/ P* {. U4 X; {( e
$ A. g4 y d" W' G2 lN10#101=#100*#1-#3: l0 c$ j: l8 x! }; M0 r6 W, {
G1Z#101F1.* a5 m# Z, t* G0 W/ m
X44.F0.05 Z! D4 S( A* `0 M* z& F
G0X52.. W, n+ b9 R' M. N/ P' W
GOTO1! [( g, a* O7 O" {$ `+ n
) w! K1 W: x+ P( QN20G0Z100.
$ T8 z! c& q; R# s0 a" o3 C1 [' w( ]M5
6 ~+ g+ Y8 {& }: v( s2 Y! r# qM30+ [" G7 p0 E% Z8 ?) M$ M
见笑了！哈哈！
1 A2 |' v* R4 Q, B" a我这个程序容错性差，求改进！
. K( `* _- R/ D. Z7 Z, T8 G* ?9 b
|
楼主: jiangssli
发表于 2011-11-16 21:39:47
楼主
