數據交換法的使用

羅蓋仙

2 I) B+ J* _2 Z* D+ K
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
. B. M$ y  ]% `* W: y，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
& ~+ x; {/ w" [2 _1 X1 n使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
" [5 D2 G. \, ~0 M8 G' f5 P  a方法A：
) _3 x6 p7 X9 t# \! C2 m4 AIF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
. ^- I/ @  {6 m: I9 X" D0 Q( W#1=#1-#2
) z  e4 K1 d; k  p#3=#3+#4
#4=#3-#4
9 E9 V8 _; T% M. g# a" I7 {#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

$ V: l: Q  l2 J+ P' h  e4 H我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
! x; Y7 b) N$ A#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
0 O# _7 b# M2 j#3=#3-#4
END1
' Y3 d8 p1 \+ X  k3 ~......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
' I0 C7 b. L6 L7 a3 m. ~
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
$ j; H) w; v" Q#1=5.
#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
, G1 E$ P3 E; Z4 n2 rM0

$ q- H# ^0 k: ]( o/ O/ W2 c# K又想把它這樣寫
/ Z& o! ?8 E$ f# g; X( X*#31=#[#30+#500AND1.]
8 ~+ c9 c4 v! t2 \" r& ^M0

空气中的小鱼

回复 2# 羅蓋仙
5 s' q7 S5 d9 B+ t! h! J你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
# ^/ a7 r0 r1 \' @* k8 H所以，以上语句可以运行的

羅蓋仙

! A; N7 j+ T+ O4 j* `
使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
( T: Q# I, d7 e6 J. k5 x#1=1.
' \; O2 O- ^* H: `: z& J#2=4.
#3=7.
4 c) e7 ~& R: }# V#4=9.
* U' Q" L2 p+ z) {. W6 P; C, }N1WHILE[#1LT#2]DO1
#1=#1+#2
$ h9 v% p6 p& a  V#2=#1-#2
, l* o4 _! R- d6 A) z& b* y#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
6 Q! L7 S" b/ z% o/ E6 j4 Y#2=#2+#3
#3=#2-#3
1 p2 r* K& e3 e0 K#2=#2-#3
+ J/ u( v# l4 ZEND2
WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
5 y6 s# w7 d1 u0 _! l#3=#3-#4
( o7 ]( U$ \* c+ \, pEND3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

7 D2 l+ E% B0 q: x2 B& q" n/ ]/ w
法1-2：使用一般耳熟能詳的IF-GOTO
) `! a3 Y- l0 X% a#1=A.
#2=B.
9 O( Z- z5 {6 s5 ~#3=C.
! \5 V7 i8 x& i! O* }#4=D.
, l# Q3 ]( V+ Y: gN1 IF[#1GE#2]GOTO2
& m2 W. D3 t% i4 L$ V# f+ W8 y& w. z0 C$ L#1=#1+#2
) o  \( w7 ~/ E3 u1 e4 f8 V#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
  P, b  z  c' c; v! x#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
+ M$ l3 g4 u& ~1 M2 |( k#3=#3+#4
#4=#3-#4
, j5 y- a% ?" E( s# U#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
#1=1.
$ z% W* }' G3 D# l9 o#2=4.
# {) o& L) N: W7 ]#3=7.
#4=9.
& h/ |6 `1 ^. D% e" AN2 #31=1.
! b# {: |( |! _- P5 h9 w( S) M#32=2.
3 A- o7 Y4 y# `- `N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
/ E, e+ F! [3 b& R& A0 k#[#32]=#[#31]-#[#32]
5 I0 N) m0 [* u0 W1 O( c5 F2 H2 B, u- J#[#31]=#[#31]-#[#32]
8 M3 K$ I# l: x+ u2 r1 [( g4 WEND1
' x1 D5 W% C8 t6 q1 O: r#31=3.
3 b- t# l. j& J+ |& EIF[#2LT#3]]GOTO1
#32=4.
4 Z6 {0 o4 h, X7 K3 ^8 |% c4 }IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
( O4 n8 M8 P+ {, f) F#32=3.
IF[#2LT#3]GOTO1
3 O" c) l1 F. X. t9 qM0

看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶