|
|
楼主 |
发表于 2013-3-16 10:41:25
|
显示全部楼层
本帖最后由 羅蓋仙 于 2013-3-16 10:47 编辑
, Q) k8 `2 ` K$ k# R* R0 s3 ]* H
9 _! m2 f: Q9 s5 ]: }- z使用數據置換來按大小排列,大→小- Z& @2 k# N2 A
法一:我用DO1-DO2-DO3比較好看,有視覺上的厲害^^當脫離迴圈从大到小排列完成
6 Y7 n3 a& L3 S/ A H: o#1=1.5 j$ ^1 Y) u; P3 U
#2=4.
* p: m3 v0 }" b3 I7 x#3=7.
2 C7 q/ {2 a7 i) p#4=9.
" I% P9 j0 {/ P- HN1WHILE[#1LT#2]DO1
2 e# q" U) u, _) n$ |0 `3 @# [#1=#1+#2, }, e+ o# {7 v4 E Q
#2=#1-#2
- K1 X& D- w0 ]6 C, X7 x2 _( ^% a#1=#1-#2, u& t. ]) X) j8 e' W
END1
$ @9 ]/ z: B% y" r# BN2WHILE[#2LT#3]DO2; R8 T0 _5 `/ z/ x6 p
#2=#2+#3; i4 E% a( |- f% U% o5 n( `1 d
#3=#2-#3
3 D9 j9 |" j3 n& D7 z1 h& h#2=#2-#3
1 F* Z% T. j; W- QEND2+ q3 _6 a% j( C6 I
WHILE[#3LT#4]DO3
7 e/ K. b' k* V6 X" u9 K#3=#3+#4
3 l) K. ?5 W9 w( S I#4=#3-#4
3 h; f+ g1 G7 K5 d$ n6 W#3=#3-#4
* H9 K% U$ w3 ]8 p% R4 B/ WEND35 y' p0 k) @. p, \
IF[#1LT#2]GOTO1
+ ?5 ~, [2 h# `; K6 AIF[#2LT#3]GOTO28 Y$ T X: P* y4 N
M02 {6 Q1 O3 y+ J6 t9 z
7 Q% W0 O$ H1 U9 C1 A* I' r+ X# S
法1-2:使用一般耳熟能詳的IF-GOTO
0 P$ O0 m& S$ e* G% h- p' g& q0 y#1=A.
( j0 u/ A+ y5 o% E7 m0 B. o9 C#2=B.7 S5 F: I/ |& P" c/ [* D/ U
#3=C.8 A2 j" ` y [- Y+ F; N3 s
#4=D.: d: J4 P6 V& n; r/ p
N1 IF[#1GE#2]GOTO2" U4 J- O3 R# i5 o# |/ Z7 L$ L d1 d
#1=#1+#2" Z. } E+ ]0 V* g) F E4 J7 e
#2=#1-#22 K$ X$ v- Y; l3 w2 @
#1=#1-#2
: N8 q( T w- |N2 IF[#2GE#3]GOTO3- e u& N+ C, ^2 e* r
#2=#2+#3- B1 [! I' f5 E, L# s3 j
#3=#2-#3$ I5 d2 Z- J7 f: f+ _
#2=#2-#3
; x7 k4 y& A5 d. I& a' V& H7 vN3 IF[#3GE#4]GOTO4
' k4 i* L0 t! s; B#3=#3+#4! G& y I }8 l
#4=#3-#4# }7 Y4 }& ]& v- f7 Z$ n
#3=#3-#4: D% L. {9 c" E2 ?
N4 IF[#1LT#2]GOTO1/ B) z; e/ t) Y7 t9 ]1 |) p5 \
IF[#2LT#3]GOTO2
. i- W1 x+ n9 p3 m2 D& B2 p+ K) QM0 |
|