數據交換法的使用

羅蓋仙

6 Z; G5 B. J3 |) e8 s
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
! X: [4 c" I$ z- x) [5 r有人說數據交換法.能用于何處???我來舉個例子
6 m- @, Q9 j/ i4 [7 e
5 n- M$ _1 _/ W' a1 v2 R  M5 i" `如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
: f% }! H# g* l4 A5 ~' z使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
5 l9 w" q3 d. z0 }3 M2 u  x+ O方法A：
7 y  M# {7 X3 x. |$ N  I  s& YIF[#1GE#2]GOTO5
#1=#1+#2
  |( o$ X& P( ~! w8 _#2=#1-#2
#1=#1-#2
" E# I' x+ a: h# `#3=#3+#4
#4=#3-#4
# C# n' p0 ^+ H: K( h- e#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
! D9 G0 F9 G5 b/ O- Y: R
. M- v$ U# a- e+ h6 N我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
3 t. g  H! \9 I1 L- V#1=#1+#2
#2=#1-#2
. v. c4 s& h6 U! Y#1=#1-#2
% l7 H* a1 y/ a. M#3=#3+#4
* g" Y2 r- b4 h#4=#3-#4
#3=#3-#4
* s. Y1 u; W3 a4 ]6 h3 X9 P% c  uEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
  m9 I3 J: t+ b7 S$ p3 v- T/ i#1=5.
#2=10.
$ G: H3 J6 Y- m9 y/ J' O#30=1.
" w8 q( W" `  e4 i*#31=#[#30+#500MOD2.]
4 v" N7 T5 G, k  O6 tM0

又想把它這樣寫
6 p5 f5 p0 r& {: [$ Q  f& p*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
2 m7 d  Z8 i$ D, r3 j1 D' V你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

" G/ q+ k+ G8 B2 p使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
; ~. b, V& w! |+ U#2=4.
  P. Y& m# B" B0 |$ f) B/ S#3=7.
9 k+ A- k! f2 R; t#4=9.
( h& H+ B  H  g2 V" V- FN1WHILE[#1LT#2]DO1
; q+ n* n0 O" r#1=#1+#2
1 w9 u& a% f9 p! M- K#2=#1-#2
#1=#1-#2
8 n' i7 X: O& F6 E5 j2 |6 x3 `END1
N2WHILE[#2LT#3]DO2
#2=#2+#3
4 N/ B( f" r! K) q) u! B. D, A7 q#3=#2-#3
#2=#2-#3
! y7 m1 J) A5 t$ nEND2
* W  a# ?0 [  k3 [) a7 }# q4 L* Y) mWHILE[#3LT#4]DO3
. ]; I& i" u: k% z8 r$ _6 ?#3=#3+#4
) ?) o. w' M; y4 |8 P#4=#3-#4
#3=#3-#4
END3
. j8 o) K! k+ s: N  `IF[#1LT#2]GOTO1
5 ~  A" y* X0 f' s- HIF[#2LT#3]GOTO2
M0

* f8 _4 o- y! z
法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
: b% e. P. l/ ?8 N: S! ~#2=#1-#2
# B. \( z/ ]9 w3 G$ E, R#1=#1-#2
! v: @) S9 q, P: E5 _8 d9 FN2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
1 B+ C4 U0 @8 r7 y7 p7 M#2=#2-#3
3 b1 K3 D' Q" p0 _8 \2 f& qN3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
( K' B2 V+ O2 o7 q1 U3 [0 M#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
# X$ H( ^% V2 S( G6 O- l" @M0

羅蓋仙

9 ~% ^  X% F* {0 M* }法二：使用変変數^^
#1=1.
5 [7 R4 O" X) ?3 p#2=4.
4 C& F! d) x9 T#3=7.
) m  k  O5 C* E#4=9.
N2 #31=1.
- b6 j! @: ]: X/ y#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
4 y3 h) l5 O5 `7 ]#[#31]=#[#31]+#[#32]
1 Z' _- L; p2 y+ Q8 {6 D#[#32]=#[#31]-#[#32]
6 ?0 U. V. I# q#[#31]=#[#31]-#[#32]
4 C: ^2 y% {& I, y) @- M# REND1
#31=3.
IF[#2LT#3]]GOTO1
" {2 O+ V1 a/ L+ t5 ?) r#32=4.
; \% U. m+ [( J7 s& kIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
; c% W. ^* n% y4 i1 P#31=2.
% B0 h9 B1 \; Y#32=3.
IF[#2LT#3]GOTO1
M0
. C, ~, m3 h5 N+ h- R5 M" |
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶