數據交換法的使用

羅蓋仙

, s3 `) _8 l0 k3 b/ P% V& Y. }0 }
上次某個大大發：「編寫加工中心優秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有靈感，
有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
6 ?  j8 y& p1 D) U0 fIF[#1GE#2]GOTO5
#1=#1+#2
. @) L1 h3 l; q1 n* C#2=#1-#2
#1=#1-#2
5 t( q. s% f' ^6 K3 W" v7 S% G' x$ Y# F#3=#3+#4
* m7 t; @+ J, S  `0 l. u3 k  Y8 s#4=#3-#4
#3=#3-#4
& |' X" ~' m/ r9 TN5......此時#1的值已經置換過來了.#1的值一定比#2大

$ \, w1 S0 E( l' `/ j% [' }& X我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
# N9 |/ i" m+ R) P#1=#1+#2
#2=#1-#2
! \$ J& k0 x  \  Z. i#1=#1-#2
#3=#3+#4
, S$ f2 p$ ~/ u1 V4 J; F7 z& t. t#4=#3-#4
#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

longmeier

好帖子頂

羅蓋仙

1 _) [7 x  E3 A( c1 c$ T
法二：使用変変數^^
#1=1.
. p8 z) z* D! k4 ]7 a/ v- p1 x#2=4.
#3=7.
4 j( q, s' k/ h+ r3 n) {#4=9.
* f$ R0 G* G" y4 MN2 #31=1.
. C5 `$ c2 A; R5 o- l% @#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
( x+ i. P' w/ z/ a#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
. \5 Z# b" m. }  j" L4 n#[#31]=#[#31]-#[#32]
END1
  W% i# b1 _* [  T4 J* U/ U#31=3.
IF[#2LT#3]]GOTO1
6 K9 y4 ]& u* q% c0 P#32=4.
IF[#3LT#4]OTO1
( V' _) `- d0 v: a/ ]  l4 j4 L/ X8 U: bIF[#1LT#2]GOTO2
#31=2.
#32=3.
IF[#2LT#3]GOTO1
" a5 \+ r+ O( vM0
- L5 M% E& p( p: q/ B  x9 O& o
6 ], A1 W1 r' E3 W看你習慣用那一種，其實還有其他的方法

羅蓋仙

0 \- V9 K2 h1 c1 A9 Z
使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈從大到小排列完成
#1=1.
#2=4.
#3=7.
6 P  O* o9 B8 @" E8 g- R2 n#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
% B$ L, Q3 t5 k) K% X; t#2=#1-#2
( m9 Y& F4 P8 e3 t( Q! a. k- t#1=#1-#2
END1
3 ~% ]5 B: x) ^0 y% q2 ON2WHILE[#2LT#3]DO2
#2=#2+#3
0 s! g6 m6 u! Y# |" k#3=#2-#3
#2=#2-#3
# p9 S! B0 ^" ~% @# c: M6 [) rEND2
7 I3 c, `8 T! k: o  dWHILE[#3LT#4]DO3
# ^; |1 [$ S0 ]/ F$ Y! O2 K8 h#3=#3+#4
#4=#3-#4
#3=#3-#4
( s* U1 |3 E  e) P0 ^* ?4 U- ?END3
IF[#1LT#2]GOTO1
; I3 c/ \  S0 l6 Z7 t( t# d- [IF[#2LT#3]GOTO2
M0

6 A" ]# {4 _3 g" V' [" w
% Y! h2 _( C( Z' J) L1 g法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
! g: y  h4 Z. Z9 [. G4 a" [#2=B.
#3=C.
* T' j% R" H/ x# k8 i, K. Z5 a( U, E#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
# `( K. B( C; Q9 r3 _#2=#2+#3
#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
#3=#3-#4
8 |" H* ~5 }  ^6 n8 lN4 IF[#1LT#2]GOTO1
& q* C/ g  Z7 l+ hIF[#2LT#3]GOTO2
M0

空氣中的小魚

回復 2# 羅蓋仙
你的表達式中沒有只是邏輯運算，
只有邏輯判斷有些系統版本不支持
2 n- s% b7 i; c. L! e所以，以上語句可以運行的

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
0 C& B! t' D% p7 p#2=10.
#30=1.
* w8 D4 X  B" s5 W1 H*#31=#[#30+#500MOD2.]
" ]) E7 {" [* Y$ c$ s' {6 RM0

3 D! j, _/ a0 P& i又想把它這樣寫
/ A/ A* W' H$ k/ V0 d: P5 u*#31=#[#30+#500AND1.]
M0