數據交換法的使用

羅蓋仙

; |& e! q; m5 `' w$ k上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
7 z& J# d; X  j8 @有人說數據交換法.能用于何處???我來舉個例子

7 ], Z8 L5 n' K; C* z% H+ n如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
; d0 k& z* R8 X( l4 G. x#1=#1+#2
# Q# B0 b. Q8 h/ U* \#2=#1-#2
3 s& V3 F  |+ h3 y#1=#1-#2
% \& z  C8 p9 f9 _# J- Q#3=#3+#4
0 V$ o! s( `+ \" Z/ A$ r+ ]( ^% t+ K' Y#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
& I; `% A" j5 n4 E7 Z& V9 X8 ]
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
2 }4 ?# M" B% s- ?& C4 R5 e方法B：
, }5 [+ @' P! v7 T) q: R% W! cWHILE[#1LT#2]DO1
" Q9 Q% Y7 j- a#1=#1+#2
#2=#1-#2
7 n# n: j) S% q  w) k7 g#1=#1-#2
0 B6 w: W0 l; p#3=#3+#4
#4=#3-#4
1 Q. R: }( ^; q#3=#3-#4
4 T- d: W2 a$ p5 M' M3 HEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
) U( b' E$ `* x  K
2 z$ u0 H/ m: N方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
5 N4 L2 v1 K* \; ~3 q#2=10.
3 F* J0 O# A  k4 F#30=1.
1 x1 X+ v/ U- c% q1 s- v3 x$ z*#31=#[#30+#500MOD2.]
: X" H' y9 q' b) @, A% U. CM0

又想把它這樣寫
  \2 R" E0 X; u1 o# ~! F*#31=#[#30+#500AND1.]
' b3 Y4 D" q; G, s0 X3 o5 ]$ |% Y' FM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
" ?4 C+ ]; o. }) {: v  i9 @1 R所以，以上语句可以运行的

羅蓋仙

$ ]# {, q$ w- ~8 Q2 y9 j6 C8 Y
3 R/ u* k: k4 L% ]使用數據置換來按大小排列，大→小
: T0 Z; g/ |# n8 R* {" L* j法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
. n) S/ M6 @. W& {2 H! Q#2=4.
% ~* q+ f+ l, k* Q#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
2 ]5 Z$ {- R( W! e) r; p#2=#1-#2
2 u* t, R  n) o/ L#1=#1-#2
END1
3 v4 U1 I7 F+ M3 a" E2 uN2WHILE[#2LT#3]DO2
; A. G: x8 p8 s+ v7 U( M/ k: ^#2=#2+#3
% F. }+ v: p4 q#3=#2-#3
" q/ t, y9 N" w+ @; k#2=#2-#3
END2
WHILE[#3LT#4]DO3
7 {  D, ?+ _9 M#3=#3+#4
% W$ j  _& I1 C/ M  `#4=#3-#4
#3=#3-#4
END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
9 |; l, M$ N2 g0 E2 e# a# `M0
% v  _7 U# a* T& v  [4 `
3 ?6 c+ a6 z8 ~% g9 U- e4 P+ l; e
法1-2：使用一般耳熟能詳的IF-GOTO
; D  R, C. x; e7 a$ I' @#1=A.
#2=B.
* G+ X; R4 M" o' s#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
- |; J2 ?- t( X) X' E#1=#1+#2
#2=#1-#2
#1=#1-#2
$ i# A5 k/ Y% r( g& d6 `- MN2 IF[#2GE#3]GOTO3
#2=#2+#3
7 U4 b' f/ Q% K+ E9 u#3=#2-#3
$ n( P- O$ S$ L# a* O% O: M#2=#2-#3
$ Z! c+ U$ w: a# V) l8 m3 }N3 IF[#3GE#4]GOTO4
3 m  O$ E6 g  Z# v# G% p4 |; i#3=#3+#4
/ y0 K) Z* ^6 O/ D+ h- H#4=#3-#4
#3=#3-#4
# d) A# t+ `; m+ r& QN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
, f0 b. l9 P# k* o( c0 gM0

羅蓋仙

' c! l4 D+ Y* M2 _法二：使用変変數^^
8 T- \: h( B! m( G; @( w$ K#1=1.
#2=4.
#3=7.
#4=9.
N2 #31=1.
& x: W3 Q" t0 W#32=2.
, z% L9 U* B: Y1 X: mN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
5 H' j. ^4 ~9 u9 K- f8 n#31=3.
IF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
8 J4 x& T) S; S6 n#32=3.
, C$ X) s! K1 Z5 _IF[#2LT#3]GOTO1
M0
4 V$ B- D% c9 I; g
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶