數據交換法的使用

羅蓋仙

5 u1 z1 A  |2 N6 U' z4 j' O
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
7 I" Q+ ~8 b. e. r有人說數據交換法.能用于何處???我來舉個例子
5 c0 k3 b3 \( Q. p# ?1 g
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
6 x  W# L. r" K7 Z  a; i7 tN5......此時#1的值已經置換過來了.#1的值一定比#2大

5 N8 P+ h( A1 E% }0 q' T我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
, Z  i1 {* p: M+ P0 f) _WHILE[#1LT#2]DO1
6 X" y3 Z6 H% q0 j0 m* _3 D# H#1=#1+#2
#2=#1-#2
; L# {' ^! ]  f* l/ N: v4 I7 Z, {#1=#1-#2
7 U5 k* X- _4 B#3=#3+#4
#4=#3-#4
7 Q3 a6 t+ N! |: a#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
* ~% ?+ Z1 ]) _; V4 Y+ E
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
0 r! x9 S1 N# D#2=10.
#30=1.
1 z+ S6 }  z/ S' s*#31=#[#30+#500MOD2.]
M0

: V- ]5 X2 Y. Q4 _( x! b又想把它這樣寫
2 r5 c$ [  H' {' x*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
$ y/ H) ~' a( W% q' C4 D/ m你的表达式中没有只是逻辑运算，
( U8 g& o7 t4 s: F只有逻辑判断有些系统版本不支持
0 q7 s3 k+ A0 J2 j% h! ]4 K8 g; ?所以，以上语句可以运行的

羅蓋仙

* T! b% O9 ?0 J* M' m1 C9 |# l使用數據置換來按大小排列，大→小
. H5 F2 P- Q5 r5 v. M法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
2 s: o6 ]9 d3 c$ `7 h( m#1=1.
+ q2 c- S; ?) B' Q* w7 K#2=4.
#3=7.
#4=9.
) X7 [/ i( U+ F! m; E/ {N1WHILE[#1LT#2]DO1
% }7 H% Q2 h( `#1=#1+#2
/ ~! Y  N/ n) E: a* k+ i#2=#1-#2
0 C( g8 D% E( r+ g1 p#1=#1-#2
+ c. r& p9 K6 f; `" N! {) ?% d7 j( p6 hEND1
N2WHILE[#2LT#3]DO2
#2=#2+#3
2 g4 P) w. a+ H1 H) r6 ^#3=#2-#3
  ?' O+ {. [; H( K2 @#2=#2-#3
END2
) c$ A8 {5 d: P, M( d! m; {8 TWHILE[#3LT#4]DO3
#3=#3+#4
, J* a2 O1 a% ]/ r2 v#4=#3-#4
#3=#3-#4
& x: k9 b# S: y$ R, P) s  WEND3
IF[#1LT#2]GOTO1
* V$ ?3 I9 D3 z* C: a6 T4 vIF[#2LT#3]GOTO2
M0
6 y6 g+ k+ X7 b7 k% U4 P

/ y4 `+ \* T3 J法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
7 k( ?, o$ V" r#2=B.
#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
3 R) f5 h! O, a0 d#1=#1+#2
#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
, H8 j3 ~! S9 s7 B#3=#2-#3
8 I  i$ _: A& }: I#2=#2-#3
0 r  |- q; R/ jN3 IF[#3GE#4]GOTO4
#3=#3+#4
6 C: O% A5 h$ C#4=#3-#4
2 V  F1 R* U5 Y/ n#3=#3-#4
* y' ?8 c' x4 Z9 R+ b$ wN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
3 _) i. j& E% L$ E& vM0

羅蓋仙

! z' b0 R/ x( X3 U; J0 N# w法二：使用変変數^^
#1=1.
4 D6 F/ r! N7 r: j#2=4.
#3=7.
#4=9.
: {" A- C8 G4 jN2 #31=1.
#32=2.
2 R  i! p) n- O2 a% }N1WHILE[#[#31]LT#[#32]]DO1
: M- I8 J, c8 R$ e" G#[#31]=#[#31]+#[#32]
1 |2 }: w1 ]- w#[#32]=#[#31]-#[#32]
4 h: A  f8 |, h- C; r3 D5 Z#[#31]=#[#31]-#[#32]
  c6 X; o7 y' a, P: O0 e% lEND1
8 q' m8 d2 h0 J% ~6 T#31=3.
IF[#2LT#3]]GOTO1
, d  y$ K" a! K+ C0 C+ @#32=4.
: H; r( x  g8 t7 o: E+ dIF[#3LT#4]OTO1
  `) o9 ~+ I* r) PIF[#1LT#2]GOTO2
2 s$ n4 V7 v+ K' F#31=2.
0 h4 |( d7 |6 R* J#32=3.
# H" R9 ~# Z/ DIF[#2LT#3]GOTO1
M0

$ h7 R5 M: o" F) W+ Y看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶