數據交換法的使用

羅蓋仙

' C& A+ L! z2 d; B上次某個大大發：「編寫加工中心優秀宏程序要訣」與「數據交換法.置換法」的文章
& S/ `& {  \/ y- a- D( v& \，我看完之後有靈感，
有人說數據交換法.能用于何處???我來舉個例子
$ a& \; ^# z4 O
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
7 c9 `0 T* }; H! I. I#1=#1+#2
#2=#1-#2
) _0 Q+ X5 M' H#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
+ `/ ~8 D$ f6 E! M( M; w#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
' Q$ J6 y8 [+ B/ f* n. B" u#4=#3-#4
! e$ C4 ^' T6 x  K) X1 h2 t#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
5 |6 B5 s" u7 T% b3 L# s
9 O! P8 o9 G3 G' o/ J方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
" y7 s3 x! g6 N: d$ \" h#1=5.
#2=10.
#30=1.
- I# [+ v: A3 m  ]2 Z/ R6 @*#31=#[#30+#500MOD2.]
$ V! A$ m7 \0 c. UM0
& }) r6 y. E" f3 ~
又想把它這樣寫
4 b( L* c* q; L*#31=#[#30+#500AND1.]
M0

空氣中的小魚

回復 2# 羅蓋仙
. y3 f1 `2 q. p8 d8 e0 v* d你的表達式中沒有只是邏輯運算，
只有邏輯判斷有些系統版本不支持
所以，以上語句可以運行的

羅蓋仙

! n9 ^/ C( R% t使用數據置換來按大小排列，大→小
- q% Y( z8 _% ?3 I8 g" A0 o) ~法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈從大到小排列完成
& F# O5 h6 s# \% B' |#1=1.
6 j" f  w, e( I5 P/ E4 O+ k#2=4.
#3=7.
#4=9.
( {* c/ J8 W) i! N& q6 fN1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
9 J9 R& y. `  f% B# Z8 d#1=#1-#2
END1
$ c9 g9 N& I" `6 j! ~9 B9 @/ eN2WHILE[#2LT#3]DO2
; V3 J0 _$ R" S) E" r2 a4 G#2=#2+#3
#3=#2-#3
#2=#2-#3
END2
WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
#3=#3-#4
END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
: n' O7 g- F9 E& ~M0
* d3 n: v' D0 _! p% n

6 @* r# b5 C6 `6 I1 ^法1-2：使用一般耳熟能詳的IF-GOTO
' Q4 t9 h# X0 N/ F7 ~; }' M#1=A.
7 x5 F' Y( u3 ?0 `#2=B.
#3=C.
#4=D.
' w$ Y, A3 L+ Q- X, ^! l( KN1 IF[#1GE#2]GOTO2
6 e8 c0 o$ n5 T) D" z" v" F' C+ V#1=#1+#2
/ ]; Z1 C) x1 t4 @" L# M; z4 p! n#2=#1-#2
! f( T  k' j) r/ j0 q. C+ f#1=#1-#2
& M0 c6 X6 p8 jN2 IF[#2GE#3]GOTO3
. z' N4 ~, u4 U6 ?#2=#2+#3
2 {& r) ~7 Z, r9 ?( j9 R#3=#2-#3
#2=#2-#3
; [' j. Q, M% C. bN3 IF[#3GE#4]GOTO4
1 J% l$ L: e2 S  ^( }' G#3=#3+#4
#4=#3-#4
#3=#3-#4
/ w2 `) s+ ?7 C3 d9 e7 ]N4 IF[#1LT#2]GOTO1
' U& j, i. \0 E: E8 R; `IF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
9 ?4 Q- J0 v' k5 Q6 u; j2 Y! t#1=1.
#2=4.
7 ~* D) h# J8 N3 |5 b#3=7.
2 c9 b, n5 f# V) h( D#4=9.
4 g6 W! @) {/ k0 O& ?& EN2 #31=1.
#32=2.
0 p. o  w3 M$ z; y! `. T) e+ _2 v0 XN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
#31=3.
( @# L) G( ?  X( d: eIF[#2LT#3]]GOTO1
#32=4.
0 {6 o7 m) N7 ^2 s' h% UIF[#3LT#4]OTO1
: i" w: M4 ^- _$ X. N7 _IF[#1LT#2]GOTO2
#31=2.
#32=3.
/ h7 Y. w  X  H- v6 pIF[#2LT#3]GOTO1
M0

, R! h: C7 @  U) a7 P& S: h+ C) e看你習慣用那一種，其實還有其他的方法

longmeier

好帖子頂