數據交換法的使用

羅蓋仙

! r6 a$ s9 ~9 L6 Q. P7 m5 O" ~
上次某個大大發：「編寫加工中心優秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有靈感，
有人說數據交換法.能用于何處???我來舉個例子
9 g, }* o$ E' W9 q, u5 s& v
3 {) x7 C% U" o9 X+ S& a2 {如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
6 M' ?. g; M0 C) r使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
( y, R! w2 G5 P! f; U+ ?4 u+ w方法A：
% Z5 _; K3 A$ V8 H- E% f5 E; ^IF[#1GE#2]GOTO5
$ D( j( x% M; }" |. Y7 @#1=#1+#2
#2=#1-#2
#1=#1-#2
! a* |$ D) ?$ X+ [#3=#3+#4
#4=#3-#4
! }4 P, [# D. u2 p#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
5 S! p8 ~, q7 K# A# N- g
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
6 o8 u' C3 [* ?* j( A& fWHILE[#1LT#2]DO1
#1=#1+#2
0 v6 e: v- F8 H& S#2=#1-#2
#1=#1-#2
2 n! \. J4 \: _* ?  C#3=#3+#4
1 `; b9 R  y/ D  ]) x#4=#3-#4
#3=#3-#4
* k) \& U  i+ N1 e3 v1 oEND1
: Q/ F1 J; W1 L/ g# z/ Z+ {......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
#30=1.
9 T2 F- A7 ~- \1 j2 b. B1 s! Z4 G*#31=#[#30+#500MOD2.]
M0

  Q+ O% |: O+ q' U  m) j% v又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空氣中的小魚

回復 2# 羅蓋仙
你的表達式中沒有只是邏輯運算，
只有邏輯判斷有些系統版本不支持
9 W9 f/ O6 C/ K& K7 `6 Y; u所以，以上語句可以運行的

羅蓋仙

使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈從大到小排列完成
#1=1.
. m6 ?+ t4 I( l* ~; e#2=4.
#3=7.
#4=9.
$ [7 k7 ^, I. w- ?! `* aN1WHILE[#1LT#2]DO1
' g& K/ Q, M# q( e( ]2 i! {  p#1=#1+#2
7 A) C( d  N8 x, l' O#2=#1-#2
#1=#1-#2
( B8 X5 |3 c! EEND1
; O6 H6 G1 v& Y- u" oN2WHILE[#2LT#3]DO2
4 T/ @0 a$ \% |1 K8 A1 ~#2=#2+#3
#3=#2-#3
4 ]3 A) `3 u3 m0 S$ E7 C% {6 c6 u$ s#2=#2-#3
END2
WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
1 |4 C( D4 z  `0 D) F5 A#3=#3-#4
# H- {; z5 W7 y& S' p+ IEND3
- B# {. d; q- c! O) w( b5 tIF[#1LT#2]GOTO1
! T! \' J$ V7 a8 l0 O* rIF[#2LT#3]GOTO2
M0


法1-2：使用一般耳熟能詳的IF-GOTO
9 e% l) I5 Z5 E2 d#1=A.
#2=B.
" ?4 l1 ^, n* k9 f- R: _#3=C.
#4=D.
; t' v8 c$ `4 }7 o& j) I5 fN1 IF[#1GE#2]GOTO2
0 O! T2 c7 B0 {1 [7 m5 X# h4 k#1=#1+#2
) P: [/ s$ X1 Q$ ]#2=#1-#2
#1=#1-#2
, E$ k. g4 G, v9 R8 {  s7 QN2 IF[#2GE#3]GOTO3
#2=#2+#3
4 O9 {; y/ K# y, [3 f* @#3=#2-#3
#2=#2-#3
9 T* O" Y. a' V5 ~N3 IF[#3GE#4]GOTO4
* _% h8 p$ p% l! W* U#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
0 e4 `: m9 l' J1 i" Q; }! w$ LIF[#2LT#3]GOTO2
M0

羅蓋仙

  l: S0 n9 R) q) \+ |" |0 i0 j9 x
法二：使用変変數^^
#1=1.
" B% u2 h; [6 Z1 P; b4 l1 Y#2=4.
" P: h8 \) {9 [! G#3=7.
#4=9.
N2 #31=1.
) W# n9 p3 Q, {5 Y#32=2.
5 e! C7 r  ]' H' v: j. e. sN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
#31=3.
$ _) z- N, a8 Y' f  @7 r% }) ?6 s' HIF[#2LT#3]]GOTO1
#32=4.
3 p8 U$ E( P0 A3 q* ^% q. gIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
#32=3.
IF[#2LT#3]GOTO1
M0
, n3 x6 _0 W: v$ y& w, e2 o5 t
" d4 \. `- |& Z: M看你習慣用那一種，其實還有其他的方法

longmeier

好帖子頂