|
|
楼主 |
发表于 2013-3-16 10:41:25
|
显示全部楼层
本帖最后由 羅蓋仙 于 2013-3-16 10:47 编辑
0 Z$ E8 G% f/ d9 u9 V3 u- |6 M% w* k* f& w
使用數據置換來按大小排列,大→小' c+ X7 V0 I6 x: D- {; I4 p& C
法一:我用DO1-DO2-DO3比較好看,有視覺上的厲害^^當脫離迴圈从大到小排列完成, x6 s* m+ s! Z' E* N# g6 c
#1=1.
# Q6 Q! Q# d/ H' Z( i# S+ @#2=4.- h3 f# L/ r5 H+ E% {/ ^% D; x! i c! P
#3=7.: o- N3 X: a# H: F! }" y, H2 n5 g
#4=9.
, ^+ j" x y: U* O4 ~N1WHILE[#1LT#2]DO1; N( ^5 R/ Z h: O
#1=#1+#2 K. ^7 N% p* y2 r
#2=#1-#2
m1 g$ | L( O h, X#1=#1-#2
5 D `( V5 E% W+ q5 }END1
7 V \6 m0 L7 X0 N. DN2WHILE[#2LT#3]DO2
! H: C* {9 ?( ]2 f! @) W#2=#2+#3
2 s0 ?7 Y$ G( @. {3 D5 B( z#3=#2-#31 X! J# C) g- O
#2=#2-#3
! k" i1 K- i) B& v6 O0 J& q% ^END2
6 ^ T; W* A1 RWHILE[#3LT#4]DO3
- r, d6 f; ~0 ]( C u#3=#3+#4
b( R+ c7 Y8 F+ `# u; t/ n#4=#3-#4
1 q8 Q& P2 c$ d2 l m#3=#3-#4+ V/ h" H; D K7 Z
END3/ W3 t1 H! g7 p [
IF[#1LT#2]GOTO1
) C% k( O# ]; _, [IF[#2LT#3]GOTO2$ V" g$ |; N: a! }) t
M0; t+ t1 a S/ g5 P& P1 e" [7 P
6 R% v8 D6 ^+ c8 d. ^3 B9 l
% Z$ M [4 k2 W' K+ T! D
法1-2:使用一般耳熟能詳的IF-GOTO3 _" N- Z0 \: j9 L
#1=A.
) M b! v' z' S% g6 B# I4 w#2=B.
0 X5 [' f* Z. M* e- |) ?' C#3=C.5 F1 c6 V$ X7 ?9 r: [! Z
#4=D.1 O* {" E( \* Y9 |, y: D4 V
N1 IF[#1GE#2]GOTO2: {# D+ f: |% i' }
#1=#1+#22 Y! u, C5 Y/ H6 T' i
#2=#1-#2! i, v" Q) V) T
#1=#1-#2) {& B% L1 }& U; M. P
N2 IF[#2GE#3]GOTO3/ H3 E d# a1 A0 D4 [, T
#2=#2+#3: J4 A% f- G7 |4 W( n7 v3 F3 V! \
#3=#2-#3
# z1 v! }' v3 x7 B8 w' h, A#2=#2-#3
3 K; q# V4 _4 q6 V) G. L/ YN3 IF[#3GE#4]GOTO4
" T% v6 Y# a) n6 ]) @#3=#3+#4
3 x. X2 h: i) }6 R#4=#3-#42 f" O( r$ z& m$ D' V) D) W
#3=#3-#4
: j- F0 A: z& [$ b% aN4 IF[#1LT#2]GOTO13 V" _" k4 i4 @' \8 G9 c8 m0 Q
IF[#2LT#3]GOTO2+ I. Q# R S) D% @ C3 L0 s7 b
M0 |
|