|
|
O0033
. m! ~; Z1 a) L1 g- H#200=0
1 t) @. T0 |3 Y#10=-3; R3 q1 `, y& Y/ F) ^7 w3 u3 s
#1=-10
3 x6 V0 U# a0 g. P4 B#102=10000
3 b+ [0 j$ {! t. tG97M3S400+ k, Q# Y4 ?1 ]
T0303' w% \$ Y: V# [: H" B/ C
G0X52.Z2.. ^8 B. R3 M+ c/ {
G99; u1 l* {8 s( I! K
6 C! V+ [' A8 S3 E* V/ ?3 k. lIF[#200EQ0]THEN#200=12345, ]( J# ?2 h# ~) q
WHILE[#102GE1]DO18 _. P _9 O; {' ^6 \2 W
N1#30=#200/#1026 V" k' a8 m! D2 a" |
#100=FIX[#30]
5 E; z7 D. P& o4 q# ]3 V5 X+ t#200=#200-#100*#102" E" t( m7 w% E" g( M+ n
#102=#102/10
% S% X p0 ^6 i3 D! AIF[#100NE0]GOTO10! C, g" J4 r& v' t t; P
END1
7 T6 d! [. m; c& D* Z, m
. W z1 i+ U9 G$ ^+ {) H* r5 CIF[#102LT1]GOTO20
3 h! h$ f: f3 z- [
! y( o; u8 A/ {) z% zN10#101=#100*#1-#3! v3 M# b3 C, w* a9 C. f0 R
G1Z#101F1.
0 l: E8 O7 ?" p8 qX44.F0.05
" N, B8 g; w9 f# JG0X52.
6 A/ X( C0 \, l* m* y. {; p% aGOTO1: M/ ^; F& G& ]7 {6 W7 \/ U
$ c7 q4 i* \& o/ f- v, {2 }% R2 a: T/ uN20G0Z100.
1 S) e/ w9 h P! K8 f" y/ u O1 E, EM5
( W; L3 s; W% N6 o9 @6 P, fM30
1 `9 r# s- t' ^8 g+ ~見笑了！哈哈！
* e! ~# F1 i: q1 v$ T7 E/ E* X我這個(gè)程序容錯(cuò)性差，求改進(jìn)！1 ` G' c: R+ i6 c/ L
- H& ?0 Q+ x' r6 ?! \3 c, d$ L F
|
|
樓主: jiangssli
發(fā)表于 2011-11-16 21:39:47
樓主
