數據交換法的使用

羅蓋仙

$ a7 ^9 @4 h  Y$ L# G- R上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
6 C1 Z( w" [2 V& R4 T，我看完之後有灵感，
- M" Q- x1 r( h3 z3 {8 `有人說數據交換法.能用于何處???我來舉個例子

( l, F, f, W6 t5 H  `' E如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
0 p4 ?% {; g6 M: x使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
& N- \  h3 k! ?方法A：
IF[#1GE#2]GOTO5
1 e6 B1 J  D& G6 l! C  ^5 k/ O3 H( s#1=#1+#2
#2=#1-#2
#1=#1-#2
2 n# r4 M8 q8 J) J#3=#3+#4
#4=#3-#4
#3=#3-#4
- i( N4 z. X$ E& @N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
3 C' ]7 n8 ?2 M6 p$ {2 ZWHILE[#1LT#2]DO1
1 X+ k" }( S1 k) K6 }#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
  G- N7 }# s0 `% F8 P4 q2 B+ j3 }" s6 o' ^#4=#3-#4
#3=#3-#4
$ l$ L" \$ m2 L4 O3 yEND1
! ]: a* A2 [& y......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
% u. F. o4 Q: i; I, F2 ~- l
  ]6 Z: z7 n: R( q; l) ?方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
3 e) N6 p. }9 a8 h#1=5.
#2=10.
* a5 O6 I4 ]8 f' M( O/ N$ }#30=1.
*#31=#[#30+#500MOD2.]
M0

9 C6 `  H* r( \5 i又想把它這樣寫
) n. ~0 c- m" ^! P9 G*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
8 \* m1 W. i" J6 I只有逻辑判断有些系统版本不支持
9 }/ @# u) ^' r. K! t4 @3 b. F* C6 e所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
- }2 ?) d+ A0 y; m法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
#3=7.
7 z5 d2 t( ]% S) V#4=9.
3 X2 a% ~# ]- S. c1 y7 H8 s0 s5 E/ j1 p% rN1WHILE[#1LT#2]DO1
#1=#1+#2
8 J2 w" C- j, {. k, W#2=#1-#2
7 o1 }9 O7 I" P7 W: `' e1 y7 I: y3 |#1=#1-#2
: A( w* P8 e/ A! ^* REND1
N2WHILE[#2LT#3]DO2
4 x  P( x8 S- T) P; _( E: L#2=#2+#3
! p5 |9 b, o: b5 W' J$ v+ l/ E#3=#2-#3
2 _; {0 M! Z* q7 a1 M#2=#2-#3
END2
WHILE[#3LT#4]DO3
#3=#3+#4
5 x/ F  `; I0 s& ]% {#4=#3-#4
#3=#3-#4
END3
IF[#1LT#2]GOTO1
. P- Q0 C2 j5 i, a) [IF[#2LT#3]GOTO2
M0


% k3 F& O2 T8 d  F5 f9 B法1-2：使用一般耳熟能詳的IF-GOTO
, n; ?- w0 c, }. T6 {7 X#1=A.
$ ^# J- R5 h8 G#2=B.
#3=C.
#4=D.
" P5 ~. g) S3 B8 ~$ s9 D" M( f* GN1 IF[#1GE#2]GOTO2
) `3 B. g. ~0 x9 n5 V4 b#1=#1+#2
$ S/ x% i) [5 |7 ~% H- n#2=#1-#2
$ n$ M( K; ^, [) q! c#1=#1-#2
N2 IF[#2GE#3]GOTO3
3 c* s3 i( P" U4 ^4 ~#2=#2+#3
( o5 d  n  B& U/ Y0 o  M" d! K, l#3=#2-#3
" [( J# ]5 p/ P6 n5 N#2=#2-#3
N3 IF[#3GE#4]GOTO4
: \" Q) Q1 i# E8 |/ f0 u, N0 ^! \#3=#3+#4
  g5 t5 o% m! S5 w#4=#3-#4
/ U1 e, s5 `$ o$ z4 X! o  Y- A1 K: k#3=#3-#4
N4 IF[#1LT#2]GOTO1
) c9 ?( t  |- V% v1 `9 QIF[#2LT#3]GOTO2
. n0 M0 w3 `0 F; P) Y1 BM0

羅蓋仙

+ N. o- h2 N* B  `
法二：使用変変數^^
' \, I8 l1 B( m3 r. z#1=1.
2 q) ^( D& m3 z1 ?8 x) g#2=4.
/ ~& I$ B; _& _( ]& u$ k#3=7.
#4=9.
8 C) b. l; \; I% }9 {1 x  tN2 #31=1.
#32=2.
3 L9 U! r9 K: f8 sN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
; N: [/ h  R& X8 @) @& z#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
#31=3.
0 K" M0 [5 R3 c/ x9 aIF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
#32=3.
+ F5 H9 }& v4 l9 g# m+ C8 A4 xIF[#2LT#3]GOTO1
M0
3 S' ^6 n5 }2 I* C  ^
4 @3 {# w' |  S2 H! W: e# E看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶