數據交換法的使用

羅蓋仙

7 s# _' f4 k' U! Z+ B( ]上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
. t7 y3 h' i9 {  M4 Q有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
* D' ?, v  b$ w4 M6 W6 x: L% I使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
8 X8 [* q" u, z8 j8 n方法A：
IF[#1GE#2]GOTO5
3 }+ t0 p' y8 r3 e. `8 {. y+ @4 I#1=#1+#2
#2=#1-#2
#1=#1-#2
3 ^( c9 f) f- X0 U#3=#3+#4
0 @3 F" Y2 d3 d1 j#4=#3-#4
: a+ A# @8 _# L7 _#3=#3-#4
' H" W  c; d( \: ^$ rN5......此時#1的值已經置換過來了.#1的值一定比#2大
' t2 ]* |1 o% Q2 y& z( N
" w. e; B6 ~; I5 _6 ?" k, S9 a我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
5 W1 ~3 B' e, c$ H4 I+ L4 N方法B：
- `& z* Z  G/ e( s$ ]" ZWHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
. y3 W+ d1 V8 O6 W! k#1=#1-#2
#3=#3+#4
- r) {+ V/ G+ o/ w- Z#4=#3-#4
#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
: w- I9 b8 v9 u; O# d8 [; S#2=10.
#30=1.
, z* x* B# n! Z* d2 c1 y*#31=#[#30+#500MOD2.]
M0
; Q' i3 `! z* D" F+ V( t9 j
4 s6 ?, `8 F! q" |; |  k3 q又想把它這樣寫
3 D5 B3 ]9 f8 j( i5 I7 V3 r6 U*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
, u2 t  R2 p( J3 N; i; H) r/ }你的表达式中没有只是逻辑运算，
% i0 e! L  [: q# f8 `% A% ~只有逻辑判断有些系统版本不支持
$ K3 w" w! M3 Z0 l所以，以上语句可以运行的

羅蓋仙

8 C6 d4 P* S6 S3 ?" n6 V使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
! L$ Q/ v3 h+ G' y#2=4.
7 x: ?9 B, P6 y: e9 k; f#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
! |' u4 P$ Y8 S- V: {#2=#2+#3
" P9 q2 b, i3 I/ s3 f) e6 s#3=#2-#3
#2=#2-#3
5 e% o( W; ~! I1 y* SEND2
( f, d& |5 p' ]* ~* ?4 w  EWHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
#3=#3-#4
END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
/ r% c) [2 ^8 t0 y5 a: ]: yM0


法1-2：使用一般耳熟能詳的IF-GOTO
8 {; h9 N; A$ @  S#1=A.
7 [  k8 q; T" }5 U3 _#2=B.
' B: m% S0 i9 h. Q; \' q, X#3=C.
#4=D.
" i& J6 p+ C4 S5 lN1 IF[#1GE#2]GOTO2
#1=#1+#2
/ M* C) D. p+ x+ K, G#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
/ ^; f6 v. _, ?& u0 d#3=#2-#3
#2=#2-#3
! B& v( A4 g7 @; aN3 IF[#3GE#4]GOTO4
#3=#3+#4
+ O% s, |" ]- A6 V" q#4=#3-#4
( ]2 w* J* p( j#3=#3-#4
" U$ M0 l" b; j$ pN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

% n, B. M; U2 y5 }; ^法二：使用変変數^^
#1=1.
#2=4.
* U! c( P  Z+ r; F4 g' a6 Y, Q4 ]# ~# T5 Z#3=7.
' g4 x+ W* [. O$ A/ P& \#4=9.
N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
; O" f. e3 q1 u+ M#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
8 C1 k8 L3 b; E5 c7 }END1
/ g+ d& V" g" s* {. H#31=3.
IF[#2LT#3]]GOTO1
7 M- b0 Y9 u" U0 l+ K5 w; u" `! ~! @#32=4.
9 o% j) G9 h: i/ d! V! XIF[#3LT#4]OTO1
- n1 k7 b  J( k  ?IF[#1LT#2]GOTO2
#31=2.
7 Z3 X5 h0 H0 ~! z2 r' a#32=3.
IF[#2LT#3]GOTO1
# I2 }5 y5 p* J7 uM0
2 R6 p9 N  @! x2 |" l
6 p& q+ ]; X# q4 r看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶