數據交換法的使用

羅蓋仙

5 x  s0 h3 }% B上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
0 s! m9 s4 d* B% u
+ e2 `! f1 z- i: f/ h) ?  k, y3 ?如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
& {8 O: [7 ]* c- u: M* }5 i" ?方法A：
) o2 G; Q& |5 U+ |: q  }/ m7 SIF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
#1=#1-#2
$ H0 L4 G/ d7 z" R( j#3=#3+#4
( f5 A9 O+ i+ g$ o7 E. t! \$ Z#4=#3-#4
' y, I; Z# W. y' k#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
3 x7 M( z7 S& t1 d
/ d9 r# N, R( Y. j$ {我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
. K. ~1 W9 E* q* M5 v( nWHILE[#1LT#2]DO1
#1=#1+#2
) R' P+ I# j9 G, C( q7 E( I  E#2=#1-#2
$ R$ t3 i- @2 E#1=#1-#2
; `0 |3 g+ f9 F( ?: ~# s#3=#3+#4
#4=#3-#4
0 h# H" \4 f: N( k: M4 Q#3=#3-#4
END1
" J0 E+ ?) o/ O, x/ z1 m......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
7 D2 }5 l$ t# x8 H#1=5.
#2=10.
#30=1.
2 h. f, ?" i( I5 U*#31=#[#30+#500MOD2.]
M0

! [+ R( o" G% g0 n( o8 m4 S6 J又想把它這樣寫
*#31=#[#30+#500AND1.]
3 R9 F8 o1 W/ n% AM0

空气中的小鱼

回复 2# 羅蓋仙
0 U8 V0 ^  g+ L你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

: x* h' O8 W0 b4 h( ?, _使用數據置換來按大小排列，大→小
7 P  J: `4 F1 {0 q+ d% o法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
% P2 C' I1 Q" S#2=4.
7 `- n. l& z. j3 o3 h#3=7.
2 P' s0 F* h' L' t- J* y6 G#4=9.
8 v0 @. \$ I9 `! C! ]0 d, ^) K- HN1WHILE[#1LT#2]DO1
#1=#1+#2
6 f, H* g: t- E+ Q$ L" Q: U#2=#1-#2
#1=#1-#2
7 Z# y7 `5 Y* a9 W0 hEND1
N2WHILE[#2LT#3]DO2
4 E8 n8 H9 R1 m* S6 V  L+ G) H#2=#2+#3
2 Q! o  c8 t& h% O/ |* g2 z0 i+ i#3=#2-#3
+ _* ]( t7 l) `* g% z' D9 j# L' z6 |#2=#2-#3
9 L3 s- I4 d! h& g3 t+ AEND2
4 `! A9 r/ D" R% b6 ]WHILE[#3LT#4]DO3
( T2 y. s4 r, {5 b, t#3=#3+#4
#4=#3-#4
#3=#3-#4
END3
IF[#1LT#2]GOTO1
; v0 |$ Z1 Y3 A" b. y' [+ C! o- ]6 jIF[#2LT#3]GOTO2
M0


法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
( |/ }* ?/ N1 o9 @; `& M#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
4 O/ m. ?, i. U0 U# ~#2=#2+#3
7 c( O, Z; q2 J6 M; K" S" G% t: R4 f#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
#3=#3-#4
% ]1 `) O1 }. ?" i5 u( a, t  r2 iN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
! H: n& L. m: c2 jM0

羅蓋仙

法二：使用変変數^^
#1=1.
#2=4.
) h. S5 j# v8 d#3=7.
: [9 a3 ]+ c/ o7 [$ O& _( k' ^5 O#4=9.
N2 #31=1.
4 n5 p- D9 ~' K2 D: c#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
, n5 K9 x; s8 q8 w$ w#[#31]=#[#31]+#[#32]
- f) F9 E' W# h3 Z#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
4 L" `: F9 E. E" r) k5 d& wEND1
#31=3.
0 z6 }0 A; ]3 n; _IF[#2LT#3]]GOTO1
1 L  I9 O0 Z: G' X; M- Z" F6 r. e#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
* y" c% F; C" t" \$ J#31=2.
# d# h8 o' b! x9 s#32=3.
IF[#2LT#3]GOTO1
M0
. U1 V% m6 p" B; T1 \7 d( @0 u
7 _' G  m& W  A$ @9 |0 K* n/ |* j看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶