數據交換法的使用

羅蓋仙

& _; w: i) C/ g1 O* _8 e
2 u7 T6 r) q  F" j6 X' m上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
, R$ e& r4 B- U+ c7 ]; o" Y，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

9 j) w3 `( q8 i; d如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
0 u* v6 `/ S1 n# c# M, n使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
. i# M, K0 c: {: s' V3 ]/ i/ JIF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
8 a- J6 y3 D4 k0 Z#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
" i# g, ~7 j: V- u! e. @#1=#1+#2
( E0 S$ p% i9 x' H2 y#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
6 u' H; o8 Z# b  I# Q#3=#3-#4
5 x8 G7 m* O* E4 m6 o2 vEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
/ x: e0 G6 d# N  \#1=5.
- A6 `* ]; m% s9 n#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
M0
' M9 i0 F! t: r
  ^# W' r  i; A7 o又想把它這樣寫
' u; y# h+ a; C*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
# T: x4 M. {- A4 m+ w1 g' }/ g( F你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

$ q9 A$ X# M7 N3 p! _& ^
: C- Y! d# H+ J" I0 j+ z/ {3 U# D使用數據置換來按大小排列，大→小
* O5 m$ K. A: z0 ~, N5 \法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
! X' ?: o4 _  A4 S, L#1=1.
#2=4.
#3=7.
#4=9.
) p0 O! d' ~" }- N- E% V+ X  y4 {N1WHILE[#1LT#2]DO1
+ t; M3 ~. ^3 U0 e#1=#1+#2
% v9 j: W7 ?& g9 |2 F6 d#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
#2=#2+#3
& V: c& F& E1 z#3=#2-#3
+ c/ t4 k6 w9 x& r- D! R' @#2=#2-#3
& t+ g- v. Y* {" H" u$ @END2
WHILE[#3LT#4]DO3
#3=#3+#4
: T4 H# s/ ^) i% W) c#4=#3-#4
. J+ V# X6 |% e8 u. |5 i#3=#3-#4
END3
' o$ m5 y8 ~1 j7 G& g5 G: rIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
- Q" I; E$ T# c9 TM0
9 c$ o1 u+ e- p- C: B

* I! Q3 \0 w) a3 g( u法1-2：使用一般耳熟能詳的IF-GOTO
. v3 J4 {1 e' _5 \#1=A.
#2=B.
#3=C.
#4=D.
4 O& @" y% Z# I9 v2 J0 g" rN1 IF[#1GE#2]GOTO2
. U' S* J& q: B: f7 x$ G#1=#1+#2
" \/ C3 e+ u6 R. f9 p#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
" _# C/ Y$ d+ o0 W. S#2=#2+#3
#3=#2-#3
5 P/ S0 P. [5 W4 [* ]#2=#2-#3
N3 IF[#3GE#4]GOTO4
5 ~5 F% i  M# s# o#3=#3+#4
#4=#3-#4
" ?& {% M; j- \#3=#3-#4
N4 IF[#1LT#2]GOTO1
/ ^# P* m/ a2 G  D- Z( uIF[#2LT#3]GOTO2
; w) @% Y( E/ j. z6 J; H3 tM0

羅蓋仙

$ P3 z" j( U1 {1 b3 S5 q法二：使用変変數^^
+ W" @3 [9 u: b) ~& r#1=1.
( Y1 f' u! j; E; w- L#2=4.
5 k7 v( ?5 T; B; b  z3 A#3=7.
#4=9.
& a5 M: n0 o8 m( dN2 #31=1.
' J. W3 }# T/ p; Y: k/ L#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
+ Z; Y' |' o5 w: w8 M% a- b#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
! ?1 Q; x! x& ]  d2 @#[#31]=#[#31]-#[#32]
END1
+ w9 p7 Q: b; _% f$ l0 g( A#31=3.
) W5 @' [. I  H$ J3 S/ M; P# XIF[#2LT#3]]GOTO1
#32=4.
- E1 X3 K4 z& R) eIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
  E2 c1 e* j  {% c: L5 z9 W9 |) o#31=2.
#32=3.
, K9 Z9 H2 u$ S/ n0 S6 a& `IF[#2LT#3]GOTO1
M0
  ^: M  ?; J+ M! \
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶