數據交換法的使用

羅蓋仙

- |' I" O8 r9 T# @( W" v上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
; T& C" Z' O' o* j4 C! n5 h) w$ u0 l，我看完之後有灵感，
9 [, h* ^7 D( C0 K) p  \5 z. c1 r) h& [有人說數據交換法.能用于何處???我來舉個例子
4 h  y5 a' G" \% b: E9 `) m: s
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
  b, C& Y1 }+ V8 ]' R" G' ~7 l方法A：
7 i' z9 \$ D* f3 Q; t9 u+ ]IF[#1GE#2]GOTO5
#1=#1+#2
- C9 Q( M! q( ~) b) k# h1 s6 H#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
# G5 g# d. u/ z4 |' k& K4 F#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

0 Z6 ~* r: q$ d8 a我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
& X+ s. w% T7 _8 A) h0 D5 Z, z方法B：
WHILE[#1LT#2]DO1
- N9 R; Y! K4 {#1=#1+#2
8 g1 @' H' a3 Y#2=#1-#2
. B7 _5 _( |& z" }8 R% {" Z$ \2 s#1=#1-#2
#3=#3+#4
, _3 d- q6 @) O- q  {- P#4=#3-#4
+ N; i: U  e$ i& z% C" h" b/ v#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
8 @: N0 F5 v- F#1=5.
4 W. ?4 U9 H9 H1 s* E# g/ x- p#2=10.
: y3 ~6 t5 ^/ N: A3 w9 N8 A7 O8 w#30=1.
*#31=#[#30+#500MOD2.]
. r  Y9 X( W$ w$ D7 y: r" j" ^M0
6 ~% M& P0 j( e4 a- ?
- \( G: N# X% h0 l0 n! W- d又想把它這樣寫
- S9 j2 P: s# s  g! m: O*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
$ \3 n  `& Z; _0 G* u( l你的表达式中没有只是逻辑运算，
* `; @3 c9 X4 [/ r) ]7 g& b只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

' W/ i. ?# N* f' X7 j+ t
使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
# B! v  P: F0 K% J, j#1=1.
#2=4.
#3=7.
; G; D* a/ w) x4 {) c* o8 v7 U. J#4=9.
( X/ N1 _- J, X. N9 k! c% u+ wN1WHILE[#1LT#2]DO1
: o7 \" m# d8 ]9 [, D  v#1=#1+#2
#2=#1-#2
#1=#1-#2
5 \+ P! d" O+ `6 T8 D$ j' yEND1
N2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
$ Y& _3 Y* U1 P/ ?- r#2=#2-#3
: G' m. x/ t9 e9 n9 L3 r& FEND2
WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
5 y/ {3 A+ A( |3 R#3=#3-#4
2 m! I9 G4 b- oEND3
: ~- t2 I* X, h6 b! g, M) L, EIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
1 x8 ]& K5 V! a. [8 E' F# U$ t) ^
( P2 w/ t- p9 P( G+ z1 L  A
6 u! S; x; g7 P法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
& l7 z+ G. O0 N$ u#2=B.
. g' W' p$ s$ E$ L3 N- R1 i#3=C.
# W9 a- h0 }6 L2 \3 ^/ R+ j#4=D.
& f9 y4 O7 ~; V2 W" ?N1 IF[#1GE#2]GOTO2
  z% U# W& R9 ?5 c  b* Y, M' k#1=#1+#2
#2=#1-#2
#1=#1-#2
4 H4 r' f/ Y# ZN2 IF[#2GE#3]GOTO3
4 g. |  A: R7 ^% d; Z8 X2 H* a$ ?#2=#2+#3
  s- `5 |9 y5 l. Q; M$ _#3=#2-#3
  @3 c. o# g/ @( n4 R#2=#2-#3
N3 IF[#3GE#4]GOTO4
/ W% D  C  \- X4 N$ k+ a#3=#3+#4
#4=#3-#4
  M1 R5 I2 A+ j+ z3 {. t#3=#3-#4
! D+ l. Z( A2 X4 HN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
& _6 |( v) C( _. ?/ O1 eM0

羅蓋仙

法二：使用変変數^^
6 C1 b7 H% c% j% `1 [. U% Q: K! ?#1=1.
#2=4.
#3=7.
+ s9 F; |% L" ^! _. w7 c#4=9.
N2 #31=1.
: D! e' h: y( x- i5 m+ u#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
6 Y) ?5 n* w- k7 O5 l# f8 @* d; D#[#31]=#[#31]+#[#32]
8 j1 ~4 x! A& ~& h& M#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
* n0 J/ @  D/ Q8 W% TEND1
# p- y8 b2 @) f: L. t9 w7 R1 Z#31=3.
IF[#2LT#3]]GOTO1
- o# R. c* S) f8 A4 S' \#32=4.
IF[#3LT#4]OTO1
; k$ Y9 `9 ^& k' VIF[#1LT#2]GOTO2
! c# H; n& M; F/ ~#31=2.
#32=3.
IF[#2LT#3]GOTO1
2 z" J# j$ s/ TM0

& p/ r# q* ^$ A4 t看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶