數據交換法的使用

羅蓋仙

- B: a* ]% U/ F# ]* U/ D上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
9 d+ Z. z& X( u6 H+ ?* B有人說數據交換法.能用于何處???我來舉個例子
: Z! ]; v- n4 o) u% v* K
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
; Y+ U9 |4 y, s9 t) o4 k方法A：
  s4 ]0 S% T( {IF[#1GE#2]GOTO5
) e! w& B3 ], W; Z. l$ T#1=#1+#2
* \; g' b) v& Q#2=#1-#2
% A- b& W& O0 ?9 [; Q: ]$ g" D/ d) s#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
5 J* e+ ^  ~6 ]8 G/ b: IN5......此時#1的值已經置換過來了.#1的值一定比#2大

; p6 T5 P0 z8 y7 h' p我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
, G4 \5 D5 a2 k: m方法B：
" j7 M" L- J2 l: KWHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
END1
- e; Y7 E+ y8 i% H; T7 u......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
. O# ?. @$ R. K9 r( Q) O" y
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
9 R7 A5 ?5 M7 d5 g) t#1=5.
$ M. u* b4 g  w$ ?#2=10.
1 y0 {$ j  K* F( R' J- n#30=1.
; h1 K+ q, s- n7 b*#31=#[#30+#500MOD2.]
' ?0 `; }2 z# ~: ?1 tM0

又想把它這樣寫
( y2 U0 F9 @3 ^0 D# b*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
) _9 L. x; B; m' g你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

6 N/ d6 G$ t9 N/ w, s9 z  G使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
5 U% [+ P) V+ v) P5 j0 p& n1 b#1=1.
' b1 T0 F3 _/ f+ R- g* n5 G7 T#2=4.
* _7 e# i# M' j* H3 h; R: x#3=7.
, I1 j: j; e" A#4=9.
. k7 l4 _3 ?! V" I: WN1WHILE[#1LT#2]DO1
#1=#1+#2
9 y* c& D$ Z- R#2=#1-#2
" n3 L9 K! ?3 R. ~#1=#1-#2
END1
/ e$ Y5 B) G6 X) D# fN2WHILE[#2LT#3]DO2
#2=#2+#3
8 F: @& w' {& r#3=#2-#3
3 T6 \' W% H. ?- f- j4 ^" r+ n#2=#2-#3
2 T9 A. x7 S$ m1 P) z6 c$ v8 ZEND2
' i; c+ k/ \8 u  m( G) fWHILE[#3LT#4]DO3
#3=#3+#4
1 p3 A1 e- Q. v#4=#3-#4
#3=#3-#4
END3
) _$ {6 F7 s3 C" M0 W! H" U# qIF[#1LT#2]GOTO1
1 p% }, O6 A( E+ b/ yIF[#2LT#3]GOTO2
3 k( |1 l$ m) V( i5 OM0
) u+ e/ Y: p3 _- |! g* O1 `
. n- X1 \! Q3 w' _/ [7 [
法1-2：使用一般耳熟能詳的IF-GOTO
7 N7 K& e. N! b/ T& s* w9 m: g#1=A.
5 L9 |+ C( }0 p) N#2=B.
( f) e: U& S5 y" m# }2 }3 I: A#3=C.
1 o7 w4 d( l" l4 S- v#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
9 Q0 B% t1 G5 u: w) p( |2 g#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
3 `5 \* `+ s  _5 K" j6 v* v#3=#2-#3
4 r$ L9 i' k: A) X# a/ Y! l+ _( _#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
/ F6 d3 c1 j# k9 h! F1 d  ~  B, X#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
#1=1.
2 s; Y: z, l- f! N- b6 v( P" u- t#2=4.
" Q7 `  n' Z( W8 i5 |2 m% ~# P" n#3=7.
#4=9.
) s& ]8 i4 X6 G7 g) r8 WN2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
7 r+ w4 S: w7 W( [$ T2 L# z#[#31]=#[#31]+#[#32]
& O2 k/ E" ]7 B#[#32]=#[#31]-#[#32]
+ X/ w: e+ o. u0 [( y; _& ^, e3 K#[#31]=#[#31]-#[#32]
END1
5 J. M% r5 s: e$ m0 v8 I& y% @#31=3.
IF[#2LT#3]]GOTO1
$ K, a- _* n3 M0 n/ {#32=4.
IF[#3LT#4]OTO1
, A1 g" o4 ^% o( a# a* {" G9 |/ }3 ~IF[#1LT#2]GOTO2
) }% g8 T# D0 v! J2 O% S2 E; A6 V1 E#31=2.
  {7 O/ ~' L5 H5 j" N  Q- v#32=3.
# ?( c+ s( v( W6 vIF[#2LT#3]GOTO1
3 |! ]1 q8 e% h) p5 sM0

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

longmeier

好帖子顶