|
|
楼主 |
发表于 2013-3-16 10:41:25
|
显示全部楼层
本帖最后由 羅蓋仙 于 2013-3-16 10:47 编辑
' ~, J9 [' G- I D2 `: n4 f ~+ @# R& b& v, M
使用數據置換來按大小排列,大→小
4 B$ r, \7 t$ h9 r法一:我用DO1-DO2-DO3比較好看,有視覺上的厲害^^當脫離迴圈从大到小排列完成3 b9 i2 A# |: M! J7 ^
#1=1.
; X' }" X" R* a+ w$ E#2=4." u/ T! A' D/ {7 U
#3=7.) n. a; ~ Z" F0 H
#4=9.
2 I; W+ S( m& b6 e7 c$ E! GN1WHILE[#1LT#2]DO1 f, j" y+ H, E
#1=#1+#22 _4 h1 E2 O0 ]* ?, h/ W7 J
#2=#1-#21 {7 H0 C ]/ i. T2 C9 Q( E8 i
#1=#1-#2* {! @' P& G1 k @. y6 a% m
END1
1 B+ t+ @ S; a" o+ c: K. h, mN2WHILE[#2LT#3]DO2) r6 d4 S, }" W# Z$ Y
#2=#2+#3( ~0 H" w+ z- ?( _5 a. P
#3=#2-#3
! K$ `, N4 ? n$ w#2=#2-#34 \2 I. ^: j$ u
END28 b, L( {- I) `* V" l9 g7 U# o' c
WHILE[#3LT#4]DO3 {; N& J6 R) a" U5 R0 o2 }( j
#3=#3+#4$ w6 s) L$ s- T" J+ n/ t
#4=#3-#4
; X% D2 B( B- j$ r2 O#3=#3-#4
) }% u" z% C: n- r$ }9 g4 u( [END3& m4 Q) \9 f2 D) {
IF[#1LT#2]GOTO1
* e9 z- K& Q5 E6 u" p4 r3 V7 y9 LIF[#2LT#3]GOTO2) h2 ~7 l5 ~* F- Y1 O9 f" l5 r
M0
+ L7 n9 }& d }9 d; Z( q% r! S8 G% O/ @( a: _; M: C4 q T
% m) a. ~0 M/ O
法1-2:使用一般耳熟能詳的IF-GOTO! _5 L/ a; d: ~
#1=A.
0 h, [- G8 @3 W7 j% Z/ t#2=B.
5 r1 {2 y( o" B: Z#3=C.# s2 W9 g8 ]# ?5 m, X6 _
#4=D.
, P3 E+ x4 n, s$ U) z/ FN1 IF[#1GE#2]GOTO2$ E& b& s7 Q& Z/ ^9 K/ t
#1=#1+#2
7 d" ~. k* U$ @$ `2 i#2=#1-#2
) p% H" G7 Y8 f' w; V, {#1=#1-#21 ^ c( J9 _/ m4 k: ~9 Y
N2 IF[#2GE#3]GOTO3
" E/ s, N s5 K( F) G#2=#2+#3& {, w: m" S! z: d; v
#3=#2-#3) H2 s0 N( g! `1 ~, ^/ Z/ R ~
#2=#2-#36 [, b" K' o9 W' g( X4 T" Z( r
N3 IF[#3GE#4]GOTO40 x% m% i/ `7 y
#3=#3+#42 k0 } n" [6 b% N; l$ M
#4=#3-#4
0 x. x% i J/ c1 c8 @3 o) C2 G#3=#3-#4
" _" K9 x+ l4 ` fN4 IF[#1LT#2]GOTO1
4 ^% L& `" w8 ?, mIF[#2LT#3]GOTO2
! }( O0 }$ d% x9 |( w$ M: q/ SM0 |
|