數據交換法的使用

羅蓋仙

7 z& h" @* H6 M* ~6 g: n1 o! r
上次某個大大發：「編寫加工中心優秀宏程序要訣」與「數據交換法.置換法」的文章
- b" t1 D$ r7 n. x4 e，我看完之後有靈感，
有人說數據交換法.能用于何處???我來舉個例子
( a! b2 v# Q- S2 ^2 @
( i8 ^4 p3 ]: W9 `! I( \如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
/ s& g/ ~  X8 w#1=#1+#2
#2=#1-#2
#1=#1-#2
6 c5 o8 o8 M/ P+ C3 M+ J  n& a#3=#3+#4
7 [/ p0 H7 J/ M#4=#3-#4
: m% i1 {/ V: Q' s- ^" t#3=#3-#4
  X! e# o) R) a$ L1 AN5......此時#1的值已經置換過來了.#1的值一定比#2大
, l7 g# V+ ?; e2 W5 G
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
* h/ s7 v) F( ]$ k, b( d: `#3=#3-#4
( F' b, M! J) P: s! ]. G. JEND1
3 ~. K7 i7 U2 o......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

longmeier

好帖子頂

羅蓋仙

( C% V8 G* W) w- h. c
法二：使用変変數^^
9 l4 X" Q, L! p6 Q& x9 m#1=1.
#2=4.
4 ?1 H1 @9 p% C: H#3=7.
: K' K, I( N( z8 {#4=9.
  v  n1 R; k' N! l# f- M- l! ], fN2 #31=1.
' P# j, Y: [2 F#32=2.
# r& \) `* q8 i3 x7 \N1WHILE[#[#31]LT#[#32]]DO1
; B- o' h, [) J#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
: B; O* a# p. L$ Z#31=3.
/ a# X% {8 M' g8 x# Y: ~8 Y7 IIF[#2LT#3]]GOTO1
0 M3 N% c' d  g9 x#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
" |6 m4 I, y8 S7 P#31=2.
5 O& W( |, S: J, y7 d#32=3.
IF[#2LT#3]GOTO1
# a- I$ E' f; B- f% ~- y7 N: W. oM0

+ s' `7 e0 \$ E- K  Q% M' d5 w看你習慣用那一種，其實還有其他的方法

羅蓋仙

使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈從大到小排列完成
#1=1.
/ y$ @8 s+ p! H; G  f#2=4.
#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
+ {- i+ G+ k* u5 N! h( i#1=#1+#2
9 k) I, L  u2 U! P: x" {#2=#1-#2
% ?8 O9 D9 x- l3 |* Q, Q% }#1=#1-#2
. |  v! D# `) s$ p" h0 D+ PEND1
3 F4 H  ]1 t2 l1 tN2WHILE[#2LT#3]DO2
#2=#2+#3
! y: L& W' N1 l! @, p* Z$ x5 j) w#3=#2-#3
8 v  S1 ?: R) N, y4 X% o#2=#2-#3
END2
9 x3 g0 J5 R3 kWHILE[#3LT#4]DO3
#3=#3+#4
* k) z3 N! o: k& B' a4 z2 r#4=#3-#4
  U/ j9 ~. s8 p: Z5 Z3 }0 O+ ^#3=#3-#4
END3
$ M! }. z! c  v& H' b9 x) AIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
6 Q$ l$ w6 Y9 P6 F, lM0


法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
#3=C.
& i& A( V( K. \5 L$ v1 l5 X#4=D.
# _4 |, \) y" k- G( lN1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
6 N) {$ a4 u1 [6 v#2=#2+#3
#3=#2-#3
) n; g; H; A; O0 O& Q#2=#2-#3
: c0 }8 ~! D' H* UN3 IF[#3GE#4]GOTO4
. m; h: J/ c0 o4 }% ]#3=#3+#4
8 c4 X: C& ~7 P% H4 ^9 y0 s5 W! b! O#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
* s" B3 Y3 w! F1 w8 X8 AM0

空氣中的小魚

回復 2# 羅蓋仙
你的表達式中沒有只是邏輯運算，
只有邏輯判斷有些系統版本不支持
3 s6 L& M4 Z( ?  }/ L/ w- f所以，以上語句可以運行的

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
" d5 a6 a1 W& W6 O6 s3 X7 K+ N( t#1=5.
8 G( j- I5 f" L0 _) G' g1 q7 S; }#2=10.
' o2 H. ^* B- c9 M$ z+ J+ l/ W#30=1.
*#31=#[#30+#500MOD2.]
) J5 |2 |$ i+ s: N* H( `M0
7 {4 Q' S+ I; B7 p( |
% u+ q1 M  Q7 k: P  T7 m# G又想把它這樣寫
! Z8 y, B- B5 ~3 }- H*#31=#[#30+#500AND1.]
. V6 h3 n2 Y5 S% _/ x0 Q. oM0