數據交換法的使用

羅蓋仙

3 {5 ?! }/ B) Q  `' C2 ]1 M3 K: X上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
1 N" Y" Q  h- p! r! J! A有人說數據交換法.能用于何處???我來舉個例子
" v1 j: ?+ k: b) E$ r3 H, _5 l
% x; y) m. i/ V* j% m如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
. S6 S! L4 K0 H" D#2=#1-#2
#1=#1-#2
& Y: m% j/ g9 y7 X  n#3=#3+#4
% h6 U4 \* d7 f9 t#4=#3-#4
( m5 u" D. }4 x  W#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

5 @: ~' b: R) u. N! i. h我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
6 I% T+ |) I; `方法B：
& _* R% R; w& ?# x* u/ h" XWHILE[#1LT#2]DO1
0 q5 x. {7 F" y" J1 ~' a% z) P( N0 z#1=#1+#2
#2=#1-#2
4 I; g4 }! ^$ N, s#1=#1-#2
#3=#3+#4
# ]" [( X, a2 c, f#4=#3-#4
#3=#3-#4
END1
$ t% i0 X4 w# O5 j2 c0 w/ O- g......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
6 S; e: l4 h' {- w4 \#1=5.
#2=10.
$ W3 U5 b; S. |#30=1.
+ U% ]& L# H7 h; g*#31=#[#30+#500MOD2.]
0 e: F$ c" \, |5 }& f  cM0
! o" ?1 \" U/ J8 N: k
- F, V) C: k% n9 S' I3 u又想把它這樣寫
! r+ D5 W; G# ?, C*#31=#[#30+#500AND1.]
* ^' Q' S2 w, Y. l  o; x2 z- s8 E1 pM0

空气中的小鱼

回复 2# 羅蓋仙
% b0 f) r! n* T& u9 |1 n1 K你的表达式中没有只是逻辑运算，
) x. x, P4 A8 {只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

4 K. S0 D! b( Z+ H8 p! {3 q
使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
) x1 {4 }) u; M; t& h#2=4.
. I9 X) u4 N2 c: l' U9 V#3=7.
! G& y0 f/ P5 G. [#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
8 N9 H- W4 }8 K' A0 B7 k& q; J#2=#1-#2
. O8 b3 \7 `  y  \1 `! d1 s#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
& c6 k% S+ B8 K7 S+ M7 f0 @% T#2=#2+#3
#3=#2-#3
1 a. e2 \7 M  }2 v4 [6 B7 }#2=#2-#3
END2
WHILE[#3LT#4]DO3
6 s$ w- R1 n/ s  C* h& W#3=#3+#4
" U! N" c( D* b# E#4=#3-#4
3 G9 r" h, Y7 D+ x#3=#3-#4
9 [1 g% ]+ ^. L( oEND3
IF[#1LT#2]GOTO1
+ h$ \0 R, M# l! T& v! vIF[#2LT#3]GOTO2
M0
2 l) y# [& J  @' T; X
% o* _# e* Q+ _6 C0 F
法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
- c4 T  Q$ g# ?- C#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
$ i1 }$ ]& u" H! ~6 c0 a#1=#1+#2
. s& v5 [- Y: X: q) h+ u' v  s#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
+ }6 S: K1 k. y( N$ C6 b: C. s#2=#2+#3
#3=#2-#3
- V& J6 o- ~/ x" T3 V#2=#2-#3
$ l! A" j. {! n# G2 xN3 IF[#3GE#4]GOTO4
#3=#3+#4
/ h/ y! V3 n- G. A' d( ^#4=#3-#4
#3=#3-#4
& H- B( C6 T* ^5 f7 ^N4 IF[#1LT#2]GOTO1
7 F  l1 H0 B0 t! Q; l. oIF[#2LT#3]GOTO2
& F& s. r- \7 \" b8 K1 J* k8 [M0

羅蓋仙

法二：使用変変數^^
- V% P' U) y  O. h$ V! ^#1=1.
#2=4.
; U" ?! |8 p% B  x#3=7.
#4=9.
6 X% B, _! c4 e3 bN2 #31=1.
2 D9 r" C! c7 F' P- S#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
. N7 {( o+ J1 Y! z0 E: _+ h; ~* ^#[#31]=#[#31]-#[#32]
END1
#31=3.
* V2 K; q5 X8 r2 G* w$ r* ]' TIF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
; t, O6 P& @& |3 f3 S, X#32=3.
1 u% F7 B" N% C9 T2 AIF[#2LT#3]GOTO1
M0
# O) g3 ]! g0 c* n; P7 |% n+ `+ N
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶