數據交換法的使用

羅蓋仙

& G/ Z0 A& L4 c8 [+ d
+ `" k9 g$ f& D  L* ~% b9 L上次某個大大發：「編寫加工中心優秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有靈感，
有人說數據交換法.能用于何處???我來舉個例子

. w' D& W4 |  s) Z- h! z* s" R如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
, l' e3 k* E, aIF[#1GE#2]GOTO5
* o0 v! Y- ]+ \5 {#1=#1+#2
5 h  _5 e" m3 U" X2 t$ R; U#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
+ |% y" J% o6 i: Q; a5 S& w#3=#3-#4
# G0 f! H  O. A$ u* kN5......此時#1的值已經置換過來了.#1的值一定比#2大
0 y6 _* Q( S' Z' K/ E8 t) s2 |
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
7 a0 H4 o5 m2 o6 c& |0 L0 A. P" T! ~方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
( H: k6 l' p3 `# W- h. t#2=#1-#2
#1=#1-#2
* P. b% \+ ^. l. P  N- q#3=#3+#4
& V) `; @) p& ~8 h- x8 c0 y#4=#3-#4
: \: E+ ], d" A2 I#3=#3-#4
END1
& K  R; g  s# U......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
, A5 y) |4 G: u  ~7 z- `. g#30=1.
*#31=#[#30+#500MOD2.]
- T7 u+ w! v! k2 ~M0

5 ]$ C# c! |7 r4 z又想把它這樣寫
*#31=#[#30+#500AND1.]
+ ~( J, c* z4 H2 I  IM0

空氣中的小魚

回復 2# 羅蓋仙
/ `: H1 m) j3 _1 Z8 `' {! [你的表達式中沒有只是邏輯運算，
- d, D4 F$ o7 ]) A+ h只有邏輯判斷有些系統版本不支持
所以，以上語句可以運行的

羅蓋仙

6 Y" |9 d- `/ I5 k
使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈從大到小排列完成
& @: L$ q4 a# ^5 e( y#1=1.
#2=4.
( O9 Z) Y* `* t; @#3=7.
9 s  }# m: z+ o8 \( I- [) ~' F$ s#4=9.
# Y0 O) _; D8 t: e! L( X+ E( t4 BN1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
END1
, k" T( P8 l+ B7 D7 ]N2WHILE[#2LT#3]DO2
* T: J4 @- v7 G' S5 |2 H7 `#2=#2+#3
9 r8 y) l0 _4 K$ b( f0 J3 y#3=#2-#3
. h8 T2 p% [" c* q: Z! I7 s#2=#2-#3
- i3 u. ]9 X+ }- QEND2
3 b; ]6 S; c2 \9 O9 _. Z. C( l5 pWHILE[#3LT#4]DO3
1 W6 k7 x# ]2 z& W#3=#3+#4
#4=#3-#4
#3=#3-#4
END3
- q8 ?- l: M) {, O3 mIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0


( Q( s, P5 {* ]2 H9 o+ X9 p法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
+ X' I( \% J, ~# i! X1 X#2=B.
$ R$ x3 A* K( J. Z- {$ G#3=C.
' T1 N  j# N6 u1 z8 h#4=D.
) X5 u" F' j+ t  R! N; }0 Z; c( QN1 IF[#1GE#2]GOTO2
3 c/ ~! u8 L3 y" ]  o& a. s#1=#1+#2
# q) X4 X7 \1 T5 W. P#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
$ W, h$ \0 y* L" u6 m#2=#2+#3
: V# O2 v7 _" Z& |6 a+ t#3=#2-#3
#2=#2-#3
6 h+ c( o0 R# JN3 IF[#3GE#4]GOTO4
#3=#3+#4
4 l0 M; }( e4 q) o6 B#4=#3-#4
#3=#3-#4
0 ~( i  V$ N- V  o+ k+ F; KN4 IF[#1LT#2]GOTO1
2 h/ S0 k6 E/ ^9 MIF[#2LT#3]GOTO2
M0

羅蓋仙

0 P. d% Y. J! k/ y6 n. E
. ?# e! W  c: C! l! F9 Z' K法二：使用変変數^^
8 N$ L! ]( W4 C7 |#1=1.
, J! u7 Q) I6 [& f+ x, p5 a#2=4.
#3=7.
#4=9.
N2 #31=1.
  _) J4 J* V3 K0 c0 H#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
  t& V1 Q/ S- o) V#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
; \, N- y( J) o  y5 {) w5 cEND1
#31=3.
IF[#2LT#3]]GOTO1
3 @. A5 f6 h# u4 u' G#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
#32=3.
IF[#2LT#3]GOTO1
) L% i6 F8 _4 y5 F7 CM0
5 \3 ?4 _  x6 x
: X2 c2 W  k- ~8 [' u看你習慣用那一種，其實還有其他的方法

longmeier

好帖子頂