數據交換法的使用

羅蓋仙

( T8 N  I5 }: |5 Z
9 n4 c5 R* A: ?上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

! i" R5 f5 _/ S. h) i( ?如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
( r: j7 j! Y* ~+ x  ?" v方法A：
1 \6 h  F8 t# sIF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
#1=#1-#2
" u/ j- d% B/ v8 {#3=#3+#4
$ c* B# {. \( r" M#4=#3-#4
#3=#3-#4
; H- J+ x) D! A- LN5......此時#1的值已經置換過來了.#1的值一定比#2大

1 C6 u/ D- c4 _4 e% Y我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
( I8 u' U3 p8 s- K/ y( T7 F方法B：
# o( ]2 p* J' C% u8 bWHILE[#1LT#2]DO1
4 y# N1 u, Z% z' K$ ^/ V5 e#1=#1+#2
9 e- R# _  ~4 J8 L- r#2=#1-#2
7 J# [7 k( a( Y8 m#1=#1-#2
7 V; ~! p1 g0 ^- W2 B5 ?#3=#3+#4
#4=#3-#4
#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
) K& i5 I/ j0 c" W& W4 M7 k
4 x; j  R. j9 ~2 E7 q; E方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
3 N0 K( x/ A$ o; Z#1=5.
/ e* C2 }$ A" a& d" B" |#2=10.
- R9 p- x4 J3 E' q; }3 ?% v8 o( r* L#30=1.
*#31=#[#30+#500MOD2.]
M0
+ C: {9 }( ]# C# a2 o9 p
又想把它這樣寫
*#31=#[#30+#500AND1.]
+ |' @9 t( J0 r5 s" x- v  PM0

空气中的小鱼

回复 2# 羅蓋仙
. j! E5 s6 C3 c你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
2 a! g% y1 e" o. R$ }# V* W6 x所以，以上语句可以运行的

羅蓋仙

/ I& B3 Q# ]# I! K4 T
" j( a' ~, U0 O2 y- r. q使用數據置換來按大小排列，大→小
/ t: U' O" y1 T1 n; Y法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
: y+ m( E" D( G& `' `' W* ]#3=7.
3 {" l8 ^! [( T4 V3 W#4=9.
+ @3 Y4 y# d4 d  ~( }; t# f% YN1WHILE[#1LT#2]DO1
9 m1 D/ Z( n3 F% t, v9 |$ ]* K#1=#1+#2
" [* h/ u% ?  g+ J  C% r#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
' G$ }3 h! m$ |. D. W1 G! K#2=#2+#3
#3=#2-#3
) i/ W- J; y- v5 t! _  c9 V8 j#2=#2-#3
END2
6 x' @9 E/ n0 X& ZWHILE[#3LT#4]DO3
#3=#3+#4
1 u  l0 [1 o1 \* c#4=#3-#4
) v4 S# U: h0 A( Z( C8 u: ]#3=#3-#4
END3
% x3 N8 ]! R+ DIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
8 {; P9 _! j% g4 K6 g4 x- Y

法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
! l% k7 |6 r) ~; x) l#3=C.
3 X9 I0 K& i' ?2 w" `#4=D.
4 j% e6 `; \+ x" h& L4 S3 y3 K/ ZN1 IF[#1GE#2]GOTO2
5 ^; B9 d" j9 g#1=#1+#2
1 N3 B3 k+ _; N7 t/ t#2=#1-#2
0 f8 H. V: g# k, P#1=#1-#2
, Y* F& S) s2 F8 j; C, S& A$ L, k/ JN2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
#2=#2-#3
* }, ~; Z8 I) ]. [) d  gN3 IF[#3GE#4]GOTO4
- {) Z# I( X/ X, e/ L& ]) q, e7 M#3=#3+#4
#4=#3-#4
- R. w, T8 W" y$ Q; B: r" Z: Q#3=#3-#4
9 S3 E& L: n6 \* H7 Y! }N4 IF[#1LT#2]GOTO1
- A; z, E7 h7 P- `! LIF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
#1=1.
# D$ {6 F# B5 o$ C#2=4.
#3=7.
1 B+ f5 M; Y0 r1 F* D/ X#4=9.
( O, Y( Q7 X" g' GN2 #31=1.
#32=2.
# ]$ _/ v- e7 KN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
3 w5 h7 ?1 O, [- i* V8 e#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
#31=3.
IF[#2LT#3]]GOTO1
) Z% c) u& {4 @' o  A#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
5 `! W/ c, c8 L, }: r4 g#31=2.
- F( ^! j7 K4 W- u1 y& O. G#32=3.
1 z8 b; V* e7 K4 W0 R6 e1 AIF[#2LT#3]GOTO1
9 s9 J0 a# }6 ]1 G& s7 ^M0

( }3 m1 ^/ V% ?' |& h( R* ?看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶