數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
9 C8 A$ m9 W$ L7 R3 f，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
# m7 F- Z; {8 c
$ ]0 ?5 z/ d, x如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
5 ?- H$ u1 A0 |4 n1 t使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
9 z) Z% k& e, E1 t$ _) vIF[#1GE#2]GOTO5
' X( H/ U6 N+ `#1=#1+#2
+ f2 h& Q& |: c$ ]" ~( _6 y; o#2=#1-#2
#1=#1-#2
7 u9 b: P8 d# E2 u- `#3=#3+#4
: n! S; u: r2 ]8 @# Y8 A#4=#3-#4
6 N# w2 V* n: O3 S, G5 J#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
4 V7 m) \  ?! r+ O  E
% r+ R3 O7 ^: o1 N0 K1 M5 e# {3 D我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
$ ^$ h- Y4 x8 j" s+ }- W' j1 |#2=#1-#2
#1=#1-#2
( v7 D7 k# o+ S#3=#3+#4
#4=#3-#4
#3=#3-#4
: c. q- a& d$ l1 Y2 {5 pEND1
3 u! R; Z& w$ t% ?......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
7 x' F" p% E1 a; Q8 K+ v
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
#30=1.
+ P% S; {* Q7 n2 q' g*#31=#[#30+#500MOD2.]
( r& `/ @. q; N9 ]) oM0

) d" \' b4 b% j$ @' O4 r+ }% t又想把它這樣寫
*#31=#[#30+#500AND1.]
* i5 }4 `+ K9 a0 k; DM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
8 I' _0 _1 U" ~4 R' l+ d5 J# v所以，以上语句可以运行的

羅蓋仙

7 @, x7 X# u8 @1 V9 ]. t使用數據置換來按大小排列，大→小
; C7 M* ?5 r( Z3 Z6 I! k! n) h法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
#3=7.
. I/ a/ w2 J; E' T0 x0 z#4=9.
N1WHILE[#1LT#2]DO1
# C& ]) Q1 z4 }#1=#1+#2
#2=#1-#2
#1=#1-#2
4 ?: \4 e, K: ?) ?4 z6 C. \2 gEND1
3 m5 L4 c6 l3 t$ d# T0 hN2WHILE[#2LT#3]DO2
( p) g7 j* h  Q: X#2=#2+#3
6 Q/ [1 ~$ h& K% S8 O! c9 S#3=#2-#3
, k, Q8 S- _% c" Q#2=#2-#3
END2
WHILE[#3LT#4]DO3
#3=#3+#4
0 \: Y4 `  v. k6 Q- f# e* k#4=#3-#4
: \: S+ Q: k4 g" F#3=#3-#4
; s- w0 q# A% s& {1 CEND3
6 o0 \* a( K$ E6 O2 @- R1 U# H. yIF[#1LT#2]GOTO1
0 v/ r3 ^" G7 l9 HIF[#2LT#3]GOTO2
& D3 X# p% p' N# K- q8 {M0

% E$ y5 W9 G/ w. C1 \* Y
法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
; a- E% B- M8 I& d0 ?, Y' K, S, f#2=B.
#3=C.
$ R0 ~* n1 q  C. S, `#4=D.
N1 IF[#1GE#2]GOTO2
& r4 \6 B) {" g% [. w$ j: U#1=#1+#2
) r* [1 e2 t$ u/ Q2 y0 ~#2=#1-#2
" v! k. G! I. {' Z2 W#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
5 K" I/ m' x, Q% _#3=#2-#3
% |) ?8 |/ w' ~7 s7 x  k#2=#2-#3
N3 IF[#3GE#4]GOTO4
4 M0 D& y  a# M; ~2 S% B, e# @#3=#3+#4
3 y5 Z2 Y1 L9 }6 Y( `% e/ o0 G#4=#3-#4
8 s; [  F6 C. f/ ?. g0 T#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
, `3 w6 I8 G( [9 AM0

羅蓋仙

) G, G. z, ~# H: F9 _- c
法二：使用変変數^^
4 W* [' w  T" d' ?% s/ a#1=1.
1 ]" H" G: s- P7 L) J# g/ }- u#2=4.
#3=7.
#4=9.
# H$ U6 x; N- F+ ?& ^1 G- zN2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
2 K% X& I* |* t4 b/ v. }8 l# l#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
  z! M' i7 F% }, {0 O0 Q0 |  A  E#31=3.
IF[#2LT#3]]GOTO1
. m: h- X* N' u#32=4.
IF[#3LT#4]OTO1
- j9 Z% G  `1 m; z( O. G7 q% BIF[#1LT#2]GOTO2
#31=2.
#32=3.
. {- t/ _3 s, x, O" f8 vIF[#2LT#3]GOTO1
6 `1 D$ c* H# ^3 ~: S8 Q4 d: w; _M0

看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶