數據交換法的使用

羅蓋仙

" x7 F, w: i0 a& ]5 o1 x& Z3 O
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
5 r" s8 g" y4 W% S( R方法A：
IF[#1GE#2]GOTO5
" E7 V5 I4 |7 i7 C  p4 b4 ~: G#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
  r" w3 B7 D: k' s$ CN5......此時#1的值已經置換過來了.#1的值一定比#2大

* F  ?8 N( U; G' M$ V, V- X) m  W我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
' Q+ H. D2 n- i, [+ I8 ZWHILE[#1LT#2]DO1
3 R4 h; M' P0 A2 F  J4 u' o#1=#1+#2
#2=#1-#2
#1=#1-#2
" K  T7 q' Z( b* |#3=#3+#4
#4=#3-#4
#3=#3-#4
* A5 @  k+ ~4 ^& J. g5 k" \END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

% A/ s. V; ~8 s/ R+ S2 \' I' G# _方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
, m7 @9 i: g' ^; ^' y#1=5.
#2=10.
#30=1.
1 U& \) N+ Y, s  {2 x# [  _3 ?" u- t*#31=#[#30+#500MOD2.]
2 s: q& ]: n5 T+ HM0
+ A, J' c$ b) q- H  h& ~1 p
又想把它這樣寫
! n( V! M- L$ j$ |6 A*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
1 o  M6 i4 V% n! y6 Q你的表达式中没有只是逻辑运算，
+ b3 w2 E* f) V% R! P, h* j( c只有逻辑判断有些系统版本不支持
2 v9 J2 ^( W( V: @所以，以上语句可以运行的

羅蓋仙

3 K5 p9 E/ p0 u0 G& I使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
2 r; T) f* k: s# t. l#1=1.
+ f% n4 n& w4 m& u3 h#2=4.
' v0 r" q# |! y  k- f; T! F#3=7.
9 _7 p# @6 Y; s# N" j$ }; F* ~; e#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
+ ?& l4 w4 t# k#2=#1-#2
+ F  e5 X0 l2 O6 {- t6 L#1=#1-#2
0 m( }* y' R& X( jEND1
: X- l1 t: L9 zN2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
#2=#2-#3
5 J; @9 Z* |7 W% fEND2
WHILE[#3LT#4]DO3
, `  s* {; |9 c- Y4 A1 I0 [8 f#3=#3+#4
2 G8 g: C# [+ u9 _  u2 L5 Y. |#4=#3-#4
9 x! a) a6 B. a#3=#3-#4
9 X, ~$ z) O/ r/ d8 a+ D( v/ xEND3
, D/ ?; [) ]; ]  b( E$ JIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
$ P% ]! j7 P" r2 AM0
8 U3 n9 h2 t5 L8 E
0 t3 K6 c. N6 B/ }+ P
法1-2：使用一般耳熟能詳的IF-GOTO
/ {: P( n+ }' N; N1 W& x& R#1=A.
7 L: O4 ?) F+ C3 Y, K+ j( I8 S5 K#2=B.
! J5 ]$ J  M  y7 p7 S#3=C.
" E! S2 f2 k; G& S0 v#4=D.
- x" c0 ]" v  nN1 IF[#1GE#2]GOTO2
#1=#1+#2
  Z/ q" D* _0 ~! z#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
- c7 n* y1 I4 Q' C/ z#2=#2-#3
1 e: G( q. q9 D+ r( Z8 uN3 IF[#3GE#4]GOTO4
#3=#3+#4
# j, Q* g" L4 g9 F" S#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
1 G' R1 X$ J3 G5 IM0

羅蓋仙

5 a2 O4 S1 n2 B) @法二：使用変変數^^
( H: C6 X8 H; d8 a# q' _7 {#1=1.
) o4 P/ l" l6 {' \* \2 ]0 ^#2=4.
) I# f0 A, v: F; m3 R. Q6 B#3=7.
1 T: |6 \2 p1 Y; q9 c6 u6 y$ h#4=9.
9 m: |* l/ B! _+ j3 O! i0 MN2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
/ l* _/ j  o! O# o- v) _, a#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
+ @1 Y* n  A' [, @+ e+ tEND1
#31=3.
IF[#2LT#3]]GOTO1
#32=4.
  T! ]8 ^" d0 {  H. R6 m0 X+ zIF[#3LT#4]OTO1
7 p+ [. \/ [( v4 C7 S7 dIF[#1LT#2]GOTO2
#31=2.
#32=3.
, T5 _3 d! L6 GIF[#2LT#3]GOTO1
M0
4 S6 `- x  Q2 {7 G4 w3 M
+ i0 @& ~( l& D9 Q看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶