|
|
O00330 d- N! x8 k, [) _7 a* g
#200=0
8 H$ N6 `, |8 u' y#10=-37 W2 v" T$ G2 @7 U& t/ g: e
#1=-102 i+ V& R( j, }, \$ S6 t
#102=10000
! k* C8 N6 q5 P* U$ BG97M3S400
2 \4 k1 @7 a+ T8 y' J! r1 Q7 [- XT0303+ y) C9 Y) j# Z7 @
G0X52.Z2.
1 u; z& ~) u& Y6 w/ @: M) Q7 UG99; l8 t4 J0 B: v
7 }$ g8 L% X9 z- @' A8 i) n/ Z8 nIF[#200EQ0]THEN#200=12345
% |4 A8 @; K f( n, P( uWHILE[#102GE1]DO1
- C2 t8 p' r1 tN1#30=#200/#102
, I- _) E9 o( C* Y( N( Q7 D1 |#100=FIX[#30]
* O+ g! a! C9 X* C#200=#200-#100*#102
5 V$ V8 C6 S. h7 H3 _, K#102=#102/10. _% \" Y( C+ c- j5 t* Z0 v2 U
IF[#100NE0]GOTO10
1 n! ~8 O9 l& Y. v1 c$ Z0 }END16 \( Q" _$ x% i; a u
8 B0 G u4 n2 t6 C ~
IF[#102LT1]GOTO20
! F5 \5 D& X8 m6 `1 b+ e- {
1 v+ }6 t1 l# R. Y$ y" _, o) QN10#101=#100*#1-#3
" u6 F, H! {, ?2 B5 ]# z1 jG1Z#101F1.( `6 j5 m& n! n. N& H2 I1 |6 s
X44.F0.05! X8 O. [$ ^/ E. U. Z
G0X52.+ Y& `& k- g/ ]" q: x7 w: b
GOTO1
/ _0 D9 o: Q2 O& d( A. n" T5 W4 }
8 D; L5 D# s5 Q5 K$ G% [N20G0Z100.
- X" H7 d; j9 T( o6 X/ b+ TM50 r8 n% D; m( [" R C/ r
M30
8 \& F9 ?) v1 @8 r見笑了！哈哈！+ D: \! n' G+ u4 A" k6 N
我這個(gè)程序容錯(cuò)性差，求改進(jìn)！6 a/ ~9 X0 @) r
* E7 A* R+ Y2 b: Q
|
|
樓主: jiangssli
發(fā)表于 2011-11-16 21:39:47
樓主
