數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心優秀宏程序要訣」與「數據交換法.置換法」的文章
6 x' E- r" y# @; q3 f8 Q，我看完之後有靈感，
有人說數據交換法.能用于何處???我來舉個例子

* d6 G; z8 r6 f/ ^+ B如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
: `; T& C4 I+ ?0 w% W方法A：
IF[#1GE#2]GOTO5
6 u9 N; S7 s; J2 |0 Y#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
% g7 v  M% v; {5 g( ~#4=#3-#4
#3=#3-#4
* u% y; F, b, o( n+ {! Z$ }3 o; KN5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
+ V4 Q8 }8 E9 T2 xWHILE[#1LT#2]DO1
#1=#1+#2
) V8 d; S; t) f#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
8 G4 g2 |$ H: B- l#3=#3-#4
END1
& K' C6 U. x* `" T' R......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
+ y2 V; p" n2 m2 {9 G& i
, l3 @4 E7 m& q/ M+ M9 w9 e3 h方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
#30=1.
$ h1 j0 F) }% ], P' \*#31=#[#30+#500MOD2.]
M0

又想把它這樣寫
*#31=#[#30+#500AND1.]
% K$ J) ]7 w+ A) [. I% BM0

空氣中的小魚

回復 2# 羅蓋仙
7 s2 x! s; ?; ^6 n- F) e你的表達式中沒有只是邏輯運算，
只有邏輯判斷有些系統版本不支持
# i2 o/ k, F: ]所以，以上語句可以運行的

羅蓋仙

( E% F0 H* X2 L$ Q2 H使用數據置換來按大小排列，大→小
  U3 }% |* [- B, E5 H3 b, I7 T4 y法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈從大到小排列完成
#1=1.
1 O0 c9 E! T  Z* H# u#2=4.
! y5 x% {+ n6 z2 N' L* F+ b4 T, }#3=7.
7 }' g9 Q9 I! G+ n) ^( Y5 ]/ u6 ^7 C#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
) F* K* u* j/ `3 k( l, k* r, q+ w+ n#1=#1-#2
! m1 R7 |/ U. D* VEND1
7 C1 U* {; z8 V3 [8 u& vN2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
# I, u/ s! i" Y" H#2=#2-#3
END2
WHILE[#3LT#4]DO3
#3=#3+#4
  m8 x9 G" V4 Q" G% @#4=#3-#4
0 m! s9 ~5 D1 Y#3=#3-#4
4 P0 _, C" M$ Z1 XEND3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
! ~; Z% Y) Z( a" g, G  SM0


法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
5 o$ u! y5 V" w. `) `  M#2=B.
& x3 E( P0 Z: r; V  n5 X3 e#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
) r9 |3 J" P2 ]; Z: ^) L#1=#1+#2
#2=#1-#2
#1=#1-#2
6 X* @# y+ S( H+ N* h# A4 sN2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
% X' s# a" o: f7 j2 K+ X#2=#2-#3
N3 IF[#3GE#4]GOTO4
2 A( o" H" {  @' `#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

& I2 Y" Q) _* P4 {; p; t
法二：使用変変數^^
#1=1.
  }% T5 O7 j. i/ n#2=4.
5 c: K- k/ B% [1 L8 q#3=7.
#4=9.
N2 #31=1.
7 w' H) ?1 L( }/ d; i- M" s#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
: w8 f4 O6 W; Q& `7 z0 z: D#[#32]=#[#31]-#[#32]
) b8 c, I" ?3 j% H#[#31]=#[#31]-#[#32]
& t6 g7 |2 }, A; g' [0 qEND1
#31=3.
IF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
) F1 i7 D( \' p$ bIF[#1LT#2]GOTO2
#31=2.
#32=3.
IF[#2LT#3]GOTO1
M0

+ L+ L4 \! P, K看你習慣用那一種，其實還有其他的方法

longmeier

好帖子頂