數據交換法的使用

羅蓋仙

4 G+ w6 ]2 A" O" x
1 b7 X" d' H  q; t- I3 q上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
4 ^# |  b* x) J# t& Q; n1 K有人說數據交換法.能用于何處???我來舉個例子

  }$ O. @& K  Y, |& W* _/ m8 n如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
0 Q0 B. M. T' H8 C4 T4 {: C  Q! A使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
6 L3 s. K! ]0 Z#1=#1+#2
9 \# w1 ]* g* ?1 H1 }) ^#2=#1-#2
9 G$ h; M3 Q9 O; p' x#1=#1-#2
8 ?0 _- |' c( b3 q' U5 e" ?4 j7 V% [#3=#3+#4
9 i+ `0 M0 \4 m5 U! M+ w#4=#3-#4
#3=#3-#4
; L: g" e, Q8 [N5......此時#1的值已經置換過來了.#1的值一定比#2大

8 _, X' v  D& F我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
0 b; _9 J! e# l3 [! H" ~方法B：
5 v5 b9 v# l6 o5 n; U4 aWHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
END1
- }8 M5 G$ L! s6 }- x: P( w......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
1 g3 f' n  L+ [9 Z9 @#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
7 r# z! `9 c5 LM0

$ U+ l5 K1 Q. C3 V3 }. @5 H) `又想把它這樣寫
  y, B, Y; l) t* x*#31=#[#30+#500AND1.]
8 b1 ]+ D3 J& N6 m. a: oM0

空气中的小鱼

回复 2# 羅蓋仙
$ `& o+ l" R$ g0 P, o  G% @- D- t你的表达式中没有只是逻辑运算，
2 c6 I$ z& w6 J1 N, k/ t! N只有逻辑判断有些系统版本不支持
9 e! c! A  ?  R' D4 M# ^9 p所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
! F# r; s1 B4 D) z; k5 |- G法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
! N5 I' c7 H- }7 A9 I* a# k#1=1.
$ T/ Z  k/ Q0 X& j: c( N% u#2=4.
#3=7.
#4=9.
* S" R3 }* N" D) O% ]N1WHILE[#1LT#2]DO1
7 K* b- e4 K3 u* l! R7 q#1=#1+#2
#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
9 T3 M  t7 y4 [$ ^2 D* c0 c/ R#2=#2-#3
$ Y' b$ x/ w% t6 rEND2
$ O0 j( `0 [3 I% }  }WHILE[#3LT#4]DO3
#3=#3+#4
  g- y, O& l; U  ?#4=#3-#4
#3=#3-#4
END3
4 N* J/ u" C9 |! }7 l: L% W; vIF[#1LT#2]GOTO1
6 \+ f- G- `% _% G3 d! h) {IF[#2LT#3]GOTO2
, R- g* x: T, _6 R! n# WM0


法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
0 r6 `: N4 [! m3 t" [! u: i' ^#3=C.
#4=D.
# ^$ p* Y5 D- t5 o, R, SN1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
5 {- m1 v8 f& t& o#1=#1-#2
; `5 _. Y* @* d/ G# z( E! m" AN2 IF[#2GE#3]GOTO3
: `4 s2 M# J. v4 q) _6 C#2=#2+#3
#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
8 o& e: q/ ?. P3 P#3=#3+#4
( z2 d( Z8 @6 Y2 A#4=#3-#4
( v) T) `0 ?& f( K#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
8 I( i. z$ u+ K8 d1 |: eM0

羅蓋仙

: g; j$ ~4 D2 ]
法二：使用変変數^^
#1=1.
  }: [, r! {* W/ x2 b8 a#2=4.
$ _8 s6 W  F, ]) X+ m#3=7.
#4=9.
4 n9 B; H/ z0 j: {$ yN2 #31=1.
' _: p, U+ E) x5 `  q# y4 ]#32=2.
. ^9 l1 k* O" d0 G5 ]N1WHILE[#[#31]LT#[#32]]DO1
+ [' c$ y5 q. V) n/ C; i#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
3 g+ C2 x5 f  y0 qEND1
0 Q, k3 [" s9 j* W  z+ l: E#31=3.
& b3 Y+ e8 c: R' Z2 e! }. PIF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
9 Y% Z. h7 Z* I* u0 _+ U3 QIF[#1LT#2]GOTO2
1 V" f5 L  \3 s1 A5 \# Y% _#31=2.
#32=3.
% F9 U5 ^' B+ h1 cIF[#2LT#3]GOTO1
M0
- Y/ n/ G" \/ j5 K4 E
8 F% {9 t* v& f" w& `看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶