數據交換法的使用

羅蓋仙

5 j) Z4 r( Z5 g& `
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
) g% o5 F+ `4 s. b" |，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
) F0 P) O6 c7 \& U- V0 m  W
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
5 _6 A5 h# q! @, ^. U使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
+ s9 I/ y6 K% V#1=#1+#2
#2=#1-#2
#1=#1-#2
8 a6 C- `2 o$ @- q2 I#3=#3+#4
3 r8 k* d: H" r1 ?1 `- w+ Q3 D! D  m#4=#3-#4
- l% z: }# }$ `7 x8 n0 E# P#3=#3-#4
2 H- ~8 k% ~" Q- t5 ?: q9 `- fN5......此時#1的值已經置換過來了.#1的值一定比#2大

; I* b4 y0 }2 ?+ L我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
+ ?: ~4 y" d! I) h9 \0 [1 WWHILE[#1LT#2]DO1
! {/ o: K9 W2 j: q, @8 H3 w#1=#1+#2
9 ?  ~* x) _" h; c, ]3 q#2=#1-#2
#1=#1-#2
#3=#3+#4
  C( K! N" }7 F* A/ t" {- M#4=#3-#4
#3=#3-#4
& H8 |6 G- v  Y  t3 zEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
5 C; T9 b' e$ D+ g6 O
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
2 @: I  {3 l) z9 c4 R; p" _+ ]#1=5.
#2=10.
#30=1.
5 K& H& {/ Q3 R3 |# \" r* j! }*#31=#[#30+#500MOD2.]
M0

( h9 J# y3 b4 P8 @4 l又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
; b& r3 u7 _5 J7 a9 I  d2 V5 }+ {只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

3 H: @$ E3 |' r. a2 b# ~+ Q使用數據置換來按大小排列，大→小
2 [0 }# K/ u' m: i法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
" d) Y) d$ S& k: n8 U5 m#3=7.
. L% G/ P2 I! b* u! ~& e#4=9.
- z2 L9 t& R4 Y2 a% k1 HN1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
5 y5 v. C" a; ^  j) p: q#2=#2+#3
#3=#2-#3
#2=#2-#3
END2
5 |. Y& F/ S* l+ q6 f$ n% D/ Q# {WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
! W2 I2 B8 x. c, U' y0 b$ {9 H#3=#3-#4
END3
IF[#1LT#2]GOTO1
* r  \4 E; N8 ~IF[#2LT#3]GOTO2
M0
/ t' J9 V8 ^4 w- }  n
, h: Z$ f0 D# c
' P: h1 O5 M% @6 n/ e5 H' @( Q法1-2：使用一般耳熟能詳的IF-GOTO
9 S  v" e+ y2 @0 Z) d4 I$ p: F#1=A.
! s0 y# J3 v% j#2=B.
#3=C.
#4=D.
2 m7 P9 Q7 I7 x* i1 \N1 IF[#1GE#2]GOTO2
#1=#1+#2
( S' G# ?2 c8 g#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
: k  _6 H& h3 {' n4 |#2=#2+#3
#3=#2-#3
& N: q1 w4 b- @$ y) I, y5 g#2=#2-#3
N3 IF[#3GE#4]GOTO4
2 p) @4 J4 U. [4 v# D#3=#3+#4
#4=#3-#4
( f* l0 i) X. r- K0 a  n#3=#3-#4
: Q6 a! O' }( K/ \: QN4 IF[#1LT#2]GOTO1
( v4 i5 S. j$ JIF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
- n6 k( B4 L. T7 |( q#1=1.
#2=4.
#3=7.
$ _) U' O3 ]0 l#4=9.
N2 #31=1.
#32=2.
% {1 n. @( q; b) oN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
, P0 ]7 S' V9 W6 X2 W% ~! |- @#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
" R- i$ G% @, |7 ]4 [  yEND1
6 I9 n* V" O" b! v( a#31=3.
IF[#2LT#3]]GOTO1
* R  G1 a! y2 m  H& d2 Y8 v$ d#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
2 S4 ?, I& y- R; Z6 d#31=2.
#32=3.
& e" u4 K- C  r5 fIF[#2LT#3]GOTO1
' V% u& H- D# K8 x* N* H' z: p& qM0

# a/ M+ B: S& s$ v2 E8 `4 X1 |8 X; G# a看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶