O0033
, r3 B$ t& g$ f/ D7 |- X#200=0
* n0 ^9 g2 n2 y( D* B+ X9 k3 c$ h7 s#10=-3# h* `; y3 b6 H! Q s- E& \5 p
#1=-10
. _0 c, B/ e+ l" d- _ U#102=10000
% \- F# N5 f) t. }% Q8 D$ C8 F/ T* i" vG97M3S400( m4 U+ q0 ?6 O3 I
T0303
, I7 y) ~1 q& gG0X52.Z2.; Q" Z" k( S; V" Z
G99
! H1 A. t! y" k! S3 G7 R! v( @
IF[#200EQ0]THEN#200=12345 q# r$ v+ A Y" r
WHILE[#102GE1]DO1
' t% T* }2 a1 v! dN1#30=#200/#1022 t9 ]! g& _# i; Y" u. _! }1 j
#100=FIX[#30]+ p* I- N& m. F% q
#200=#200-#100*#1024 V9 r n+ a% c9 o5 \
#102=#102/10! R! K2 |4 ~- {
IF[#100NE0]GOTO10
9 s9 h' D: w; m3 j, U6 REND1- l6 [6 P! m% t, X& ]4 v
9 C. f6 G, ?* Z) [IF[#102LT1]GOTO20
/ I9 s' R' X4 ~; \2 ]3 r% y; T. p$ ^' u1 V
N10#101=#100*#1-#3
- w5 M7 E5 t) dG1Z#101F1.- b* B$ N$ S% t- V+ c( {( T0 {
X44.F0.05
) d5 v; J+ w" h+ C' kG0X52.
" ?' O9 R, r/ W/ ]! k! m9 \$ B8 JGOTO18 x' v* [" ]" I
7 y& q" D3 {+ E+ N
N20G0Z100.
' e2 v2 r# q0 n) {M5 x1 o" U# j4 b- q+ q
M30
8 S; u5 u. b! W3 _5 h9 a. K見笑了！哈哈！
7 b. m* s# M, x7 M* s+ r我這個程序容錯性差，求改進！ k' L! n7 z1 t* r( s! G
0 ^ [! x+ u, W5 P+ Q! O
|
樓主: jiangssli
發表于 2011-11-16 21:39:47
