O00339 g# v" a- S3 J4 w
#200=0
a' C$ ~& y: N4 g% z. v#10=-30 i" w3 a+ j4 Z( I- M
#1=-10" ~6 Q2 G" G0 n2 s1 r
#102=10000
, N! J0 c7 M6 i! H0 wG97M3S400) V# v& U6 m$ f- s9 L0 A! \$ s
T03030 L( g! V# [& J! ?, ?7 k, T2 Z
G0X52.Z2.
! B1 F& |6 E% R, l# B+ R! P: jG99
% y6 U. J1 c6 z3 @8 M% ~5 s( H+ ^8 c8 f: K7 N
IF[#200EQ0]THEN#200=12345
' b9 F0 O" l" C4 }) b6 qWHILE[#102GE1]DO1, V+ S+ o) ~8 S3 g, z; H% a
N1#30=#200/#102
' a9 S: X; }- F2 f8 n4 [( G9 U& t#100=FIX[#30]
% n8 P4 o; e9 {8 r#200=#200-#100*#102
9 l% N) Z- H6 h#102=#102/10
" f W; e4 o }. jIF[#100NE0]GOTO10( Y: A' L9 ?' i" x6 Q
END1# D9 h' t8 a' V
' g P( u% m2 p3 P' O9 e. SIF[#102LT1]GOTO20
0 j) z2 g1 Z: d; s' {% q1 c G. Y# `# m6 G5 [# k
N10#101=#100*#1-#37 q i* j4 U E: ~3 b, v4 R! v
G1Z#101F1.
3 B5 ?5 h ^/ E+ ]' p! u$ @X44.F0.05
: {! H$ u8 V0 _/ vG0X52., ~/ T5 d1 [- S; j$ s! ~% `
GOTO1/ R5 H0 W9 m6 i- f5 D
/ a: R4 U: i) ^& W9 J
N20G0Z100.
( a8 g1 `- i* b N# v/ U' V2 H- \M5% S5 ^" T6 i& W
M30( A& j5 k7 z2 T; }7 [7 x
见笑了！哈哈！+ u" s/ I7 s$ ?* G6 N# d2 z* q; b/ d
我这个程序容错性差，求改进！0 v! G& ^, H% ]4 l, }4 q; [
4 W9 t6 k0 T1 f/ M. K+ Z4 n; p7 [+ ` |
楼主: jiangssli
发表于 2011-11-16 21:39:47
楼主
