O0033
7 b7 K* d |# F6 u# w- |#200=0/ C/ ?5 H' I5 g
#10=-33 z$ N; Y& P) u4 y
#1=-10* U" B& {1 B4 }* G; s. B
#102=10000
, P4 a) N5 t1 C* d& vG97M3S400
; t1 o" c& J" F1 B3 lT0303
: Z/ k3 L2 y. |& QG0X52.Z2.. z% @7 }; G) F$ C
G99
' p& ?( }; i* H2 `* q7 X: X+ U- B2 g; D' I
IF[#200EQ0]THEN#200=12345
. \9 e1 Y7 E! j5 ^WHILE[#102GE1]DO14 I- n# c* z/ c$ x2 H w- N/ a
N1#30=#200/#1020 g) K1 j- R) a! Z" \# v' ?
#100=FIX[#30]- F: V, g( \6 s. p% q8 @% r+ z4 K; H
#200=#200-#100*#102
6 t$ ^) i: E! [( f4 z- n) ?#102=#102/108 F' e/ P( }8 C
IF[#100NE0]GOTO10) j% C4 t! b! f% v5 ?. H) w# Y& h
END1) X+ V) P- Y; ?& x, l
" V! P5 \, Z- HIF[#102LT1]GOTO20
5 S& j' p7 A0 Z6 L% l8 y
* w$ c- y& }0 [" O6 K/ {" h7 y& ~- dN10#101=#100*#1-#3
0 \! @, J- O. ^ S; ]& {0 qG1Z#101F1.9 ~. \1 w# ~& j
X44.F0.05
1 |2 `. Q$ ~. ~ wG0X52.; B: J8 n I, H
GOTO1% S" ^; ~# }6 A( I
" D4 U9 ]8 Y- H: i! AN20G0Z100.
6 c3 {0 e; |; ~8 v0 X) ZM5
% E% G0 I- {; _; d1 x9 u1 AM30
1 a$ ~# R& F+ L% m9 L. H見笑了!哈哈,!
$ A, H; N& Q( |) U4 ~* H3 Q我這個程序容錯性差,,求改進,!
# U: F8 E0 P( I
, k& H4 C* c" ? L { |