數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
) S3 e3 {. H: y# M5 A: `' G2 ]( z0 U有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
7 |$ Z  d5 c! F' P8 H使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
" B$ X) N+ D$ z, Z/ `* m方法A：
# b" a5 r6 T: w1 }4 d/ MIF[#1GE#2]GOTO5
* n' O& F; U% L6 T' _#1=#1+#2
#2=#1-#2
% ?- K1 S8 g: _# t. d4 i' ?( }4 s4 x7 B9 m#1=#1-#2
; G/ H- G1 t0 X/ j& i9 U8 p#3=#3+#4
1 h! f4 y/ {% z) \# X7 f#4=#3-#4
& e4 O5 n! q9 T5 u#3=#3-#4
) T3 f6 E) L6 p4 N2 k$ ^3 _0 v+ A2 kN5......此時#1的值已經置換過來了.#1的值一定比#2大

5 K5 o0 q, C3 x$ x, E. u我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
0 M; P; \) h2 E: Y6 v#1=#1-#2
#3=#3+#4
#4=#3-#4
6 m7 Y4 h. S, B  h6 a& U/ Z#3=#3-#4
END1
: c0 c7 L5 y8 N' W% S% N, U......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
* o! D, S8 k; `& u
- e: }- O5 ~& }/ `* D8 T方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
#30=1.
, \: y! U7 U7 z' x; r, ^*#31=#[#30+#500MOD2.]
4 @; `- i  q6 C) o; ZM0

又想把它這樣寫
) q4 G) j# c7 H' D: v# `# D4 v*#31=#[#30+#500AND1.]
: T. A7 P! F# h/ n- z7 dM0

空气中的小鱼

回复 2# 羅蓋仙
) V- \; Z" K0 G4 O你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
; {3 m6 E/ p& ]2 a4 l所以，以上语句可以运行的

羅蓋仙

5 I' M: r4 ~# f( s
  v+ c0 T. Q5 B" B2 O使用數據置換來按大小排列，大→小
6 I( W9 z% J! P) L- z法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
- N6 W$ r4 M" G0 m3 G, N8 `, c#1=1.
3 \- A9 {- r+ ?" G/ y+ X( B; d$ r#2=4.
#3=7.
+ ~% |, o0 a9 x- `5 R( @$ @#4=9.
4 M/ r% Y+ {8 B, {! F. Y' MN1WHILE[#1LT#2]DO1
7 U! J( O! o) E! J9 k6 S#1=#1+#2
' c' {! P( A$ ]9 ?& s#2=#1-#2
* L& Z! ^( v; \" N#1=#1-#2
8 n7 k- Z% n! A  a! W7 QEND1
N2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
4 H% M5 A- w) s8 B7 M9 D#2=#2-#3
END2
* Y% d4 X/ `# w. ], BWHILE[#3LT#4]DO3
#3=#3+#4
  V0 B1 z  ?$ l0 n  s' K#4=#3-#4
#3=#3-#4
! u  v# P1 ~' T/ I4 W3 YEND3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
8 C* X" S9 [! [: d- Q# R: e3 MM0

6 S6 `3 J% D) o; |% n: ]- n
法1-2：使用一般耳熟能詳的IF-GOTO
8 p7 e1 B& Q! X& i6 A7 W+ E" G; r#1=A.
* E6 P  A9 m3 U8 `3 m( \' b/ m#2=B.
/ y# B1 t2 Z! v' h) J5 M/ I  }5 T#3=C.
) s: m0 k; X  x2 {0 o#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
# `3 t) C$ d/ y% n#2=#2+#3
#3=#2-#3
#2=#2-#3
" m3 F) {  X+ n6 J/ H3 CN3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
. B& F3 D! e0 g, }& i#3=#3-#4
3 w7 j  r7 d2 M9 }! |N4 IF[#1LT#2]GOTO1
6 e& X, J, T8 S/ m+ w$ k! jIF[#2LT#3]GOTO2
M0

羅蓋仙

- E: M# [$ Z7 e; w- r法二：使用変変數^^
6 K0 p7 c6 r4 w/ \#1=1.
/ C4 A1 B# l  L7 n#2=4.
#3=7.
! |8 b# R& U6 U6 ]#4=9.
* R4 T$ A$ z2 fN2 #31=1.
#32=2.
  j. ?2 x& m( n- sN1WHILE[#[#31]LT#[#32]]DO1
0 ~, C3 z. z6 M" N- o9 h#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
; u/ @: Y7 {6 {. }#31=3.
( n+ f# x1 v; e7 }9 i7 zIF[#2LT#3]]GOTO1
" f! ^& l9 r% w  Y% J! M) v#32=4.
% q* [* @8 t& Q* V: tIF[#3LT#4]OTO1
0 D4 R( e0 K3 O" d8 T  s7 _& cIF[#1LT#2]GOTO2
#31=2.
: X  C4 Q. H% O: K' ~" j#32=3.
7 Q" b6 p5 z. ~IF[#2LT#3]GOTO1
' d8 y6 v: R1 l; P) qM0

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

longmeier

好帖子顶