數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心優秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有靈感，
) H! I* P: G+ k5 s有人說數據交換法.能用于何處???我來舉個例子

: @' P0 I+ C1 r0 O% u如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
# b3 I! k8 N1 k# x4 t6 l#2=#1-#2
#1=#1-#2
/ c  g2 f$ l5 `# Y* \& ]#3=#3+#4
0 j2 `9 z" @. Z! L#4=#3-#4
#3=#3-#4
4 A+ G* R. d! ]6 m9 c; fN5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
% p% y9 I5 k' l& n8 \- B. T方法B：
WHILE[#1LT#2]DO1
- ~; _* m9 P" c9 c+ J#1=#1+#2
" D, ?, X5 E2 C; |+ ^#2=#1-#2
3 _3 j+ F; h( A% s6 L/ }#1=#1-#2
#3=#3+#4
+ Q8 b- ?- ?6 N6 ?#4=#3-#4
#3=#3-#4
2 u4 C- J+ z0 G- m2 }9 [; i3 aEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
$ Q/ w* [5 F: }' c6 u3 V
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

longmeier

好帖子頂

羅蓋仙

+ N( k. ]8 Y; o9 b9 E8 v8 V
法二：使用変変數^^
; t" }# U% @# M" X  m$ H#1=1.
! }, E# K. D1 J1 r( a#2=4.
( T4 S1 R( z+ O: y8 ~! r3 u3 T9 G+ z' u#3=7.
#4=9.
- q! d3 O5 O$ I6 Z) W0 G# |3 g2 LN2 #31=1.
% I, a: j' t0 {) ?' T; |" f9 _#32=2.
* ~. |* [2 F( V: KN1WHILE[#[#31]LT#[#32]]DO1
; V. r  W+ ~- g* w#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
. A" D* P1 Y( F& D#[#31]=#[#31]-#[#32]
2 K8 g, n- x; q! ?$ X, PEND1
#31=3.
IF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
- z$ f+ w+ t' V1 o- H9 R" w#31=2.
#32=3.
9 \! j0 y9 r' n! N2 t# R3 [IF[#2LT#3]GOTO1
M0
7 e/ M9 x) y% G; ]! S
看你習慣用那一種，其實還有其他的方法

羅蓋仙

$ A) u6 a; ~7 g4 C
5 t: w' I. r% S# n+ ?, l; Z使用數據置換來按大小排列，大→小
: z% n) G3 m9 K法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈從大到小排列完成
& F* C$ B9 I. {% k4 O  ?#1=1.
#2=4.
+ l+ h! _1 l8 C3 d#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
END1
6 K8 F, @+ H8 @0 CN2WHILE[#2LT#3]DO2
#2=#2+#3
% F" i4 |: i" l( P% C/ Z3 P#3=#2-#3
, N1 y7 n. K7 |1 W#2=#2-#3
) j: N/ ?+ W0 {( P, h$ m* uEND2
3 l% `9 Z" d: G2 kWHILE[#3LT#4]DO3
#3=#3+#4
. r/ E7 K$ }. U* T: F: p" n#4=#3-#4
#3=#3-#4
END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
1 T, @4 N4 s7 h& g6 B8 k9 [M0
( E3 ^0 ]1 ~* c  c0 {
# u6 w% Z: B" y& p
5 R0 R. f" _1 I6 ^5 Q法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
, L7 b4 I- k+ K2 y#2=B.
#3=C.
) W9 [4 f8 e$ k/ I4 O#4=D.
6 r7 v: V: R0 ZN1 IF[#1GE#2]GOTO2
#1=#1+#2
) a: M2 p7 S0 T0 J#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
# G2 b7 l+ i- G& w; a; B, f$ I#2=#2+#3
#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
9 |) m- X# @: c6 U- o5 u#3=#3+#4
4 R( ]" p; S5 n& U#4=#3-#4
#3=#3-#4
8 H& r5 u# @" i( G' `2 aN4 IF[#1LT#2]GOTO1
6 B% w' {: K) c7 u/ xIF[#2LT#3]GOTO2
/ ~* B( Z% H+ p* h) RM0

空氣中的小魚

回復 2# 羅蓋仙
你的表達式中沒有只是邏輯運算，
只有邏輯判斷有些系統版本不支持
0 ]5 u0 Z7 I4 I6 n6 J6 p2 t所以，以上語句可以運行的

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
' h, r. y  z( D! {$ f. \2 v#1=5.
#2=10.
" p9 U8 s) q* s! k7 T' x#30=1.
3 K0 }6 r, D) l. @! T0 K1 S% g*#31=#[#30+#500MOD2.]
4 o6 E7 {" {5 Y/ AM0
0 x, v2 M4 s' C+ Z, |6 p
$ E- l% m; t8 q% S( X又想把它這樣寫
) ]; n6 c; a; w*#31=#[#30+#500AND1.]
M0