數據交換法的使用

羅蓋仙

* v2 e9 q6 c- J6 o上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
3 d( Q" [$ C# b0 @2 V6 B6 t8 E有人說數據交換法.能用于何處???我來舉個例子
  F) {$ g" L8 [
5 D' X( a  a& @$ v' h0 h! d如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
2 h7 |) s: e  I, C* c, K; T方法A：
" p4 v2 u  @. {/ vIF[#1GE#2]GOTO5
. n9 N8 B2 }" z5 V: ]) K#1=#1+#2
* n' n1 K) m' j6 w#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
( T) L! G# B& z" z2 x7 \#3=#3-#4
  ^' E! |7 k: _( y- l1 F2 ~: H; BN5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
/ g& D+ i6 ?6 L) i0 {/ [& I  a  a#1=#1+#2
/ R$ Q% E$ ^# L5 U#2=#1-#2
#1=#1-#2
0 N" K" K! y/ X! R* b2 ]- y/ x! Y/ A#3=#3+#4
% |" H& Q5 q. M4 R- O( b, C#4=#3-#4
#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
: z  m# Q5 N7 H
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
. B' x: H8 v: v+ D9 C: ^/ ?) ?  I#1=5.
+ a6 h% J: S( r+ ]+ w) z/ y#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
% M( K1 l$ ?! ]6 U: vM0

又想把它這樣寫
5 y2 T7 W: Q$ V9 ]" d% n*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
1 r' ]- ?% C: J9 J8 J0 A; o你的表达式中没有只是逻辑运算，
; D& ~# J; [1 L: Q  A" @. Z- k. E只有逻辑判断有些系统版本不支持
0 f( V# k4 H5 g# I) i8 S6 v所以，以上语句可以运行的

羅蓋仙

* v" F' a2 q& }' x# D- @
使用數據置換來按大小排列，大→小
( [) s, S, i3 R1 D6 c' V" `2 ]1 B' V法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
) Q( V: e, }* V" _#2=4.
. t1 X8 O* f% \#3=7.
' [: O5 v+ {1 m0 K8 V#4=9.
4 B4 a: v1 |+ P% _5 q8 rN1WHILE[#1LT#2]DO1
: l/ {) _, b# @- K) l; I#1=#1+#2
#2=#1-#2
#1=#1-#2
END1
% o  W8 B; R3 C+ ^( K9 pN2WHILE[#2LT#3]DO2
/ t+ ?$ s) O& I6 o9 W' X* b#2=#2+#3
4 j, Z( n0 ]4 h#3=#2-#3
% J6 |$ B: B2 _5 C* H- \, R9 y" ?#2=#2-#3
$ X1 f  i' b! K1 f# X3 sEND2
6 }9 S( G8 q9 h1 H; `! fWHILE[#3LT#4]DO3
( q  G5 N; V2 _) ^* Z" Z, `#3=#3+#4
#4=#3-#4
#3=#3-#4
END3
9 N; b  A, g0 ^+ M9 \3 M0 ZIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
1 f6 B# q! z( {# X( M6 S; m3 HM0
% q. X" N% p( R' }5 m
- v, g5 r; Q+ u
法1-2：使用一般耳熟能詳的IF-GOTO
# A: ~2 E( a# _9 T6 \#1=A.
#2=B.
/ u: ]0 T2 `# i& C% V#3=C.
#4=D.
' t" i% e! t$ sN1 IF[#1GE#2]GOTO2
. y/ t# ^$ n# j+ k% A#1=#1+#2
#2=#1-#2
#1=#1-#2
! `( O! g/ q0 W8 ^+ p$ d" _N2 IF[#2GE#3]GOTO3
#2=#2+#3
  u* y1 u9 |5 C  \. ~2 X7 }, R1 Y#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
7 d# x) E/ W' v# z2 F7 C+ Q( J#4=#3-#4
2 u% X5 ~) k. ^" K! q% x1 S3 ]/ `5 |#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
#1=1.
#2=4.
* d# D, o) w0 h#3=7.
3 ^& B+ ~$ N0 A! b, Y2 p#4=9.
% a8 t5 K; o: m4 a* \N2 #31=1.
! F3 z1 B, v  I* t& _2 E#32=2.
& r0 D9 i2 l* Q* o' Z3 ZN1WHILE[#[#31]LT#[#32]]DO1
, T% m8 w) R) P+ T#[#31]=#[#31]+#[#32]
5 U% a% s" r& X6 K( I" L. X#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
1 Q  x" M' A  o; ~' T2 H/ B3 ?2 [& GEND1
' Q1 j5 `+ J9 D#31=3.
; ^, p# B1 @4 z% g: J" tIF[#2LT#3]]GOTO1
  y# o5 k! D: l2 f- V5 A/ G4 F#32=4.
IF[#3LT#4]OTO1
* G5 b8 H2 }; {3 R; t0 I. SIF[#1LT#2]GOTO2
+ H. k, X% d: K9 o7 _#31=2.
#32=3.
IF[#2LT#3]GOTO1
) f) j2 ?  D0 O7 @* x/ }M0

* R% x0 G3 l1 z6 w5 Q; V) W: d( h$ E看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶