|
|
楼主 |
发表于 2013-3-16 10:41:25
|
显示全部楼层
本帖最后由 羅蓋仙 于 2013-3-16 10:47 编辑 9 ]. D- {3 e5 B2 i4 j- F* c( o
& l; p2 {9 Y# K
使用數據置換來按大小排列,大→小
' D4 M- Z% g. Y& l+ Q法一:我用DO1-DO2-DO3比較好看,有視覺上的厲害^^當脫離迴圈从大到小排列完成
" R" f6 N$ c s: I0 j$ Y7 Y' g#1=1.
5 S& C' X* I, R0 l#2=4.
, ]- O) b& o3 g3 s* z#3=7.# b* E4 e; I( N4 {2 G9 A" t* G+ Z
#4=9.
9 N7 @; b$ j7 n4 NN1WHILE[#1LT#2]DO16 C+ F, r2 l" Z ~
#1=#1+#2
' d7 ]- }& G" i! \#2=#1-#2
9 {% r# j' D) J+ ]#1=#1-#23 \; R" I$ g; L% Q
END1
. g5 L: u; Z* V( }7 [N2WHILE[#2LT#3]DO26 J& z4 [1 l, c9 r9 |7 B1 L
#2=#2+#3( u H" @5 z6 D! X+ o
#3=#2-#3
' X* K( N# G1 i8 x, x( M7 d1 f#2=#2-#3& j: \+ Q0 H2 v
END2# n, b" o/ l( b9 Z" G
WHILE[#3LT#4]DO3* ?% a: }& d- U; _2 l5 @7 }9 Y0 b$ [
#3=#3+#4! z( h9 y5 f, g/ h) |
#4=#3-#4
) Z. ]' t4 |: w#3=#3-#4' q1 f; x, F7 u6 u6 L; f4 U
END3# F) e+ s& q1 O1 T. ?4 Z) k
IF[#1LT#2]GOTO1, E3 E6 G( E0 R1 }, {+ B1 Y
IF[#2LT#3]GOTO2
* n8 a; z2 F w z! e% b8 tM0) o4 n, G# U/ F: ?8 `
. A! m( ~4 J8 }$ z( e8 _
# j; `3 u* q: ]
法1-2:使用一般耳熟能詳的IF-GOTO' R( q/ Q% S& Q
#1=A.5 Q6 I9 L3 v/ F$ T; Y
#2=B.5 Z5 g/ [. J; z, X: W, h0 L
#3=C.
* B4 S8 S+ Y& U" q% X! x5 A#4=D.
# l; g B( t2 f& }+ `% g4 [1 ~7 HN1 IF[#1GE#2]GOTO2
, v9 T$ k0 c& j#1=#1+#26 C: h! K2 p- Y4 [9 I! u
#2=#1-#2
7 r \+ `: Q2 U* d+ @2 x/ u#1=#1-#22 y. j6 S) n* K" i
N2 IF[#2GE#3]GOTO3
7 R l! ]4 o3 w. [. {& ` X1 }#2=#2+#3) {' G3 X& t! k5 c/ B' _
#3=#2-#3
K# g& w. ~5 _& E" O( \#2=#2-#3% R/ Z' u; T7 x+ r' R+ ^7 N L1 }3 X# s
N3 IF[#3GE#4]GOTO4
& {$ M ]8 P5 _" c' k, j* R* Y#3=#3+#4
! n0 d8 L* B8 R7 u& U#4=#3-#4' ?# }' ]" i* P0 w( t
#3=#3-#4% A( O7 |! l9 U! g* v4 w
N4 IF[#1LT#2]GOTO1
- |# P4 X) E RIF[#2LT#3]GOTO2. a" u, Z. B3 [
M0 |
|