數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

' x% V( B7 t4 }2 B7 V如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
7 g4 n. {7 Y+ o* O, G  I' k使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
3 Z: l6 n* }+ P0 h#1=#1-#2
#3=#3+#4
#4=#3-#4
; i- S+ u( X5 n( c#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
  N2 m1 Z6 v* L
( v' n  ^8 q7 ~$ Z2 c1 Y2 w我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
$ n  `0 n4 u. L6 @) \1 y" _WHILE[#1LT#2]DO1
#1=#1+#2
* s. V1 e" O, T* t3 G. A+ H# U#2=#1-#2
#1=#1-#2
#3=#3+#4
& Q9 N5 O# [, P6 ]8 L#4=#3-#4
1 }- E" y3 W+ Q) D. Q/ A#3=#3-#4
END1
5 P9 q4 [  L! L......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
5 Y7 g" W) L$ b" `' p1 W9 {+ t& B! _
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
9 _+ ]' w9 u  t8 A- e#1=5.
#2=10.
#30=1.
* i2 d5 q' @0 r$ E, L*#31=#[#30+#500MOD2.]
M0
% z, ^) g8 [" e# g
" S( w, D% i& a+ J  A/ x$ e" H又想把它這樣寫
6 g- i6 f2 I7 l2 y, `*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
' k' e, H+ b; z/ b7 [/ y2 [只有逻辑判断有些系统版本不支持
3 B, g% O, I* I所以，以上语句可以运行的

羅蓋仙

& ^, ?4 m4 L# i& Z
使用數據置換來按大小排列，大→小
  d% H4 V$ R0 b) B& x. X) p: s法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
3 b; g& L0 V+ X#1=1.
$ |8 d% \! \  O  \- D#2=4.
#3=7.
' ]. n6 Z! ]1 D#4=9.
N1WHILE[#1LT#2]DO1
2 k& ^0 `* ^2 t, `! |#1=#1+#2
; V2 q; A' v$ d( h' W+ `- Y#2=#1-#2
3 r, @( L/ B2 n0 C8 d/ _8 j#1=#1-#2
END1
( T+ |8 M. h, a! U, b/ E4 oN2WHILE[#2LT#3]DO2
) g9 }0 L- k4 b1 n5 f, x5 f#2=#2+#3
#3=#2-#3
#2=#2-#3
2 `' K5 D" Y! R+ s8 m3 z7 LEND2
1 K$ c7 P. V0 |* U2 _6 C5 WWHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
0 ]/ t. t4 n  i$ f7 o) E7 Q#3=#3-#4
4 R2 F2 z. j, x% v% M  ~END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
# H5 S# W# f8 `3 k# e) L' PM0
% Q" i" V. H: J! N# O
3 ]4 ~; m# z+ ^3 \' v  \: \: F
法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
+ `2 f7 [8 t+ o9 e, S3 p" }#2=B.
#3=C.
: _8 }9 r) X2 j% `! ^#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
% l: Q4 m: }! v#2=#2+#3
#3=#2-#3
& p% ]/ R7 x) c: r* U3 y) l5 a#2=#2-#3
4 k1 ~& @- q7 TN3 IF[#3GE#4]GOTO4
#3=#3+#4
5 d+ E: s) c, E3 F8 ^' H1 E1 f#4=#3-#4
: C6 [' D( n$ ~- d7 V5 H( Y#3=#3-#4
N4 IF[#1LT#2]GOTO1
( ]5 X$ F$ F1 ]IF[#2LT#3]GOTO2
5 Y) J: f# F( F7 GM0

羅蓋仙

- v& s5 G# W% C) R
法二：使用変変數^^
  x8 C. O4 x1 t8 x0 Y#1=1.
, q  T% c" e/ J  x, @, o- b0 A" \& w9 l#2=4.
1 M8 B9 ?& j  @. ?  n( }/ j, i#3=7.
#4=9.
N2 #31=1.
#32=2.
7 ~+ f( O2 {5 G* vN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
' ?7 I' Q1 N: _+ ?+ VEND1
#31=3.
IF[#2LT#3]]GOTO1
6 j; V. i% W# k. |; E, t#32=4.
6 o. H, e3 L, M  H3 ]% HIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
9 s8 X+ y7 m2 j" Y0 q- R- v#32=3.
IF[#2LT#3]GOTO1
) g' K1 A) _  v  n* gM0
" D  n! @% }+ x
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶