數據交換法的使用

羅蓋仙

2 ~1 b9 M' K0 |" p4 L2 L, Y. N6 S
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
, T: s5 }$ F- A$ G，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

% j* V. m0 Y  n$ n# P+ A% U* |如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
) M+ K6 q% D" |1 u% U0 y  _使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
( ^1 Z& I1 p) [. ^7 A方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
#1=#1-#2
" M: D2 R4 {3 Q#3=#3+#4
2 D* s$ r5 x' A6 H4 D3 e/ I#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
9 w7 e; {* K1 `* c1 b& Y2 S* I
8 ]* J* Z8 d6 B4 `6 l我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
6 K, [- b8 r' O; N#1=#1+#2
#2=#1-#2
5 Z+ l9 P' ]: E9 J6 u- p#1=#1-#2
#3=#3+#4
- k5 q( d- r' O/ }: g5 H) _. P3 c9 l#4=#3-#4
#3=#3-#4
* D! v2 c' A9 h5 a/ Q7 d! REND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
: f0 ^) Q1 m2 E$ c1 N$ O8 g
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
8 X/ ]3 _* s, i1 b) j, a1 LM0
! v3 o4 s8 @0 F4 r( h
  W3 M+ A: R2 W( d3 a7 ?又想把它這樣寫
; J1 r& m* l$ O2 F9 S*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
4 m: A' l( S% {% }8 F9 M只有逻辑判断有些系统版本不支持
/ P: y2 L& W( O4 ~所以，以上语句可以运行的

羅蓋仙

* b+ E$ p" a1 z
使用數據置換來按大小排列，大→小
- t. h. e4 ]1 h/ b法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
3 d6 }8 H" _" r8 g. C' Y0 E  j* ~- K! ~#2=4.
6 R, l% Y- V$ G6 u- N& A#3=7.
#4=9.
( C5 F" {  l; zN1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
0 U4 g3 B# |% U0 l#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
% }9 B+ u) m- Q: G$ D9 V#2=#2+#3
% j+ j3 i6 P. n% C  ~8 d# i#3=#2-#3
#2=#2-#3
END2
WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
#3=#3-#4
0 x# w8 ]1 F( n8 Y. r, B1 IEND3
8 G# P1 `6 M' }& _& [IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
% t! W" [# |  i3 _7 c% J7 JM0


0 s, V2 v1 \1 l6 a/ [: o法1-2：使用一般耳熟能詳的IF-GOTO
5 F, n1 I! Z6 p" _8 a" y#1=A.
#2=B.
* S& [6 _, O" ?#3=C.
) D; z6 j& j% J3 R#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
! T+ i9 d1 `. H#3=#2-#3
. k% @* P" {! @# a, M# F#2=#2-#3
/ \# e3 I& t" p  LN3 IF[#3GE#4]GOTO4
9 B& n( x% c# X* C- Z#3=#3+#4
#4=#3-#4
#3=#3-#4
  A9 o0 A) e- [) X5 Q1 IN4 IF[#1LT#2]GOTO1
2 a  s% p4 M" @- P/ e* QIF[#2LT#3]GOTO2
2 s" N# C2 L1 h! R) JM0

羅蓋仙

2 ~+ O/ t  V$ p1 D
法二：使用変変數^^
0 _2 s$ \# j0 s9 q#1=1.
8 x; m2 Z* w, |( B, L#2=4.
' W, ?& o7 P' i#3=7.
; ^1 z  T2 m8 C" j8 F, M- v9 u0 t#4=9.
$ b5 Q2 V0 h: B. TN2 #31=1.
7 E: p. U1 B) K$ U' u#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
; ]  a- i4 i4 K& k; f#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
" `% c3 x$ M% \! |5 b$ K" a- XEND1
: M2 P  L! m9 [; @#31=3.
IF[#2LT#3]]GOTO1
" _6 q; U. v, O5 q+ W#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
#32=3.
IF[#2LT#3]GOTO1
1 v. z; Z' ?2 ?7 b0 K; r& WM0
: Q$ c. ^* V& f) w1 \7 S4 J0 b2 C
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶