數據交換法的使用

羅蓋仙

  O  ?& N' M- C8 |上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
- @' A+ H: r& D# G+ {" n. X，我看完之後有灵感，
& V2 b$ q9 s1 m有人說數據交換法.能用于何處???我來舉個例子
7 |. ^2 A5 y9 w9 L, D& I) n: y1 p) O
0 b( n( s4 W  |( H/ `; |如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
2 }/ c/ w+ y- m8 a* {' {IF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
; y7 r3 }8 D1 b! B. k6 f5 I4 c/ f#1=#1-#2
2 N- J+ p  f" S7 K+ j6 i, g1 t- U& |#3=#3+#4
' i; e) Y9 D+ ~( b8 F#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

$ F; F. m1 t' }1 y. _4 n- j我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
1 M9 F+ [. f, N3 \4 ^方法B：
8 N2 g$ y/ P2 {3 [$ r4 N( N6 iWHILE[#1LT#2]DO1
#1=#1+#2
2 e/ d( M% i! f#2=#1-#2
* X" `7 Z) j" t0 \* w#1=#1-#2
9 S+ c& o* q) i' V# {8 |" K#3=#3+#4
#4=#3-#4
#3=#3-#4
END1
* ~! J, }$ M9 z( n1 e; S1 W4 S. }7 C......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
1 ^" R) J! a, J% d" Q& u
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
( ^( \  [$ j0 r+ r  K. z#1=5.
#2=10.
2 O1 w2 c5 b+ s$ |! r1 T" z#30=1.
% S& ?- k8 O7 G* {*#31=#[#30+#500MOD2.]
M0
1 S4 h, v& j2 ^! u
) M" Z, f+ y1 e- \* t* q% q9 y又想把它這樣寫
( y4 d/ j  N/ G" s* c*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
( H5 b0 v5 [( }/ x, g你的表达式中没有只是逻辑运算，
1 x( g% G+ M1 R5 F8 r6 m# [7 ^6 c只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
% I( Z  N, o) k( o: e#1=1.
#2=4.
/ M2 ^; B+ [: f1 P! s& s#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
# }1 t, U+ M& K2 e! B& }$ @#1=#1+#2
8 ~! t# l- S5 Y; N#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
#2=#2+#3
4 d7 q: A1 u1 [#3=#2-#3
9 J; n* \3 V0 q$ r/ W#2=#2-#3
: c# d6 P& t' Q+ |1 eEND2
WHILE[#3LT#4]DO3
#3=#3+#4
# o$ q3 s8 \, e! I; ]+ n' G#4=#3-#4
#3=#3-#4
; j$ ^/ |6 z4 }; iEND3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0


1 e0 D: a( s9 K9 c! h  A法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
2 |3 B- I2 o/ f- ]: _0 n& x#2=B.
1 i# y5 B3 F6 y# Z, p9 ~#3=C.
- ?- n3 v/ H5 ^# }% d#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
7 M( \' C+ V* g) e7 D7 e' d! ]) B% _#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
3 ]; _  y( B5 {: E  j8 f#3=#2-#3
! I4 c4 N" T/ H7 R$ ?. ~) j1 j#2=#2-#3
N3 IF[#3GE#4]GOTO4
$ L, l7 p; W: ?#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
" w7 R* ]) j; f% g4 w4 X0 `M0

羅蓋仙

/ j% V* y# J# y" E) z* C
2 M2 ?* m) b5 b法二：使用変変數^^
#1=1.
#2=4.
9 m/ M- [7 ]5 N3 a' F* `8 G1 B#3=7.
#4=9.
/ L/ X1 Q% [9 eN2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
# S' A& q$ }. V: T#[#31]=#[#31]+#[#32]
: e1 N: P, C: R: o#[#32]=#[#31]-#[#32]
+ ^' g  N. s! N0 x#[#31]=#[#31]-#[#32]
END1
#31=3.
( G: ~! N3 [6 s  q* D1 bIF[#2LT#3]]GOTO1
+ ?7 G0 I4 M3 U5 G% v#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
% m$ U, f/ o/ e5 j#31=2.
#32=3.
IF[#2LT#3]GOTO1
M0
" [* [/ f* G: I! ]) B8 \
6 J; k, O$ N, r2 l看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶