數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
5 S- u; V; S# A0 z. ^* G4 F，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

% P9 Q8 t% `- z/ x# b如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
9 c4 N* N/ q3 z3 @( S2 |使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
- z! X. h8 x8 \9 j! }方法A：
IF[#1GE#2]GOTO5
, K! o, `+ r4 V# `#1=#1+#2
- j* J: S; @4 |7 e3 j#2=#1-#2
+ k5 f# u2 {6 A* B, b  Y4 _#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
  B7 [% x  J/ R* L
8 F/ J  q, H: l8 O我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
  U! l  s* n' ^$ L) `( |+ O$ k方法B：
WHILE[#1LT#2]DO1
! f/ V8 k" l* \" f" H  U#1=#1+#2
( Q! d  Z. _8 B- C: S#2=#1-#2
8 l: D; `6 ~- X8 s; j. c$ I#1=#1-#2
#3=#3+#4
#4=#3-#4
. Q' B% H8 {" K5 |#3=#3-#4
5 _% b6 w0 Z# B. QEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
4 c0 y: @8 t2 y4 A$ W#1=5.
#2=10.
. ]2 H; l* n; ~#30=1.
*#31=#[#30+#500MOD2.]
2 S) [2 g' b" v  o5 kM0

又想把它這樣寫
. o* T  C8 z6 q*#31=#[#30+#500AND1.]
- e' W* q8 [  LM0

空气中的小鱼

回复 2# 羅蓋仙
0 Q: e" j+ C$ i你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
* y8 Z$ l$ Z5 \% s. r" e1 \所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
9 X, n4 L# d7 }( ~3 |法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
8 B3 R- u) g" {: G( {! A1 e#1=#1+#2
#2=#1-#2
#1=#1-#2
( i5 d' \; e" L/ }* nEND1
; N  |) v: Q6 J+ P* F* VN2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
#2=#2-#3
END2
8 z* k8 ?3 d! b7 _. C3 }; xWHILE[#3LT#4]DO3
$ B7 {* q0 ^" L0 G0 U. W#3=#3+#4
#4=#3-#4
#3=#3-#4
END3
IF[#1LT#2]GOTO1
- _% \* Q& t/ v( G& d! R, y) t* GIF[#2LT#3]GOTO2
M0
8 Z$ n$ L" y. L9 }7 d& b

法1-2：使用一般耳熟能詳的IF-GOTO
6 k' e4 H3 g8 O& j3 O( b#1=A.
$ a: T2 F. q7 p1 _# V#2=B.
3 Q( x- G# V  X) a#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
6 E3 E$ l, w; g; B& n: ^#1=#1+#2
#2=#1-#2
6 k# m* G6 m) T, w#1=#1-#2
& K; i) V6 W0 F8 o' v9 jN2 IF[#2GE#3]GOTO3
2 V; U3 \! f! T) t: Z#2=#2+#3
4 O# B2 x! E! _) n" q#3=#2-#3
#2=#2-#3
/ u) U0 `7 A5 ]5 A- v4 B) NN3 IF[#3GE#4]GOTO4
#3=#3+#4
  D8 a3 a7 _+ ]: i#4=#3-#4
#3=#3-#4
5 N0 I) @1 \2 W0 bN4 IF[#1LT#2]GOTO1
$ N, Y" _% e$ F6 I) ^6 \, `IF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
$ b0 H$ `! [0 f+ T' d* E. a#1=1.
#2=4.
#3=7.
#4=9.
N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
' _) g! m' }3 {6 e, I0 k. W3 M#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
#31=3.
IF[#2LT#3]]GOTO1
; L* V) l3 X+ b' H#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
; J% H9 W3 l) b#32=3.
IF[#2LT#3]GOTO1
$ n6 E5 S8 {/ i& mM0

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

longmeier

好帖子顶