數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心優秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有靈感，
5 p+ e; j0 l( d9 w有人說數據交換法.能用于何處???我來舉個例子
9 ^+ t$ q" E* D7 B$ a
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
* @4 f, G/ v) M% O使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
( d) ^$ m8 F2 G: k3 nIF[#1GE#2]GOTO5
2 [2 ]/ N, S1 R8 i0 k* w#1=#1+#2
#2=#1-#2
#1=#1-#2
* P, O$ N2 `: G' U$ W% y6 f#3=#3+#4
#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
. G  |4 {# V. o1 K/ t4 g' t6 p
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
) `7 V+ N1 N# K1 I9 Y; N方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
' e( L3 M0 D4 {#4=#3-#4
#3=#3-#4
' S, `" n  E9 k) q# B8 FEND1
) H" ~; r& H- t* P* l' h( f......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
( t  N  W* `9 q#1=5.
1 a3 q" o7 E2 |5 B- |  U  s#2=10.
- G1 h  X6 m8 P4 L" V; F) i" D6 x#30=1.
*#31=#[#30+#500MOD2.]
M0

" |  E! [0 r+ t又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空氣中的小魚

回復 2# 羅蓋仙
, H  P: |* K1 g9 C9 L你的表達式中沒有只是邏輯運算，
7 @% r. T6 F  x2 X4 r9 o% J+ U& R只有邏輯判斷有些系統版本不支持
' G: u, n+ H; K: K' T* R所以，以上語句可以運行的

羅蓋仙

; \6 t# y# ]! u$ U0 M3 ?
使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈從大到小排列完成
#1=1.
1 n, B0 m4 w6 y0 v#2=4.
#3=7.
. m9 `  M5 X) x7 v2 P$ H0 l#4=9.
1 U0 T, j% Y  J% K- B2 {2 DN1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
( y7 ~% T5 b. ?! yEND1
N2WHILE[#2LT#3]DO2
#2=#2+#3
( l) d+ }, X; o1 r: s+ i& l! l#3=#2-#3
#2=#2-#3
2 Z+ A/ K+ U, HEND2
WHILE[#3LT#4]DO3
#3=#3+#4
9 h' T, @7 k* P#4=#3-#4
9 E6 L3 T9 I' g7 N9 |#3=#3-#4
$ Y  ~1 L( _: a) r3 UEND3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
& v- W5 q+ o* C9 w- nM0

3 ?& v) }: \1 u2 s! @* v
法1-2：使用一般耳熟能詳的IF-GOTO
* I. X# k+ H& Y' U' A, e/ B  B#1=A.
#2=B.
#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
6 H! p! h2 s! Z1 F# {4 `#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
; n" ]7 V8 P1 _( e2 q4 h. K- [#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
/ Y8 ?9 k6 i3 Z4 _  I# n! Z#3=#3+#4
#4=#3-#4
7 T  \# F& k7 ?' w6 L3 {0 {#3=#3-#4
) ]5 d5 v+ }- X  Y5 S5 CN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

9 l1 i  M) s1 t# L9 k$ @' [
法二：使用変変數^^
#1=1.
0 q- h. |! D4 ~. O4 P#2=4.
#3=7.
/ p/ e# X9 s, \! L* M" }5 s; Z  v% ^#4=9.
N2 #31=1.
. k7 W  {! C. Y5 f# d#32=2.
4 \  U. L3 i+ I2 w. G7 W( AN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
3 G3 u" |3 d8 A! z6 ]; A/ T#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
' S9 U, Q6 I* Q, rEND1
#31=3.
IF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
( I2 d' [6 `' G8 M; J! PIF[#1LT#2]GOTO2
#31=2.
#32=3.
IF[#2LT#3]GOTO1
M0
2 F1 x) q9 A: ?$ O, K" C
. I; n) o3 I* N6 o# @- z. N看你習慣用那一種，其實還有其他的方法

longmeier

好帖子頂