數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心優秀宏程序要訣」與「數據交換法.置換法」的文章
# a% ^/ f0 K( f3 h! ?4 v2 B，我看完之後有靈感，
1 T7 X9 M0 a, E$ z有人說數據交換法.能用于何處???我來舉個例子

$ e) d1 ]- M3 l; k6 U: f; b& o如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
) g% }1 x. R. `& ~使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
3 @% {4 [! w3 L: }& U7 x$ ^8 C. E#1=#1+#2
3 }6 `0 ~5 Z& S7 ~  K  a#2=#1-#2
4 o0 U. h  E, v0 R2 ^! [5 u4 N( [#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
3 g! f' d) x) W; A8 _! \  H1 }& J7 w3 R
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
/ m8 _. Z; B, c9 l方法B：
3 y3 S( K9 C2 ]+ DWHILE[#1LT#2]DO1
#1=#1+#2
  x6 ?3 g, e6 S& P#2=#1-#2
! h* u; w) k6 A9 [* R#1=#1-#2
#3=#3+#4
' U9 \+ ~4 e: r" ?( Y#4=#3-#4
  Y) b  u% o+ E& b#3=#3-#4
END1
# ?6 \4 K+ k/ S# f......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
" t3 H' F' L6 P9 g#30=1.
" c; ~  V" a3 e% \; q1 c*#31=#[#30+#500MOD2.]
2 B3 t/ F$ L3 pM0

又想把它這樣寫
*#31=#[#30+#500AND1.]
# m8 ^4 R; x  y4 l# \( {* ?M0

空氣中的小魚

回復 2# 羅蓋仙
/ I* C: s( u6 I$ ~" Z$ `* L8 F你的表達式中沒有只是邏輯運算，
只有邏輯判斷有些系統版本不支持
所以，以上語句可以運行的

羅蓋仙

使用數據置換來按大小排列，大→小
+ K7 p4 W. O' q法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈從大到小排列完成
#1=1.
' D+ E, T9 D. S#2=4.
#3=7.
) h! I! S4 u' q6 E  E#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
1 j* n! U* L- ~; H#2=#1-#2
#1=#1-#2
. I9 Q$ q- J7 c9 b4 [END1
N2WHILE[#2LT#3]DO2
5 u) [, [& b- i' O8 F) Q#2=#2+#3
#3=#2-#3
#2=#2-#3
5 a' ], P! ]" d7 B! ~3 t3 {  ^END2
! l8 P5 U9 o+ h. J$ n  C* A; vWHILE[#3LT#4]DO3
#3=#3+#4
- k6 V( j. j- ], z- m; ^#4=#3-#4
#3=#3-#4
END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
6 d4 d' C1 S$ |; o; YM0
, z" w9 Z5 h. _
6 q/ x$ P0 x7 H
法1-2：使用一般耳熟能詳的IF-GOTO
8 W2 q$ o; S0 W* |; _5 H; O+ i#1=A.
- T, _6 [; A$ T, h#2=B.
#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
- y0 v' c# K9 z0 m7 h4 Q#1=#1+#2
#2=#1-#2
; j. i* Y/ U" p0 z# b: D#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
3 _2 k# t0 {2 B% k2 ?#2=#2-#3
# h6 j7 I; b, v3 @7 R! k( mN3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
#3=#3-#4
& l0 |& \7 L3 y2 i6 Q; U/ TN4 IF[#1LT#2]GOTO1
/ ]. h% G1 y( q+ r$ M8 r2 NIF[#2LT#3]GOTO2
M0

羅蓋仙

& f' r, \6 t" q
& K( C; n& |. m5 r/ X& P8 {9 ^4 s% P法二：使用変変數^^
#1=1.
0 n% Q4 f& u. |% O8 M; v3 C5 K# d#2=4.
#3=7.
#4=9.
5 f  N1 r7 _6 H' e1 ~$ e6 u& wN2 #31=1.
+ C& [# q% C( Y6 u#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
1 g% f8 Q0 N, ZEND1
#31=3.
; @0 t9 [& W8 R# b. c+ B( jIF[#2LT#3]]GOTO1
5 e. u) j5 a+ l  t. T#32=4.
IF[#3LT#4]OTO1
) t+ c' Q3 b4 e, l& @2 Z* ]IF[#1LT#2]GOTO2
#31=2.
3 Z; v& U4 z. o6 G* T) d#32=3.
2 _! b4 n, _0 ^IF[#2LT#3]GOTO1
4 R, p0 E. W. y3 W% p( ~5 `( X* fM0
. x! v6 {5 X/ W
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子頂