數據交換法的使用

羅蓋仙

/ N. A- A( M/ I+ ^. X) G上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

$ ?* l. p7 y, ~如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
/ E' o/ R( x4 \使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
( z. Z) r- x( }; p* r: o$ x6 j方法A：
4 L, D. u3 C  fIF[#1GE#2]GOTO5
+ T8 F, {$ Z. E#1=#1+#2
: {. F7 h  Q+ B#2=#1-#2
1 }" H5 x- {( y( ?& R#1=#1-#2
$ {# w+ Z) D6 ]0 i: m#3=#3+#4
: h, s7 t, e1 O6 o#4=#3-#4
! m. T3 A5 a6 V# j+ z#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
+ I5 I/ I) l& @
2 V" w4 e! }, l6 C* e' v# b我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
7 f" |* e# q, M7 @方法B：
& ^% }# D" R" J4 BWHILE[#1LT#2]DO1
* N+ J  y6 m, f#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
5 d* M3 R, Q8 o) x  U9 _#3=#3-#4
END1
2 {5 F  P5 p0 b+ `" x! Z5 Y8 d4 y......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
8 _  P0 Y; Q9 M6 s6 `
) o( D) }$ ?* Y) ]方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
8 r0 A' o! X8 O! \, D#1=5.
#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
( C2 {7 N8 L" Z) s, x& |M0
& |. m$ e9 I0 a! a' }; N9 S
8 f9 X9 |9 y! T0 X1 a4 D又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
1 E% \2 {' f, a3 Y只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
2 l) f3 O% B  u) T#1=1.
& N5 D* [4 I+ p8 G#2=4.
#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
, P8 v1 l, |8 d- `+ c( w/ I#1=#1+#2
6 s, s9 G4 s9 {  A#2=#1-#2
  m* @- \0 n9 j  x. f7 d) j#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
! X& T+ f. K/ z8 _; Y#2=#2+#3
#3=#2-#3
. j4 M2 e9 h' P: T! x#2=#2-#3
3 R' q! r7 z- }! j! z* TEND2
WHILE[#3LT#4]DO3
, Y8 t, l& Q# z% u' R#3=#3+#4
9 z: w6 u, T! V& ?, D+ G#4=#3-#4
#3=#3-#4
" d+ n% ~0 D- {" t% VEND3
% L$ @$ f, [# M  A' F! u% NIF[#1LT#2]GOTO1
- D7 ~+ |7 ~8 U8 _; y" _IF[#2LT#3]GOTO2
, H6 [7 V9 N% tM0
& ^/ F" W- Z$ V% u- e8 Z
2 M" W& t0 y8 z% \' X# o
8 {0 H- o+ Z# U法1-2：使用一般耳熟能詳的IF-GOTO
! G( V# t+ r& P. e: B3 H! Q#1=A.
#2=B.
- x: B3 f4 \8 O% ?# s; x#3=C.
1 @1 ~- H; Z, v. S( y0 O#4=D.
N1 IF[#1GE#2]GOTO2
+ l: l  x' i6 m; K' d0 d# z; }0 f#1=#1+#2
#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
( ]6 @9 A: X  F- k#2=#2+#3
#3=#2-#3
; U# q$ \, E/ z% {4 W% C) b#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
2 J( D3 m- x& {. d#4=#3-#4
  f% p4 @4 C& m% S: q#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
4 p0 N) o" [. C$ T1 V6 \/ j' p, aM0

羅蓋仙

4 ~- k" L2 T: b; |: ]- \8 O法二：使用変変數^^
# o$ T$ P& i4 w+ e#1=1.
#2=4.
#3=7.
& @" O' ~5 G5 F5 Z& d8 Q4 G6 f; ~#4=9.
% R# k4 g& e% U9 M3 fN2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
; s, P0 j5 u6 _9 _" D1 ?* [#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
#31=3.
* \+ p: \+ s! f# D0 ZIF[#2LT#3]]GOTO1
% x% _1 i# S4 Y% k#32=4.
" o% _3 Z( U( `$ b0 N; U) eIF[#3LT#4]OTO1
; K: g+ K& X7 |9 ~IF[#1LT#2]GOTO2
; q( |& \$ M; H9 J% x#31=2.
+ w7 M9 C" s  A9 ~; a#32=3.
IF[#2LT#3]GOTO1
M0
4 N: E3 H5 f  ?& ]: U
( S7 {5 u" m1 M# ?& i看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶