數據交換法的使用

羅蓋仙

1 d& b& b2 o8 F# e/ U0 y- j0 K3 C3 i
上次某個大大發：「編寫加工中心優秀宏程序要訣」與「數據交換法.置換法」的文章
1 y, X% X! X' S6 @，我看完之後有靈感，
$ a  x! I9 w4 J8 ?2 ]有人說數據交換法.能用于何處???我來舉個例子
% _1 c. \$ l9 I
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
/ s" C$ G" B5 }9 A方法A：
% y' v% E' o( {6 @9 ~0 BIF[#1GE#2]GOTO5
#1=#1+#2
. ]2 J9 C- l# C# D8 R. a#2=#1-#2
#1=#1-#2
#3=#3+#4
3 M: {8 N/ v/ \1 O- ?1 M% H#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
( w8 \1 b6 s1 \5 ~2 W
' }5 C, z1 d8 R. f: R我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
& P1 d, ~8 K; O6 \#4=#3-#4
6 ]* m1 F$ {3 s( o% R4 K#3=#3-#4
8 B* ^# k* `  A0 o. f! q" {END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
2 y0 b+ V8 P; Z7 r
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
( ^+ Z) ?, v! T. D#1=5.
. e1 r, ~/ O/ l% Z! F' D#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
M0
, o9 T, y% s' w
7 }: e4 e4 N5 U4 S* m& W! D0 N又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空氣中的小魚

回復 2# 羅蓋仙
+ a5 l% m( J% ?' s0 O! a你的表達式中沒有只是邏輯運算，
1 B8 }/ A6 k) W% F1 @3 d& Y* Z! A只有邏輯判斷有些系統版本不支持
# k! @  D5 `, a( W所以，以上語句可以運行的

羅蓋仙

3 {- e) k" f- ]/ `; M
使用數據置換來按大小排列，大→小
2 c! p- q+ k# }4 h- ~法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈從大到小排列完成
#1=1.
, i! I) |0 |. _4 _9 s#2=4.
#3=7.
  J5 A: W, Q8 M. i9 n8 Y1 J#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
: k" @, p$ E3 f& l#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
3 p: a$ `( `$ x9 A6 C* ]#2=#2+#3
8 R" Y0 A3 ~. U* J$ S" x. X#3=#2-#3
( t' W2 e1 @9 X: x. K4 B2 l#2=#2-#3
5 G, t; @# g% tEND2
WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
#3=#3-#4
END3
' K9 ?, j7 [  L3 f/ D2 m: X6 b" NIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
8 q8 A5 N# `5 H8 D& b+ d
& k' j: O0 f7 ]( L1 Z: b
3 N7 s0 Z& x' |0 C  U3 o法1-2：使用一般耳熟能詳的IF-GOTO
) [' r! r: N6 m  Z. j- k#1=A.
& x0 N$ P% ~4 I1 J& x: C1 q( T: x#2=B.
1 r6 L" A* |$ h8 t7 A3 |#3=C.
#4=D.
, T4 w  N8 v, Z3 O2 x7 l) EN1 IF[#1GE#2]GOTO2
- ?; Y2 s# H4 p  d#1=#1+#2
- R) T4 }$ z& h1 C0 ~) _#2=#1-#2
#1=#1-#2
' k/ K* v1 u$ `( W0 AN2 IF[#2GE#3]GOTO3
9 n" K' @6 S) }#2=#2+#3
  I, C0 |3 s& d#3=#2-#3
) D& z! H: Y" I# F+ M#2=#2-#3
N3 IF[#3GE#4]GOTO4
- @' b) y8 ~; m8 ]! o#3=#3+#4
#4=#3-#4
" m7 g  ^2 g! r# q7 m0 _#3=#3-#4
N4 IF[#1LT#2]GOTO1
0 `1 z/ y- q* V+ G. ~8 e0 A$ IIF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
( Q( C; X; {' ~#1=1.
#2=4.
7 T/ A2 H& W' q! o/ i+ S#3=7.
" q- D0 h9 ]) ], H#4=9.
! V$ [! b6 z6 W! G1 LN2 #31=1.
: a, v* D- i  I9 F9 r3 U, e8 S#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
  {4 w( w( T3 O$ g2 O/ W6 }#[#32]=#[#31]-#[#32]
/ j& ~7 z. q  E; J6 x#[#31]=#[#31]-#[#32]
END1
#31=3.
4 i% w7 H6 ]+ DIF[#2LT#3]]GOTO1
1 ~) [6 d# J) U7 j9 I#32=4.
8 o. N8 {  a2 s" P3 w' sIF[#3LT#4]OTO1
* ]' u3 E$ e+ Q& x% {IF[#1LT#2]GOTO2
#31=2.
#32=3.
IF[#2LT#3]GOTO1
$ E8 ?2 U. g/ Q# o( L3 D0 _1 m( v1 YM0
. L- g  D! [1 V- S4 k0 A0 Q0 X# j; N
9 `% _2 B6 H3 K8 ~& m看你習慣用那一種，其實還有其他的方法

longmeier

好帖子頂