數據交換法的使用

羅蓋仙

, L  a3 r1 S) ?$ ^0 R( [上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
3 t8 a: ?1 q% c3 w8 z6 l
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
$ e, K. A8 P; s# s% B方法A：
IF[#1GE#2]GOTO5
/ U, K% h$ B0 v" q' k* {! e#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
* R1 y6 O; l3 [5 A4 I3 a" s#4=#3-#4
$ ?0 L8 R. S. W' a& _" |) C#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

; n( x5 p' u, }$ R4 ?3 @我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
7 X# S+ }7 J+ u8 P. N方法B：
WHILE[#1LT#2]DO1
7 ~0 w, z/ E3 f  [#1=#1+#2
( f& B+ G5 j6 C1 P/ m#2=#1-#2
" M) P: v& {5 P4 S#1=#1-#2
8 H$ [9 {# U: u0 J6 N- s#3=#3+#4
#4=#3-#4
#3=#3-#4
1 Y( h$ N+ S+ QEND1
. @/ ]# F9 B% V" f......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
: S/ C$ l* w! W3 b& L#1=5.
#2=10.
#30=1.
0 ]. I9 S" A1 X$ j! v% i*#31=#[#30+#500MOD2.]
! o- K( ~4 n) B8 ]% W# W( aM0

) q/ {2 k4 {; S9 f* ^% M; y  o1 j又想把它這樣寫
*#31=#[#30+#500AND1.]
  I3 {- ]  ^2 F8 ^0 K9 H$ W, IM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
% g: B! O! w' }2 P: A: v只有逻辑判断有些系统版本不支持
6 Z$ [, Q) S# R$ ~所以，以上语句可以运行的

羅蓋仙

+ R$ B" R7 M- K6 |7 g
7 ]( w3 _1 r  [2 d使用數據置換來按大小排列，大→小
7 }3 t. N9 Q7 g- C% k- q法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
" B) g7 ]  y* p* Q( g#1=1.
0 Z2 U( Q# k( H#2=4.
#3=7.
5 F, Z1 m! l  u# f7 Q" [/ o" T#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
9 L( m4 t' \8 v9 S, oEND1
N2WHILE[#2LT#3]DO2
$ N. D$ a: e2 _6 {0 Z: H+ K9 i#2=#2+#3
* s9 Q7 O  I% h& g/ Z4 t3 e7 p#3=#2-#3
6 c: f" N) Y/ a9 r7 G+ z) M#2=#2-#3
END2
! t* B0 A3 R+ s+ {' W5 ZWHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
7 }* c' F9 O; z4 C9 S& l( _#3=#3-#4
3 U) j' P9 P9 Z7 C4 c' u, rEND3
IF[#1LT#2]GOTO1
3 _% b  r6 h; M& N$ hIF[#2LT#3]GOTO2
" Y$ B  c" D+ jM0


法1-2：使用一般耳熟能詳的IF-GOTO
1 `5 }5 y+ n: ], `#1=A.
#2=B.
#3=C.
9 l/ ^& [$ G/ f, c- ]9 ^#4=D.
- A% I5 _6 v) KN1 IF[#1GE#2]GOTO2
#1=#1+#2
2 J5 x& p, R/ ]6 f#2=#1-#2
8 B3 A6 {' R2 J9 f' V, x% N#1=#1-#2
" s% A: x2 d0 ^N2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
: N/ r, ]! k4 V. k, F8 R* d( qM0

羅蓋仙

法二：使用変変數^^
#1=1.
#2=4.
; _" B2 C  X; Y4 c* M, c#3=7.
#4=9.
  D" q; F9 @, ]+ b2 O) P; eN2 #31=1.
#32=2.
1 R3 i: p7 e. G' k: [! eN1WHILE[#[#31]LT#[#32]]DO1
. L5 w. h! n) j. R' z#[#31]=#[#31]+#[#32]
0 E( S. s* v- F- }5 {, K3 p# W#[#32]=#[#31]-#[#32]
  c" T/ ^& Q9 [: k! I& h#[#31]=#[#31]-#[#32]
END1
5 m8 ]- B+ U+ p* Z% ^( B#31=3.
& _! p9 j4 \+ ?* }" TIF[#2LT#3]]GOTO1
3 h9 U& ~# P9 ^: l! f/ ~8 g" u#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
; D- |- G, j) ?7 ~: j" L#31=2.
0 y) y6 K4 ]: ~( T; u) @9 _6 I#32=3.
3 _; _+ S9 d) _9 o" MIF[#2LT#3]GOTO1
+ e+ n6 @- j8 r) oM0

8 W, Y' u3 M/ o3 J: U' J; l看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶