數據交換法的使用

羅蓋仙

+ ?6 T% L  E7 Z& n+ m* C$ Q
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
9 P! b1 H7 n, ~8 p2 ^2 j; O, W有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
8 b, W$ C8 N2 i* I2 U4 J/ Q使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
$ T+ D( ]3 b! s  y; t6 n: B方法A：
IF[#1GE#2]GOTO5
$ y' E! g4 J  K- v# U3 N, `#1=#1+#2
#2=#1-#2
/ e* L; C7 D4 m#1=#1-#2
#3=#3+#4
#4=#3-#4
4 c& u  V7 k% `7 L! o: P#3=#3-#4
. n7 j3 V( M" W6 S5 B* @N5......此時#1的值已經置換過來了.#1的值一定比#2大

" @: Z9 {) k$ f& Z6 Z. Y我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
% Z) _1 j( v* p$ E- e* a- [, Z方法B：
/ t) i; ?" {& Y. Y0 \1 FWHILE[#1LT#2]DO1
#1=#1+#2
) Q+ c( _# R7 M2 U0 u#2=#1-#2
& h, @3 \+ D& D1 a- ?#1=#1-#2
4 q3 I' c6 ^/ I#3=#3+#4
8 |  |  M1 G* D' }& I: c#4=#3-#4
#3=#3-#4
( D# z4 Y1 D6 O0 M3 M4 Z' IEND1
" u. E4 I5 F, y; Y; n+ C2 Z......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
3 d- [7 ~6 U! D% A/ K- J
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
7 B) @9 ~& i+ F8 \#1=5.
#2=10.
' b3 E/ Z0 Y. N7 l) S7 r#30=1.
*#31=#[#30+#500MOD2.]
& P/ x; C  [$ [/ m! fM0
7 C0 `( @6 ]2 r$ `- G% }
又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
6 z1 [, W3 d" L6 `. r/ G你的表达式中没有只是逻辑运算，
  R$ l, \: Y3 z% _% z2 I只有逻辑判断有些系统版本不支持
5 G3 w6 e% Z2 X. S" ]所以，以上语句可以运行的

羅蓋仙

* e( ~* b/ G' O) Z/ s4 _' Q  c& R使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
#3=7.
- H* a8 ~% p+ K' g#4=9.
. K, i0 \6 Y% z: FN1WHILE[#1LT#2]DO1
#1=#1+#2
; q2 E/ T& I3 J6 h' [#2=#1-#2
" U  |* O, B- e- _#1=#1-#2
7 k; J. R7 i) qEND1
: S8 H3 \) P5 ?N2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
#2=#2-#3
END2
WHILE[#3LT#4]DO3
, f! H9 A4 \1 E" g#3=#3+#4
#4=#3-#4
#3=#3-#4
2 q  o5 S. X4 u9 g. rEND3
' p' d/ k5 z8 JIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
" x  a- x+ c  h/ C+ j# k
4 x0 z" B* q. }4 l! h/ \
6 i7 `& L  g% k3 {5 C法1-2：使用一般耳熟能詳的IF-GOTO
- q1 T/ Q9 n- x, @. S' o#1=A.
#2=B.
8 d+ m2 {3 s1 a8 u#3=C.
: T* i) T3 f9 `# W6 W0 C#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
& v; K6 e9 i& w4 S2 i7 i, l# |#3=#2-#3
/ [& O( V- S9 t( D0 {& B3 b, Q#2=#2-#3
. }) b; ?7 d- ?+ B$ ?1 CN3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
+ K; K: C! e8 ~* k! {+ W#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

5 M: V* V$ M. D! E" I) }( z
法二：使用変変數^^
#1=1.
4 \5 S3 i1 H5 L% p& W: w5 V* A#2=4.
( k  A/ {" c" O# Q  _#3=7.
#4=9.
N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
: c3 {# ~/ Y/ w#31=3.
  I1 P' V) |2 C4 e* ?: ~( aIF[#2LT#3]]GOTO1
#32=4.
: Z7 l/ v4 k# a7 M2 J2 y; UIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
! C& V4 {7 X% i, L#31=2.
* W8 C: [4 p4 ?$ ^4 v1 s! ]6 {8 `  i#32=3.
3 ]- ~5 G, p3 G" aIF[#2LT#3]GOTO1
M0

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

longmeier

好帖子顶