數據交換法的使用

羅蓋仙

( w. h* v3 e* B+ ]( j" ^
4 V: b4 `9 K' ?, M6 Y+ K) t上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
5 g& v9 k: z1 d& T- H! x7 G3 N
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
, J( ^3 k1 H- n, {使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
# O% K  Y$ l- I8 U8 qIF[#1GE#2]GOTO5
#1=#1+#2
6 o/ D; _& T. n3 k( |, E$ ^" G#2=#1-#2
#1=#1-#2
: x& {! o6 ?! M3 O. c. G/ V#3=#3+#4
6 n( \$ Q( F$ ?1 D6 F4 i- P- N#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
# s4 c5 f/ s- B' b# ]2 w
) {1 p! b2 Z& v8 p$ j* u/ b我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
) j& K/ _! q, I, d6 Y' gWHILE[#1LT#2]DO1
; z# W8 `# ]) O% ^. ^#1=#1+#2
1 z9 K$ r, h% I! ]# i; p/ \#2=#1-#2
; C& H* d) z+ b8 }0 Q, [, p6 M#1=#1-#2
" ^3 F$ g+ F8 z#3=#3+#4
#4=#3-#4
) E' \& A1 }' c; W8 f* p#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
. _# S# o4 L; ?% j% B
& w9 G! z2 m. ]4 G/ w0 F' ^+ t方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
: m3 y* N4 W5 r#1=5.
#2=10.
4 U, V1 g+ ?) B3 ]! H% ?- f4 z% w#30=1.
*#31=#[#30+#500MOD2.]
2 Y( z" W* z& y3 qM0
9 k3 ^% W; t/ C) j# z' f( j
又想把它這樣寫
" e7 L& S2 |3 J8 P8 M*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
# a" m7 X0 N& e9 J& a3 C6 F+ J你的表达式中没有只是逻辑运算，
$ U7 X+ L8 \, M只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
: d0 _! r  X- Y. K; K& ^6 ?! ?法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
, v, x& v1 b- V( }& x#1=1.
- a) J! F% P' Q#2=4.
#3=7.
3 c  j! J4 D( J1 w#4=9.
N1WHILE[#1LT#2]DO1
; j: D9 [+ O0 ?- G- W#1=#1+#2
4 U. m/ x3 x* z/ S/ \. T#2=#1-#2
#1=#1-#2
) H0 {* k# z) W5 M1 xEND1
N2WHILE[#2LT#3]DO2
9 D* [9 \) J, s#2=#2+#3
; z. m% U9 f: z( f, n#3=#2-#3
, Y7 ]! m+ e% F( q#2=#2-#3
END2
WHILE[#3LT#4]DO3
4 ^" C+ q; _" @8 J#3=#3+#4
#4=#3-#4
( @  j7 l: m4 n2 v7 ~#3=#3-#4
END3
IF[#1LT#2]GOTO1
& }& _( ~4 g' i. n) _! Q9 iIF[#2LT#3]GOTO2
8 b1 C2 f$ N0 [$ a* f+ vM0
: L1 r3 }2 F6 ^/ P% D; |

6 R: p, b" M- s: X法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
# J# ~# q- O* w, E7 \" W9 W) J#2=B.
#3=C.
" z( c. I. \9 j# K- j0 C9 P6 l3 u% k#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
/ K# E+ m$ [* S3 W#2=#1-#2
#1=#1-#2
) s7 j4 a7 [5 cN2 IF[#2GE#3]GOTO3
8 Q: M. l, u1 Y#2=#2+#3
* q8 U6 \: i% n9 B+ B) I#3=#2-#3
" v. C4 ?8 ~& v" L6 k#2=#2-#3
N3 IF[#3GE#4]GOTO4
1 E( ]1 H$ o3 A- d, c& v/ q$ t#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
- u, t6 W% G6 F7 e$ Z# L. T! KIF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
#1=1.
7 ~! D. S, }6 F#2=4.
9 S7 q4 t0 Q% D#3=7.
# i- Y8 h) ?1 w, v3 [#4=9.
. S4 f5 E  y' l( AN2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
6 S4 E" i5 u; z/ x4 [#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
- c( E; u: q0 s+ u: MEND1
#31=3.
IF[#2LT#3]]GOTO1
+ J, X8 o7 q0 n#32=4.
IF[#3LT#4]OTO1
# m# v2 [# u; h, rIF[#1LT#2]GOTO2
3 j- Y1 |% E0 x. q! D3 ]) @, d#31=2.
#32=3.
7 K- Y  Y; `% i8 {IF[#2LT#3]GOTO1
M0
6 y% T6 j. E, v# K% i5 B
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶