數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
. b1 Q4 c/ n1 ?$ A6 M7 j7 g，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
& Y1 v9 i  B& U使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
! O2 D, s0 U  `4 p( JIF[#1GE#2]GOTO5
#1=#1+#2
& N0 x7 D, M( U( H* i! P" w#2=#1-#2
#1=#1-#2
#3=#3+#4
$ p4 w; g) O0 i#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
1 f* V/ r0 d0 T) G: h
" o. S6 X( C# J+ P! p+ f我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
7 Z# i) E  i7 W! z; W  k8 [8 F#1=#1-#2
* D! z' k- w6 @- l' k2 O4 C* Q#3=#3+#4
9 |( t3 N8 L! o: l- _#4=#3-#4
1 p! H4 Q3 `* O' S#3=#3-#4
$ P0 h# T* E+ \" A! IEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
#30=1.
/ u- S( u# L4 X/ G1 K% d$ h+ t*#31=#[#30+#500MOD2.]
! r, |$ ]: s0 p7 R" ?; F  \7 _M0

又想把它這樣寫
" g9 u5 ]+ V3 r  C*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
2 i% o' R4 x& j. z. o5 M只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
, W) c: Z, r8 A0 Q# O8 ~#1=1.
! N  ^# [- a% H( b( ^8 o  U#2=4.
#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
6 |5 b2 G8 |% ^+ {5 ^2 K#2=#1-#2
! e) ^: L/ f& H#1=#1-#2
: E8 Y' z8 K! \$ X; i( R* k0 xEND1
N2WHILE[#2LT#3]DO2
) l1 m* P& r4 ?' y$ _9 B, ?#2=#2+#3
, J7 S4 z; g! V+ @#3=#2-#3
! l" p- A3 P. p+ ]8 c8 _2 ~( S#2=#2-#3
! D+ C5 V' R% }END2
2 g7 f3 }, L9 s# k' k' nWHILE[#3LT#4]DO3
#3=#3+#4
4 n% d# D6 o$ u/ j: y$ B5 Q% y- v* c#4=#3-#4
/ _- L! {, U' ^5 y#3=#3-#4
$ ^$ U1 D$ S6 a9 }, v$ B  AEND3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0


4 N2 u& [! m( |1 C* Q5 `法1-2：使用一般耳熟能詳的IF-GOTO
' H2 a/ ^$ ~( u# z; B* [#1=A.
5 ^9 `- @8 Z, l#2=B.
#3=C.
#4=D.
' r* T7 v  ]: \N1 IF[#1GE#2]GOTO2
#1=#1+#2
8 [" S5 J; c& q4 K#2=#1-#2
#1=#1-#2
9 B9 O- x6 ~) E1 UN2 IF[#2GE#3]GOTO3
: u+ K5 w: g+ S  Q#2=#2+#3
! m- z8 Y6 S1 J$ x  J$ c#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
/ k" l8 }1 G" l) q* A. s#3=#3+#4
. O0 T0 V5 a& {3 S#4=#3-#4
$ C! n8 T8 h5 p* n( V+ r#3=#3-#4
N4 IF[#1LT#2]GOTO1
" N' G6 E# C$ zIF[#2LT#3]GOTO2
. H1 i5 s1 w) J- C* |0 o; EM0

羅蓋仙

) p% J4 d9 Q, k( v1 ^; V  l
- X) w8 O+ `3 ?7 s- K- e" ^法二：使用変変數^^
#1=1.
. _6 K' H" k$ D7 y8 P) J/ X" z#2=4.
; A3 f$ Y) M7 b0 f$ R& K#3=7.
#4=9.
' C$ c: V! U% p, DN2 #31=1.
8 g' o. M+ ?; Q) e/ I: l* ?( c. v' S#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
#31=3.
' p  C* b+ B$ y: P/ mIF[#2LT#3]]GOTO1
# I- T( {5 ^4 E7 H" v#32=4.
1 a' i5 v; l2 e1 K, B! v; ^IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
$ k: B: v! j5 U/ s#32=3.
IF[#2LT#3]GOTO1
4 L% `6 Z8 V& g$ t: q8 zM0

1 s% \7 M3 E* |# R8 {" e) s看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶