數據交換法的使用

羅蓋仙

7 m% \7 g6 R1 w3 R1 i$ K3 l上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
9 y! |3 {$ v8 P
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
9 ^' ?5 a& D6 v4 n0 Q使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
/ c$ @6 U) D5 JIF[#1GE#2]GOTO5
5 d  u! ?# B% A+ K% Z: ~#1=#1+#2
3 F2 K9 c, @) D! o3 i! d: \/ z$ e) n#2=#1-#2
$ Y1 U; E; ]& }0 }+ u#1=#1-#2
#3=#3+#4
#4=#3-#4
+ l* j: n- R7 L#3=#3-#4
: Q6 A. b. Z1 n4 q  g% x& GN5......此時#1的值已經置換過來了.#1的值一定比#2大
. b& f' q8 `3 |6 L4 G& k
" {3 X9 B/ n8 u! z/ {) S! G$ b我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
/ P& N0 N9 N# J1 ]4 a" L' B#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
; \7 ]; o. z; S' P) k#4=#3-#4
#3=#3-#4
END1
! Q; m! T7 Z. e8 o, x/ y* j9 P......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
5 t/ e: d6 U! M' o#2=10.
  G& o6 [1 Z/ {. Y' J#30=1.
1 h5 d' h$ K# s9 I9 F+ _, K*#31=#[#30+#500MOD2.]
M0

; S9 `3 u) L1 `7 U( J' Z1 W& Y又想把它這樣寫
( H7 _9 c( ?& c*#31=#[#30+#500AND1.]
; H; f0 }+ }& \) H  w5 s0 ]: vM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
) ~: y4 G/ \+ C3 M只有逻辑判断有些系统版本不支持
4 A7 ^! H2 f. N" a5 `* B" t& }所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
4 q* e7 w( _3 p: W' c. U#2=4.
0 f: Q% H2 O( ~7 B' z* P' `2 c- X#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
! f, ^3 G% d) ^4 ~) D#1=#1+#2
' m* u5 f; d4 C8 L- k: f  s  [#2=#1-#2
#1=#1-#2
END1
: V5 W& v5 Q& w" AN2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
#2=#2-#3
END2
WHILE[#3LT#4]DO3
#3=#3+#4
, i5 q/ f4 J/ _5 Q( B& X; `! x7 n#4=#3-#4
' ]1 o, G! P. o( T#3=#3-#4
2 R! _5 D: Q0 T0 h$ AEND3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

3 e+ j: U+ m/ S/ a8 N
法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
  B: i  p# _9 z5 h4 W' B#2=B.
#3=C.
$ _: R! k! ~! q#4=D.
N1 IF[#1GE#2]GOTO2
( w: g0 g. y: l+ r* ~#1=#1+#2
# `- e, X7 l5 j' m) P# F) H#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
4 J8 H, W6 D$ w# Q#2=#2+#3
#3=#2-#3
1 P5 i& w  a; T( W$ n  X5 a! ?#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
' I  s+ C" S2 i6 L#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

8 v6 k5 s+ e7 j6 n" `2 h, e
法二：使用変変數^^
$ f- z/ c" ?7 A: A7 i# X# J#1=1.
#2=4.
" k6 p$ `1 h( \/ s# @5 W7 e. [#3=7.
#4=9.
& Q, N+ G, x) `  y9 L* }- \% ~N2 #31=1.
; q9 Y* P# K- g  |  d, C; ~5 Q7 H#32=2.
- @- r6 ^: |5 @4 UN1WHILE[#[#31]LT#[#32]]DO1
9 U  _* K& F" n3 {% b  S#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
$ `% V& v, f) H& @, U: W; T$ k#[#31]=#[#31]-#[#32]
9 W. R7 k" C& v3 q3 P2 T1 eEND1
: f" X) `) u  B7 m. e% }% F#31=3.
3 O  ~# Q2 v9 M9 V3 a' d, YIF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
& W3 }* a5 D7 H4 `# M4 m) l#32=3.
4 o1 C4 n, i: {8 Q/ HIF[#2LT#3]GOTO1
M0

0 w- N7 f. a' k1 t3 |. g, R看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶