數據交換法的使用

羅蓋仙

. n9 j9 G6 B* {上次某個大大發：「編寫加工中心優秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有靈感，
9 W3 _6 V6 v% j# w$ S2 l0 I% B有人說數據交換法.能用于何處???我來舉個例子

$ M$ S- l, B% Q; H7 `2 d) x+ ^' E9 U如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
/ u+ ]) P, I! J" w0 S方法A：
IF[#1GE#2]GOTO5
' c, i6 K9 R, I" e/ t% K2 d1 o% c#1=#1+#2
#2=#1-#2
#1=#1-#2
1 ?* M8 F! c& i: K" c#3=#3+#4
#4=#3-#4
# E$ A/ G6 }. Q9 g$ A1 ~#3=#3-#4
+ d+ q9 X4 c" G8 x1 CN5......此時#1的值已經置換過來了.#1的值一定比#2大
, W) g2 k. H( P& m( S
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
: g8 [. r; D& a- `WHILE[#1LT#2]DO1
#1=#1+#2
3 ~& J. A* `7 y( r: d4 |. T# w#2=#1-#2
#1=#1-#2
3 v: y, ]7 Z) D  m#3=#3+#4
; w. s  F! d4 w+ L' n, g( Y#4=#3-#4
#3=#3-#4
) @; N# J8 F& S- |/ K5 YEND1
8 q2 `! u2 L: v. Z& e0 H......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
! f4 `% p+ p1 R, g  m' E+ G1 I
& M/ T! J3 y* I  q方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
2 C: B, Y" O8 Q5 C#30=1.
/ L. k1 K6 ~6 d/ I*#31=#[#30+#500MOD2.]
5 U: E, C6 U: R4 h0 a( z/ `M0
% \5 h- x) \* N0 I
又想把它這樣寫
*#31=#[#30+#500AND1.]
2 U7 x! t6 A( Y1 |* s. P3 xM0

空氣中的小魚

回復 2# 羅蓋仙
你的表達式中沒有只是邏輯運算，
只有邏輯判斷有些系統版本不支持
  J+ o" `/ e- K# y# B! T9 ~所以，以上語句可以運行的

羅蓋仙

/ {( \: W; _8 F- M$ z. j使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈從大到小排列完成
4 k# \0 J. H$ `+ e& B) Q#1=1.
#2=4.
3 O6 j1 r7 j7 u+ H2 v% O, b#3=7.
4 F0 x7 z7 N# v3 J#4=9.
N1WHILE[#1LT#2]DO1
1 R5 f. m& I( u& [. }( S#1=#1+#2
#2=#1-#2
7 u  g  s2 `# c7 ]. D#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
9 Q9 C/ _' T6 I) F7 P#2=#2+#3
#3=#2-#3
! H4 m) [% Y1 u1 k1 {$ }  j#2=#2-#3
END2
WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
#3=#3-#4
END3
IF[#1LT#2]GOTO1
# |$ T8 L- O4 t( o3 p& E% XIF[#2LT#3]GOTO2
M0


4 @1 T8 [4 i) {8 d法1-2：使用一般耳熟能詳的IF-GOTO
) F3 t/ Z+ X8 I- A#1=A.
& Y2 g! d5 a( Z$ @/ X/ H#2=B.
) n1 |) n- b+ C+ e0 `#3=C.
9 P$ u7 @' f  L#4=D.
4 X. q2 Y7 A7 y' Z% K6 CN1 IF[#1GE#2]GOTO2
' O) e- T3 Z, Q+ Z#1=#1+#2
/ H) W- g( U3 n8 h2 Z; Q7 z5 M#2=#1-#2
; ^, c- R7 A0 J7 q* j& O#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
! p/ O2 ]: p6 m6 F2 V) W#3=#2-#3
1 e3 P& F4 H+ I# B( ]0 N1 c#2=#2-#3
: s( t  ^# u% TN3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
4 h3 z- {$ m/ j. n4 t#3=#3-#4
# `) t' \, x: S- ZN4 IF[#1LT#2]GOTO1
, w- h, f. }8 m* }$ X( H, PIF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
/ L5 e2 ^5 d8 q9 h* z#1=1.
#2=4.
#3=7.
% P: Q1 ?; q- T* H9 \4 C0 B#4=9.
N2 #31=1.
" h, ~! X4 Y/ M  j9 g! E#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
; R3 A/ [) [: Z, S#[#31]=#[#31]+#[#32]
! L. e8 v) F" ^! C! c7 c$ ^#[#32]=#[#31]-#[#32]
8 q3 W: [# v: i+ j: b0 h! P+ [: P#[#31]=#[#31]-#[#32]
3 p- x, q  S& _3 B, KEND1
#31=3.
IF[#2LT#3]]GOTO1
. u' a4 L1 q! D#32=4.
IF[#3LT#4]OTO1
: j5 r9 I' d) k; |' RIF[#1LT#2]GOTO2
0 e; z) w' M, X- e* `3 |, S#31=2.
#32=3.
2 |- V4 p( Y4 iIF[#2LT#3]GOTO1
M0
$ r2 d+ V. W; Z0 Y2 b& s
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子頂