|
O0033
& K- V/ ^% D# \9 G#200=01 N5 b; M+ Q4 Z
#10=-3
* e( Q' }; p* G4 K/ M#1=-10
) W; w( t g' w# K) r#102=10000
2 g6 f" [* u; c# X+ w1 KG97M3S400$ x" m/ v S6 G
T03033 s, C9 Z2 a, O9 [0 w# o
G0X52.Z2.
% n3 _+ w( z% ^/ }; HG99
4 D0 v$ ]) b/ U8 y4 H8 Q
5 \/ o+ ^1 E, v% t/ r& Z* @* ~IF[#200EQ0]THEN#200=12345
9 e4 E5 p9 ?; V4 d" TWHILE[#102GE1]DO17 c$ B$ h4 p9 Y* ]( C
N1#30=#200/#102
/ F0 Q/ q' N' j+ _#100=FIX[#30]
s/ g9 N2 Q3 r5 |5 c. B5 @#200=#200-#100*#102# M/ b+ _0 D% g' ^& `# k) J) R
#102=#102/106 w; X8 j' w+ ^
IF[#100NE0]GOTO102 U# k3 {/ Z. B( o" c8 |7 [' i4 T
END1
) m* } o' d8 y8 u3 }$ c M. A* n- f, K
IF[#102LT1]GOTO20 L9 A; \% x. k5 J2 B+ k# Z' J# J. \
; C7 T) `# A9 S9 k+ CN10#101=#100*#1-#3
5 `. B. Q) t9 ~1 }1 f( qG1Z#101F1.) i$ |4 z% d9 T( j
X44.F0.05
# o' s: p: N7 Y s- ?& yG0X52.1 P0 U$ B& ^8 }- x' m+ f
GOTO1
" @4 a+ b9 z: d: y, v
1 m/ C% W$ Y' W" HN20G0Z100.: r' @; Z4 ?; d
M5$ C5 |, P. y; d( A; \
M30' ]( Y$ C5 m% X, W+ F! [) ]3 Z
見笑了!哈哈!& g% D4 q+ X) i
我這個(gè)程序容錯(cuò)性差,求改進(jìn)!
( B4 }; C. g6 N8 p
9 E5 Y5 {( y6 Q5 a) Y |
|