|
|
楼主 |
发表于 2013-3-16 10:41:25
|
显示全部楼层
本帖最后由 羅蓋仙 于 2013-3-16 10:47 编辑
, S: N7 C. l2 p' y+ V: e
, _ V) y8 H, K0 j- C- A+ @4 Z& z使用數據置換來按大小排列,大→小# C, b( p# A: e
法一:我用DO1-DO2-DO3比較好看,有視覺上的厲害^^當脫離迴圈从大到小排列完成
: U L% B0 [1 y#1=1.
+ ~: C- c7 z5 Y+ {# b4 t+ `#2=4.; Y+ h6 v9 S$ K
#3=7." x) p8 V% r: w6 |
#4=9.
1 C: ?$ M1 l0 ]- D; HN1WHILE[#1LT#2]DO12 |6 j/ b& v* W n/ _# U& E
#1=#1+#2
8 O3 n( z9 f x& A/ p#2=#1-#2
5 s+ s( O" |# w# h0 s9 T#1=#1-#2
6 Y. B2 y1 {% f' p# d* pEND1
$ u5 i0 l/ z9 {: v5 dN2WHILE[#2LT#3]DO2
$ j4 a4 s2 O$ ?0 g' d3 |#2=#2+#3
% H8 r+ x3 b4 e, B. K#3=#2-#36 f( p1 @0 \) F% H t& [
#2=#2-#3
2 t1 ~4 f- `3 d1 k" S2 X( EEND2
3 c8 h2 q8 t5 K! i' p7 @7 SWHILE[#3LT#4]DO32 o/ i. D& ^; S
#3=#3+#4# W! n+ ~, e8 P* i) Q
#4=#3-#4: K9 h d' ?/ |- u" k& W
#3=#3-#4
4 A% s+ ~5 u' C6 k2 } S# H6 R- rEND3
4 H X. |# C: J- U+ J$ o% |. RIF[#1LT#2]GOTO1* M0 b# B& ?* ^5 T5 ?- C* y
IF[#2LT#3]GOTO2
5 b) n6 ^ X! F9 s) y0 LM0+ z( L" D# B- t# L0 _
/ i2 O9 `. Q4 f. }! i+ n% [
- E. {& M# @8 _法1-2:使用一般耳熟能詳的IF-GOTO" r9 a" K+ l; Q: R+ A0 y& C
#1=A.
6 j; W9 @+ P1 X0 B#2=B.1 C O- A3 P5 v/ e1 o# z
#3=C.
2 F2 F5 m: n* u: l6 Y" O: i#4=D.
- C8 ~2 a) q2 l' W8 M* u4 eN1 IF[#1GE#2]GOTO2
# j* j7 L) ?( T+ o#1=#1+#2
, o! y O2 T; H' |( q- z' g5 ^/ ^4 O4 e8 q#2=#1-#2, c9 S: S1 z* L' Q
#1=#1-#22 E2 R$ t8 e' L5 \/ z6 V
N2 IF[#2GE#3]GOTO35 _+ f! a$ R h
#2=#2+#3$ L0 n* E) G9 C
#3=#2-#33 X" W& Y# e* S% q5 Y4 V( u
#2=#2-#3
2 w: f# t2 B' ^8 N! O1 o) bN3 IF[#3GE#4]GOTO4
) t# ]. X% r$ T7 G/ \+ ` g( l7 T: a! a#3=#3+#4! M! j u% v" T. ^ ~ M
#4=#3-#41 k: }( d; B/ H# e, R3 C
#3=#3-#4
5 N0 J9 I1 H+ g1 ^N4 IF[#1LT#2]GOTO1
0 Y7 @5 | f9 W" SIF[#2LT#3]GOTO2
7 e. u% N0 [) D+ h! }M0 |
|