數據交換法的使用

羅蓋仙

2 H7 h: q4 `3 W" N5 ]
) h$ K$ D/ J, n上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
& c# [% Q, ?; O% E, j' c
6 ?/ _$ S" {0 ]" l如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
% G" j+ J6 M" T4 h* j* C4 ?使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
5 C8 ^8 e& f- j0 o0 m! t# X9 O方法A：
IF[#1GE#2]GOTO5
6 P# W4 h: S/ F#1=#1+#2
#2=#1-#2
#1=#1-#2
" X/ C* _% X2 [* d" I4 ?#3=#3+#4
#4=#3-#4
#3=#3-#4
& X+ s5 E2 \; a9 x) {' p! yN5......此時#1的值已經置換過來了.#1的值一定比#2大

8 {, `3 P0 \4 ?# |1 z$ H' v- `我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
+ }! j4 A- S: o# [5 m- v3 X方法B：
WHILE[#1LT#2]DO1
  }! E' `! K- D) d. Q9 ^: |#1=#1+#2
#2=#1-#2
0 _+ \2 j: e* ^3 x6 Q#1=#1-#2
#3=#3+#4
#4=#3-#4
4 y  c. U' ~9 [: X$ }0 y#3=#3-#4
% `# n3 E. X  VEND1
' Z1 k& _* R+ C" ]( @' T......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
/ V/ W; F; \: I  f  n; `#2=10.
* H* C  v; N* J! |#30=1.
! a  n. I5 ^" k" N0 J( C% V*#31=#[#30+#500MOD2.]
) ?# ~3 b+ m5 O! ZM0

$ h1 r4 k1 B. I" a; H又想把它這樣寫
*#31=#[#30+#500AND1.]
. v3 ]  E& _" _1 lM0

空气中的小鱼

回复 2# 羅蓋仙
# m1 W( W7 L; `3 _你的表达式中没有只是逻辑运算，
* ]  w8 V% [# f# k! M2 Q只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

( [2 ?* |; Y( {# R- q/ ~使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
1 e3 v% q; R6 f* \' l$ a#1=1.
$ z7 |( K2 F5 n. }+ d6 @; Q% I2 r#2=4.
1 j8 _- z; f# l#3=7.
#4=9.
( Y* j! Q4 c( \9 pN1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
END1
( [2 M, g, r9 s% Y3 e8 w( G# EN2WHILE[#2LT#3]DO2
#2=#2+#3
9 g+ s. `) P! H' s#3=#2-#3
+ O0 E" d2 f; V  Q7 I#2=#2-#3
END2
WHILE[#3LT#4]DO3
) }1 e+ s! p( ?#3=#3+#4
. t: f1 M# r- M#4=#3-#4
, h. ~* I2 H8 V1 \- [( |8 }+ @# B#3=#3-#4
; {  @1 ~  p/ I1 JEND3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
; w; l3 z8 f; S9 i  V/ [5 a" m

法1-2：使用一般耳熟能詳的IF-GOTO
  h* R( U$ k7 D: C' b#1=A.
#2=B.
0 u4 o$ z9 \) @; \- m8 L#3=C.
, E0 r% D  H) C2 l- O#4=D.
N1 IF[#1GE#2]GOTO2
$ ^, L' L% T" F  x#1=#1+#2
- Y; W5 Q) @+ v7 Z6 }7 I- z" [#2=#1-#2
* c; m8 ~: e( a- A5 y; T#1=#1-#2
8 m! i1 Z" O4 u' i* pN2 IF[#2GE#3]GOTO3
% {5 I" |0 {- _#2=#2+#3
#3=#2-#3
#2=#2-#3
) B2 s( J# y% J9 UN3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
. x3 W8 I" M% e9 i9 h, X! {+ w& w5 ^IF[#2LT#3]GOTO2
M0

羅蓋仙

* R: g$ A. r( T3 t/ k/ C
法二：使用変変數^^
#1=1.
7 T' ^7 P) P7 `# z/ ]" ^& o#2=4.
#3=7.
#4=9.
, `4 R: Y. X! m( NN2 #31=1.
. s0 t0 V6 l# y* O$ c, E$ }! `#32=2.
' P$ b9 G9 B5 Q6 M9 BN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
3 d! E) z; Z3 u0 S; \* p- c#[#31]=#[#31]-#[#32]
END1
; z! M. u. Q* b: d2 I#31=3.
1 K% M) D) b. q1 D$ L) c2 l. bIF[#2LT#3]]GOTO1
6 X+ l2 |0 t2 X#32=4.
! \+ }" s! Y4 H' U' k- }* k, iIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
9 X: w; Y6 e6 M2 K( U5 G! P#31=2.
#32=3.
( K2 L6 B# t' W0 I# Z$ _1 B) I, sIF[#2LT#3]GOTO1
) S/ Y- q% k# c: j1 BM0

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

longmeier

好帖子顶