|
|
O0033
; W7 F! h+ e, j/ ?, T6 u#200=05 C1 R( G8 ~. a) z5 G. l1 K
#10=-3
. n, P! x8 a- H H; F#1=-102 H3 h [" _; H1 y( O: [) i
#102=10000' [4 s2 m* [ |
G97M3S400+ ]+ S6 K9 ?& T: U# F1 m& t
T0303
/ y; P4 z: e8 |$ M& O- F; x zG0X52.Z2.
$ `0 |6 W" I! M7 \0 MG99: h$ l6 s# M$ Y% c: b6 N7 d! G
7 J* G! g; Q5 A4 M
IF[#200EQ0]THEN#200=12345
1 P/ L! b- Q( wWHILE[#102GE1]DO18 k, H- t6 \0 {" j' S& o
N1#30=#200/#102$ t& m$ G& B% E+ t* v# N% W$ a
#100=FIX[#30]0 X8 [# [. T8 q' j! }" n2 g; O
#200=#200-#100*#102, X6 b+ p# S# c! F a
#102=#102/10
4 a0 Y' w) G6 J) D4 DIF[#100NE0]GOTO10
% @5 ^6 ^4 M" Q4 c1 t h& DEND16 F( U- C7 B- F. D7 ~) c+ m3 [
h: S j( |( M: J/ }
IF[#102LT1]GOTO20
; f) R9 \$ J( h$ W% F( l: Q0 E2 {4 w" F
N10#101=#100*#1-#3$ E) |7 `2 `* U$ k& o9 i; ?
G1Z#101F1.6 {$ a7 c/ n4 I' s* n- v5 V
X44.F0.05
4 r! w0 p# C! T0 M2 U- rG0X52.
/ ]5 p3 K0 y; |3 q& }9 nGOTO1# n& Y% s( A$ V2 g# b2 J
+ G! x1 {4 h2 e7 E3 V
N20G0Z100.4 Y" N3 n1 Q7 p2 q
M59 g5 p6 o, @& R2 M- v) F4 t
M30; A8 n% p: w* Z+ o
見(jiàn)笑了！哈哈！
9 q- {3 r' y5 X; {0 M5 t我這個(gè)程序容錯(cuò)性差，求改進(jìn)！
}+ S) w1 G& q( ~
. `7 ~# y6 t7 @ |
|
樓主: jiangssli
發(fā)表于 2011-11-16 21:39:47
樓主
