數據交換法的使用

羅蓋仙

1 l( p9 n6 C. y: B  m$ f
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
1 m% N& N! p% H! k有人說數據交換法.能用于何處???我來舉個例子
5 \% F; c( P& d* j* R4 c$ N- o
, L$ k/ B& O. a! V如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
! S1 X$ H. V  }7 O% G7 R: t使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
% l! e) j' [0 Q& Q+ O0 P* s( {4 pIF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
; G* D5 `' K' A4 \#4=#3-#4
3 q% x+ f. n& r5 I6 U7 l#3=#3-#4
* Z8 g5 i( A6 a  M# ~8 c. L% I( NN5......此時#1的值已經置換過來了.#1的值一定比#2大
+ H' J" y; _  ]1 Q! X* j$ j( u
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
2 ^% b# a, \1 r6 e; M# N) z! C#4=#3-#4
#3=#3-#4
1 ~" `3 \1 h% }, K6 g0 HEND1
, r* o. n+ Q6 `, @8 S; f, c......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
- i! v7 Q$ C( U5 q% [" }#1=5.
/ [: Z/ L' F* C, Q6 Q- l#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
; i8 c1 m0 H+ G6 U# |1 FM0

9 K0 u3 O" g' X又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
4 Y! o+ y9 l! A$ N0 n7 ~. ^你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
' H3 J: g; b/ p. n9 s0 L1 ~$ c# B所以，以上语句可以运行的

羅蓋仙

, f% d1 H) T' J# ^1 N0 E$ J
使用數據置換來按大小排列，大→小
2 f0 \) C& W9 F: ~3 R& i法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
" @( u+ [# F2 E  i2 c8 _#1=1.
4 P2 x& H2 @& E8 ?$ G#2=4.
" O! W$ G& z9 p5 l#3=7.
' y2 h. U* g; X8 X#4=9.
' f* A  O; i4 Y" Y  `7 sN1WHILE[#1LT#2]DO1
1 m" S: s6 q) c2 Y( M6 Q#1=#1+#2
% k4 u, y$ m- Q, s#2=#1-#2
) F: f/ X4 w4 V& i#1=#1-#2
. P' D- a; a' mEND1
3 R# Y6 s6 K* V" B3 E. G6 Z1 e- c/ TN2WHILE[#2LT#3]DO2
#2=#2+#3
0 o) a( y% Z/ W7 `. C7 m#3=#2-#3
" E: \! K6 [5 h5 R  U#2=#2-#3
% O; p4 g% }6 O) Z9 w- ?- ^/ h5 OEND2
WHILE[#3LT#4]DO3
# X& @" |2 Z, t$ _#3=#3+#4
# n: t( ^6 q( {' @" r#4=#3-#4
#3=#3-#4
9 G& ]3 g8 L9 ^1 `END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
" \7 Q6 L1 H$ l' S. w+ w8 ^7 QM0

* u* P) {# e: u0 V# G
法1-2：使用一般耳熟能詳的IF-GOTO
; D8 _! E* ^9 z9 J7 ^, k# t#1=A.
) r, }" O! k0 M+ F#2=B.
4 e! r) o5 ]7 d9 \6 @) D( \#3=C.
#4=D.
6 u, D9 G- P* t; n6 J9 fN1 IF[#1GE#2]GOTO2
+ p2 @+ g& U: M6 w' a1 Q, F8 h#1=#1+#2
#2=#1-#2
8 c  y- _% |, T4 b8 G1 c( P  V#1=#1-#2
- o4 h$ s: Z" ?6 F. F1 LN2 IF[#2GE#3]GOTO3
$ Q. i2 B) N7 q9 ]6 J# n$ A' ^+ q#2=#2+#3
: V7 I. l& s3 H- `7 v2 ?#3=#2-#3
! |* |0 H+ |: m0 o# M% p" g#2=#2-#3
7 \+ F- I' k  m( N* ]N3 IF[#3GE#4]GOTO4
# R* X% D3 C. v1 t$ m% m8 m2 U#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
" R9 D0 ?) m; H* p* d. K  XIF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
#1=1.
2 e- t& F( P/ j#2=4.
#3=7.
& |% y* K) N6 [#4=9.
N2 #31=1.
9 c- A1 X; w6 p& l#32=2.
" ~- S7 O" J9 D1 P( J. \! v$ PN1WHILE[#[#31]LT#[#32]]DO1
. h. h; y' O0 i' U#[#31]=#[#31]+#[#32]
# a& V0 {1 [& g" P  z* v: h#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
& n* f3 B  g7 W+ k0 c4 f7 @3 v/ Y#31=3.
IF[#2LT#3]]GOTO1
0 e- Q6 R5 D4 s* \- M8 G: ^#32=4.
, t: d/ h+ b0 h+ ?* [1 ^3 bIF[#3LT#4]OTO1
; o$ C5 c6 D0 a5 r/ V6 `8 W( X: FIF[#1LT#2]GOTO2
6 O! a9 Y8 [* y! g5 t& r#31=2.
#32=3.
1 h! T# ^3 x/ H4 m) AIF[#2LT#3]GOTO1
M0
% o. [4 H' p, T1 |$ ?- V, m9 q+ }
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶