數據交換法的使用

羅蓋仙

* X/ M. j9 g5 k: ?; p
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
( {) j! ^/ B* v& g  }* b  R，我看完之後有灵感，
9 ]8 B* g8 A% x2 \有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
& W3 G, i  A2 P3 a7 z+ jIF[#1GE#2]GOTO5
2 \$ V) w2 \+ q- i2 M#1=#1+#2
$ k. j8 v6 T9 `% u#2=#1-#2
% O3 F1 s7 Z% c9 q. D#1=#1-#2
6 |3 S; k3 Y  f' U- r$ }#3=#3+#4
#4=#3-#4
#3=#3-#4
3 k0 N5 v$ q& a# X* X% ^: d3 wN5......此時#1的值已經置換過來了.#1的值一定比#2大

, [. j0 C, |  u, K! \' N我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
2 l% U0 }3 w4 C1 c- G0 D* f方法B：
) g! N  c: e1 R4 a! KWHILE[#1LT#2]DO1
9 x, U4 @& {- r4 Q4 w1 [#1=#1+#2
& L5 {, p- T$ ]! p; h#2=#1-#2
6 t  ]" |$ d6 h* }3 E/ |1 \  o: ], y" T#1=#1-#2
& b7 I4 w- H7 S3 L2 L8 \#3=#3+#4
#4=#3-#4
( w8 _) p3 u8 H0 |( t3 ?1 _0 q/ q#3=#3-#4
+ n7 c8 w7 ^  i' |END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
4 l/ i1 q) \, R1 i; X  }' Y#1=5.
#2=10.
; o5 U. Q* D# ]3 K#30=1.
% @( @& R! v2 ?& V  w& l  X" X*#31=#[#30+#500MOD2.]
M0
  H! m9 `+ e* C5 M0 `
又想把它這樣寫
9 [! @: B3 s& ~" _, u3 Q*#31=#[#30+#500AND1.]
' j3 n0 [8 D: k# wM0

空气中的小鱼

回复 2# 羅蓋仙
# o+ @9 @! Y4 n% w$ N你的表达式中没有只是逻辑运算，
5 Z3 W( _" b& E+ u; p# [$ U7 |只有逻辑判断有些系统版本不支持
* t5 I1 S! z: `所以，以上语句可以运行的

羅蓋仙

/ c4 o: l' {! v! V2 L4 o使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
" K& `+ r* i' }$ M1 f+ m. x6 L' b#3=7.
% g: F' e+ d# N  g9 Q9 K#4=9.
N1WHILE[#1LT#2]DO1
: c( P/ V9 [( h$ [. @/ U9 l- p#1=#1+#2
! q  n) S! n) b#2=#1-#2
8 ~& Z/ X* W( z/ q#1=#1-#2
END1
5 a7 t# ^, b2 L1 j! x$ ]3 v' dN2WHILE[#2LT#3]DO2
" H5 L3 j4 i0 o" @9 d; G#2=#2+#3
( W# S8 {& |8 P+ K8 H#3=#2-#3
" l7 W. K# k$ i7 B# _#2=#2-#3
END2
# `& D" B1 F# W! OWHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
! k6 D. Z) C: d/ B#3=#3-#4
END3
+ ^, I7 q! `0 v* Y2 Q1 |: ?IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
4 x0 ^0 y; L% e# Y( AM0


法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
0 H! ^. `2 h' R3 S0 ^+ X#3=C.
#4=D.
& P5 s$ h0 Y8 c* N: R/ IN1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
* }* O" E! S/ d1 @#1=#1-#2
& e7 _) q; H% n- P5 ]) @% j# LN2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
9 {! B" _2 A+ o0 p  g. \/ A#3=#3+#4
#4=#3-#4
#3=#3-#4
) ]' E* Y( I" G7 y( W+ qN4 IF[#1LT#2]GOTO1
! X4 n* w0 l3 b# M6 yIF[#2LT#3]GOTO2
% W! M/ v7 f8 v! Y( kM0

羅蓋仙

" e( x3 v% f3 R法二：使用変変數^^
#1=1.
. L# W8 G( X, v* ?% o7 k#2=4.
#3=7.
#4=9.
N2 #31=1.
) a+ z9 U+ p2 C#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
7 n; L; w0 x% o7 Q3 k3 x' m#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
#31=3.
: `. U* ]& E& g% X- z* \IF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
) T2 u5 T4 c( V& ?/ WIF[#1LT#2]GOTO2
#31=2.
#32=3.
IF[#2LT#3]GOTO1
2 h/ m/ m/ u* y2 _& DM0
5 D6 V/ `' T* I+ o
% w- g5 u# z8 F- i6 X0 H1 Z4 W看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶