數據交換法的使用

羅蓋仙

* B8 v. L* l* \) x" d3 F0 g
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
+ b. J' y4 }) }, e4 O  Z* k，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
% `1 A  ~4 o" }. I8 E# V' T1 B# o1 L
/ f8 Q# T; e8 n, ]9 e& d8 n如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
4 E, l/ P4 j* A; s, W* f7 x& d#1=#1+#2
#2=#1-#2
8 t: E7 R8 N- O3 X$ v) d; W#1=#1-#2
$ e# i% j0 R2 X#3=#3+#4
#4=#3-#4
2 m8 G. j4 i! O1 ~#3=#3-#4
- F4 f, d" H  n* hN5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
( C0 F8 \: a( c9 c+ {( G& p1 A方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
# N! P, ~8 b' B2 @' W" v% w#4=#3-#4
#3=#3-#4
END1
/ Z8 v) u4 F; m......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
( l- a- p- w8 y! r! q! c#1=5.
#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
, B' I  s2 l  j& I, zM0

2 O8 P, d. \# a0 @' B8 @, {又想把它這樣寫
9 M2 z- W; A/ _) F* J*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
& a: V) q1 P1 b你的表达式中没有只是逻辑运算，
& T% x/ K0 n9 X7 d, x只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

& q$ d5 V! R0 O& x) N; f
使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
% ^9 M% Y; q$ C" d% p+ `#1=1.
#2=4.
$ j) L. M  v$ F% t' m9 t4 d#3=7.
#4=9.
, Z$ D. f, g# M( WN1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
) m* ~5 k) b, a$ H2 o#1=#1-#2
& e( B2 R' _) q3 O* Q8 j' G7 R* y: k: hEND1
N2WHILE[#2LT#3]DO2
: X6 {, A6 H- g) T/ \' U: y#2=#2+#3
+ I4 Z* e/ Y9 W& i  R2 X) `#3=#2-#3
' C* n3 t" ^6 a  i1 T7 M#2=#2-#3
END2
  _! X: |6 \# E7 |+ t9 s, eWHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
4 j$ q" v7 J) O" E: `- E#3=#3-#4
END3
IF[#1LT#2]GOTO1
) }& S- F  G8 S9 C! r/ n5 K* g$ IIF[#2LT#3]GOTO2
9 p3 x4 O* P6 c2 [/ k: W, WM0

8 X3 K; a3 V8 A4 E( {; j5 \
% |* p# O: X  s4 q) P! P2 R6 w) I9 U法1-2：使用一般耳熟能詳的IF-GOTO
9 y7 F6 c- b* |1 R4 v#1=A.
#2=B.
#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
#1=#1-#2
. O; X4 c7 h3 w: l( FN2 IF[#2GE#3]GOTO3
#2=#2+#3
) a  w; W- H4 y9 V#3=#2-#3
/ i5 _# Q* Z  J3 C( T/ N9 E#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
#3=#3-#4
8 _$ a, H3 W) }( l8 s7 EN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

5 w! f6 n4 H( j9 [( {
/ G9 y3 L* ^; }" N& f: W法二：使用変変數^^
" S, g+ ^/ y; n7 i- m#1=1.
/ v& {! H* f. Q/ n4 }#2=4.
2 i/ K1 u7 |/ K4 o$ ~# p" Y#3=7.
7 d  b/ B9 q3 I, R& b9 Z9 ]/ U+ {% d#4=9.
N2 #31=1.
/ J$ n2 F& _# I" m#32=2.
0 C, a! Y* }1 L7 LN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
+ E0 T0 F( H: g' j( `! X#[#31]=#[#31]-#[#32]
END1
#31=3.
2 I- N7 s7 H1 n5 `% v0 KIF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
7 x* \1 a1 `& u: h  R' SIF[#1LT#2]GOTO2
+ J* S1 Y, \0 c! a, j5 o#31=2.
#32=3.
  I& H+ O( E' bIF[#2LT#3]GOTO1
M0
' }+ _7 g, Q* P# r3 [
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶