數據交換法的使用

羅蓋仙

+ F, h. E/ O4 r. }
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
& K  b8 h* b$ m( ]8 S7 E1 u& H有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
! E- r5 Z9 g. {  O) z4 e5 B3 EIF[#1GE#2]GOTO5
9 ^! ^5 j) V7 @3 z) s/ g#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
1 N6 p3 e" m  R* z6 N6 w1 k8 N: R! S
5 |' }- b$ Y3 Q$ J我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
( y, O: F" o5 Y$ n5 g/ @3 I8 }! dWHILE[#1LT#2]DO1
  \. H+ }, H* @+ W# y) I: `: K#1=#1+#2
. B4 T  j, `  i#2=#1-#2
6 x2 j" \, L" w* t  `#1=#1-#2
( H3 t! x4 b& r9 U0 P#3=#3+#4
#4=#3-#4
#3=#3-#4
: N8 r5 }5 o2 g/ h( r+ XEND1
( B. w# E% V  {, b( z, q......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
2 a- @% J" ?, P6 h& i! r2 F# W#2=10.
) s$ V7 \* }: ~#30=1.
*#31=#[#30+#500MOD2.]
' T+ ^$ N# h$ O3 P- @M0

又想把它這樣寫
. h7 m9 I3 N! S*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
: w! U0 r+ g" V你的表达式中没有只是逻辑运算，
+ Z3 h+ O9 J& H7 ]$ k1 j只有逻辑判断有些系统版本不支持
- Z& E+ A# X- _* K2 e所以，以上语句可以运行的

羅蓋仙

  K- y8 Z# W$ g5 ?( ~, K使用數據置換來按大小排列，大→小
4 p2 {. D, Q2 X) }  E3 b( V法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
9 u6 L$ _% ]7 p9 R4 E, z( w#1=1.
#2=4.
" ?! Q3 x- f: U1 F. q#3=7.
. I4 b2 R3 f3 J* S! @8 I) A$ }#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
1 N/ a5 H* W7 w, d7 S! V$ a#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
0 M7 }( C. m. v9 o8 `* H9 V! R# u2 |#2=#2+#3
#3=#2-#3
#2=#2-#3
: V: w: e6 G) n0 Y, X: R0 H1 UEND2
WHILE[#3LT#4]DO3
) |$ S7 _  C; m: g#3=#3+#4
#4=#3-#4
#3=#3-#4
END3
# A6 G# O+ i: i7 E& ^- p/ R; RIF[#1LT#2]GOTO1
$ j1 t$ y: {# _& O3 _1 iIF[#2LT#3]GOTO2
3 z, d' z8 V- N4 L4 o8 R. |M0
3 R: ~. }! Z4 e5 q

" @5 E' \' I6 c, p4 ?- C法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
3 ^# v. k6 J% n) B* e# W#2=#1-#2
' r  M: N* `+ L7 B9 a3 w  r#1=#1-#2
5 V5 `4 d2 ]& MN2 IF[#2GE#3]GOTO3
#2=#2+#3
: w! f7 W5 N1 }' h1 L" ^#3=#2-#3
9 R# I* [  t# }4 ?2 a3 B/ b#2=#2-#3
# h' Z8 _' d- PN3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
1 p, {$ b8 H+ O8 y+ u% M#3=#3-#4
& `) K' o- e3 \( s; rN4 IF[#1LT#2]GOTO1
# ~* A  k4 O# |IF[#2LT#3]GOTO2
% P0 V+ u) O5 p  lM0

羅蓋仙

法二：使用変変數^^
& u4 {/ O1 w9 K3 i6 Q#1=1.
#2=4.
% K8 {6 \6 t4 E+ e/ d& ?/ d#3=7.
#4=9.
N2 #31=1.
$ K8 X" G# D0 ~' z1 T#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
- M2 k+ p8 w- t. q% Q#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
' n1 F- P" J' @- ~/ F7 H9 XEND1
0 }. [2 s0 A. Q#31=3.
IF[#2LT#3]]GOTO1
#32=4.
/ K6 f* i: k% ^) \7 M" HIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
3 v# U. B1 ^0 @: g! S#31=2.
. q- N8 a2 z7 l#32=3.
IF[#2LT#3]GOTO1
7 p  `, |$ p- g/ C" f/ ^& |M0
- W4 f4 b0 K, L7 T2 S+ {7 _5 w
! g1 R- @/ R. G, Z9 W- I看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶