數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
& K- A" Z( E9 Y4 }1 }* ^  k( u0 B，我看完之後有灵感，
1 A- \' m( Z# o9 W有人說數據交換法.能用于何處???我來舉個例子
$ E8 V  C9 ?' d. s8 ~
6 i5 O+ Z9 t! K/ n如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
' `: B8 v( O/ G( X+ B& G使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
. K) p' W- M- V+ ~4 ?6 U方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
2 H, v; h2 ]8 F: P) o#1=#1-#2
; [) C2 b; B/ `! q+ r) G, @#3=#3+#4
/ G; ~' S4 z/ F0 K) x#4=#3-#4
#3=#3-#4
( o6 }, G. G) O8 k- J2 nN5......此時#1的值已經置換過來了.#1的值一定比#2大
+ c* w& ^! z5 F: G
& I0 u2 j4 M7 z: j我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
7 p3 |  ?5 J( @$ z方法B：
% c' ?  ?; s+ l2 z9 u, W8 VWHILE[#1LT#2]DO1
) b( Z1 w" k" u0 u$ J  _#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
% O7 l2 }4 J3 @( X. H7 ^/ c, @#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
0 q7 X1 t; e1 m) D8 |+ ?( V
2 v, g9 b  `/ z8 m. N! p方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
0 E7 V% `, k3 c! N0 z, ?! y% M6 d7 ?/ s#1=5.
" E' y0 {' A* x' l#2=10.
* `" c$ o# t4 ?#30=1.
5 C# |2 R5 ?- a*#31=#[#30+#500MOD2.]
M0

* K1 R& o3 M# v" a又想把它這樣寫
*#31=#[#30+#500AND1.]
9 _& @% v6 h. PM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
+ _; C1 e+ q2 P; W8 ?$ K- _只有逻辑判断有些系统版本不支持
5 m$ j2 n# t* s3 b; u所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
2 {/ N. e+ u( Q! J#1=1.
#2=4.
#3=7.
4 R: Q# K% h- Z( c1 x#4=9.
$ I/ J3 Z$ U7 a1 I' RN1WHILE[#1LT#2]DO1
$ V# J+ O5 W2 Q/ @% Z! y#1=#1+#2
#2=#1-#2
6 {  Q" \/ O6 @0 E' J#1=#1-#2
END1
) W$ }: c  C5 ]9 E* {# sN2WHILE[#2LT#3]DO2
#2=#2+#3
$ H% o. O+ C1 a* p  i1 L#3=#2-#3
#2=#2-#3
END2
$ b% r! g- I3 N" U) ZWHILE[#3LT#4]DO3
0 G& Z0 Z: {5 A7 I% E#3=#3+#4
3 I9 D8 t, r& r9 a8 A$ ]#4=#3-#4
! g: d3 ^7 t7 N" T$ a4 q#3=#3-#4
END3
IF[#1LT#2]GOTO1
; C# e5 J) Q6 U8 X, I3 a/ qIF[#2LT#3]GOTO2
M0


8 R. b" M; k8 {' Y& ~法1-2：使用一般耳熟能詳的IF-GOTO
2 f$ r/ C  t' V  c: B/ m/ ]#1=A.
#2=B.
! D7 M7 R, v( }: X0 D6 V#3=C.
% p5 C/ C& H' a# h' e* M#4=D.
+ C- H4 y" A0 |1 J- IN1 IF[#1GE#2]GOTO2
3 C) D2 M3 G" r- ?! s#1=#1+#2
6 }' k8 p$ F6 ]- n: Q#2=#1-#2
#1=#1-#2
! q- k2 {- R& f6 N: k8 AN2 IF[#2GE#3]GOTO3
#2=#2+#3
% J$ C( G& n3 Q- `, O#3=#2-#3
" e9 Y- B  G6 \: x# r#2=#2-#3
, h; p; @/ z2 G2 A( U  ?0 XN3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
" x3 q8 C  M6 @. m#3=#3-#4
N4 IF[#1LT#2]GOTO1
0 }/ q) Q& ]5 t, L1 E. k& \IF[#2LT#3]GOTO2
7 t6 t: H7 M6 HM0

羅蓋仙

' @- O" B0 i; u+ k& V1 o7 |/ H
# G7 }. Z' Q( M$ c) T法二：使用変変數^^
#1=1.
#2=4.
#3=7.
#4=9.
& E0 h6 B* D) p2 i. N: Y/ `N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
4 l1 ?% |1 i3 K5 [) W% E% C#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
4 w# N5 [4 R5 m: I1 P/ S8 j#31=3.
IF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
#32=3.
IF[#2LT#3]GOTO1
M0
& F" a% `" g3 V3 R; t: t
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶