數據交換法的使用

羅蓋仙

: [4 ^$ F+ K' ^4 ]
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
( g9 ]3 M) f0 r- Z+ F有人說數據交換法.能用于何處???我來舉個例子

  m6 ^- q+ P* k2 _1 |0 W; o如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
2 g! f1 e' x. a9 s4 P- a. q6 p! i方法A：
0 `6 A6 t1 c+ t0 o# |% |$ uIF[#1GE#2]GOTO5
: g! ?( s/ _! W" }( G# G#1=#1+#2
#2=#1-#2
* t4 N2 h& y$ M( E) f#1=#1-#2
" S5 s& b3 C3 _1 {5 y7 `#3=#3+#4
#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

8 |4 R4 l5 y7 \% T$ c: N  k我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
- v' j/ ^6 ^4 k6 TWHILE[#1LT#2]DO1
#1=#1+#2
0 ~, u4 S1 ]. ~, Q7 m; ?, m1 l#2=#1-#2
! N  [: G4 {  D/ _' S, I3 o6 p# ~) ]#1=#1-#2
#3=#3+#4
- ^+ v# L' ]& V# o& @' ]) T; ^#4=#3-#4
#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

  ^0 x( _3 V; `  W1 X) N* J1 _$ G+ L! {+ J方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
7 N* B3 H' M# |; o. ]) @#1=5.
#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
M0

' m' g8 A; f% P5 W9 U又想把它這樣寫
0 W8 ^' f+ e1 g" n*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
$ X7 V9 i7 f# g" [! l8 M所以，以上语句可以运行的

羅蓋仙

9 O( \8 Z) l/ o
使用數據置換來按大小排列，大→小
) |# @/ v5 g: F+ Z' D: ?. ^+ }法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
) x1 H, E+ J% d+ Y- [$ q% A: t#2=4.
#3=7.
6 ^, q$ z& S5 S#4=9.
1 t5 a/ _5 v  M) H* nN1WHILE[#1LT#2]DO1
#1=#1+#2
* l* S/ F* J+ l9 d) l, }4 s: P% g* r#2=#1-#2
. X, K# X+ {1 U& Y$ @  m#1=#1-#2
END1
( Q' Z' V. x* z  M3 RN2WHILE[#2LT#3]DO2
  |( g: a* w% V( N6 l#2=#2+#3
) N$ J/ n& r- l6 [+ }5 I  C#3=#2-#3
. G% u, ~; ^* i: L#2=#2-#3
END2
WHILE[#3LT#4]DO3
#3=#3+#4
/ K! C9 [, Z2 z3 w% e#4=#3-#4
#3=#3-#4
END3
6 p/ s0 n6 [* z" ~  m7 xIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
% ]% N+ O3 u, Z7 I7 hM0


法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
8 z9 m3 I; c$ w+ o  x#2=B.
#3=C.
. b  r. z/ C# f0 d#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
. p; ]. G' B" }( y#1=#1-#2
8 Y$ M; a; g/ e% F7 \, M: d+ VN2 IF[#2GE#3]GOTO3
0 k5 y$ r# |  }& D( L4 P: ^2 M#2=#2+#3
#3=#2-#3
#2=#2-#3
1 A6 M6 X" Z3 }N3 IF[#3GE#4]GOTO4
#3=#3+#4
* a. G  }& @  }' n#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
; o7 p3 b: e4 H5 @2 Q: f1 IIF[#2LT#3]GOTO2
$ W) P3 R" T" N5 d% ^M0

羅蓋仙

法二：使用変変數^^
& V. n* o2 l  O9 S" n% \% i#1=1.
#2=4.
#3=7.
: E  z- C# Z7 e, |/ ]  @#4=9.
N2 #31=1.
#32=2.
; H6 X5 h  @, r8 i6 SN1WHILE[#[#31]LT#[#32]]DO1
/ s7 M5 B6 q  q2 W' d9 A: o#[#31]=#[#31]+#[#32]
; E( [; r* f  T* |& i#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
1 c& {# Q! g- W- u+ b; T) ~#31=3.
IF[#2LT#3]]GOTO1
) X" }+ |' y* y+ _. E9 b) B#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
* g% D. N7 a2 ]5 o2 x#31=2.
) I7 o- f: Y0 b5 N6 X#32=3.
IF[#2LT#3]GOTO1
" D2 z8 V8 m' m* ]7 AM0

看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶