|
|
楼主 |
发表于 2013-3-16 10:41:25
|
显示全部楼层
本帖最后由 羅蓋仙 于 2013-3-16 10:47 编辑
8 J( e, [$ J7 ^- V" t; A' x
8 X, E" b7 M) C, `' a+ Q% a9 N0 U使用數據置換來按大小排列,大→小3 w5 ~* C% C' T3 O1 m
法一:我用DO1-DO2-DO3比較好看,有視覺上的厲害^^當脫離迴圈从大到小排列完成
7 c7 r/ Q, Z5 D4 j9 ]; u8 O#1=1.
' B+ F" H, X; D% K+ |) a#2=4.
1 i) b1 H+ u! b; q# l) d#3=7.
\4 \" @' I" i1 d2 ^% k2 m#4=9.
c) p/ w/ E* n$ P. f' d* sN1WHILE[#1LT#2]DO1
* S9 n2 X+ H+ a#1=#1+#2- O" j1 c4 y4 n& ~
#2=#1-#2
1 x9 \5 {/ |! i% I) U# O1 i#1=#1-#2* y N& I7 n8 S6 c8 F9 [( u
END1
/ r9 a( {3 d8 G5 DN2WHILE[#2LT#3]DO2( [% |& b9 ?8 E
#2=#2+#3 |: C0 S5 K6 K5 {9 V# z% w
#3=#2-#3
6 U# @- c* H/ P4 [5 R) l#2=#2-#3
8 D) Z; O! ^0 L: O% N* V2 c- i. ?END2
6 b1 o3 r/ a! H! c$ iWHILE[#3LT#4]DO3( y: U3 h0 j; r% m
#3=#3+#4; @( m1 q) P& T' i2 I
#4=#3-#4
$ j( L) f( G4 n: U1 O# D#3=#3-#4
4 M7 H' Z; H( c; mEND31 s+ R# h0 J( `/ R* {5 C
IF[#1LT#2]GOTO1
/ ]2 u6 N$ r, `" R0 IIF[#2LT#3]GOTO2
8 H/ y: E Y. P0 i) v2 A0 j% EM0
7 d1 u t% P H# x* F: R1 A1 Z& G: o
5 [5 |, N( d6 @1 G$ t0 \法1-2:使用一般耳熟能詳的IF-GOTO
$ b! H- h0 c+ u6 n# Z6 |5 q#1=A.
8 O" [, p+ m" u: h% I, W! n$ B U#2=B.
: t8 Q7 Y7 ?' B! M2 T#3=C.. P& d5 Z: D6 \2 ?) c
#4=D.: S1 k2 z" n" m' G
N1 IF[#1GE#2]GOTO2' e. z$ B2 `+ t5 c3 ^
#1=#1+#2
& h1 o/ e G# S m4 L#2=#1-#24 }& B, |; s4 Q
#1=#1-#2' V7 }: r" m$ H3 R& r- A! J: ]
N2 IF[#2GE#3]GOTO3
3 T* e8 A% i: `#2=#2+#3: ~5 |6 I& U4 W8 F' x
#3=#2-#3
% `% d. ]3 P5 o0 \1 r#2=#2-#3# I1 E; k4 N/ ?. W! W# j
N3 IF[#3GE#4]GOTO41 o. m; x2 C7 H+ }
#3=#3+#4
' l, }" S3 l4 }# f#4=#3-#4( N2 c/ \/ S a; Y
#3=#3-#4
4 Q3 f' Q R" G1 }0 M# ]! i7 FN4 IF[#1LT#2]GOTO1
& d& u( ~2 t! BIF[#2LT#3]GOTO2' G8 D$ Y5 G7 S& u# }6 M6 @* t
M0 |
|