|
|
O0033
" u) d' k, j) S- \% S#200=02 H% |! O; s2 E6 d
#10=-3
$ Y- c6 F6 N# c# a#1=-10* ^5 M+ t0 M" I8 m- _+ X! ]5 ~
#102=100007 E; L3 } C1 z# I% o7 ?. R+ a# H
G97M3S400
6 a& l7 X6 J' @7 _5 y$ KT0303
' u5 E% A& s6 X2 B. q% lG0X52.Z2.
5 [5 D2 E( L* O; E' E: oG99
" ?5 o# w2 K( T6 c( ~& E2 u7 h8 W. ?1 E" I( x* L& @
IF[#200EQ0]THEN#200=12345 {$ A' Z+ ^$ C. u+ n
WHILE[#102GE1]DO1$ Y% B2 u4 S3 m: o) B6 D) x
N1#30=#200/#102% u, J7 m" q4 l
#100=FIX[#30]
% _6 i1 e$ h3 j" i; a+ g#200=#200-#100*#102/ S+ a1 f, D- @9 k
#102=#102/10& ^" J, L8 e, U$ s6 r; I6 m5 ^
IF[#100NE0]GOTO10/ a3 L! X" [& c( j" Q
END1
+ Q0 ~# Y5 z x& I
1 `9 y8 V- V/ v5 h2 rIF[#102LT1]GOTO20
/ u* i k; t) r$ |; B: a* D' ^+ c$ [: m& p3 z
N10#101=#100*#1-#3, D9 M, s8 P$ l: E
G1Z#101F1.6 _, d2 X/ J+ `% V
X44.F0.05
7 |7 z' k+ D# }+ L, t8 E6 lG0X52.) |$ W8 O2 t2 j& c- l. Z1 J
GOTO1# F, U2 ]* Q7 x% R j
# X- V1 s: U) ?. sN20G0Z100.
" b3 d8 ~& }; \M5- @, l' C8 d8 Z) ~% N
M30" Z7 C+ g5 e% K# N2 Z. f5 W
見笑了,！哈哈,！, }/ n! e1 J) _* |# Z7 l& P7 ~* A) @
我這個(gè)程序容錯(cuò)性差,，求改進(jìn)！/ F$ ^0 b1 W' U8 v/ A' }" N" D5 a
! u# r3 \5 s5 a; u8 ~" H2 N |
|
樓主: jiangssli
發(fā)表于 2011-11-16 21:39:47
樓主
