數據交換法的使用

羅蓋仙

% O8 c. P- l( W+ n+ K
! r7 W; r6 A9 V上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

5 j/ }/ u. d4 c4 Q4 O4 o如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
9 m- a* z. G9 q% ], x使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
2 a5 R2 ^  d5 Y! u' h方法A：
IF[#1GE#2]GOTO5
. O! }/ o. V, l% S#1=#1+#2
# o+ T1 ~/ k2 Z& F0 T#2=#1-#2
) j0 G2 H7 X4 h8 ^2 [. ^#1=#1-#2
#3=#3+#4
#4=#3-#4
0 p% x0 c+ P. z3 K8 X% v  e#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
8 H8 @/ \+ z, d2 Y% z+ \, j
3 g' e/ n1 o+ u: X* j我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
; @4 g3 ^4 }7 R  zWHILE[#1LT#2]DO1
: X! V1 @$ L7 ?9 N. z: t) h#1=#1+#2
& y8 ~6 s% ^. u& V4 h; |1 f: H* N* v#2=#1-#2
#1=#1-#2
0 U8 Z, ~) x; \. S0 Z#3=#3+#4
! ?" x; W& }* w#4=#3-#4
) V( U- I& v. B* z9 I' ~#3=#3-#4
8 A* D/ `, X2 k" g& DEND1
: r2 O9 ^8 Z% `......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
0 ^/ d, e, B$ D' u#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
# I! L" |% @( h  G9 D( PM0

又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
. k0 `  J. l+ U1 J) U5 V. ]( V8 @所以，以上语句可以运行的

羅蓋仙

4 I/ \* h% d" L0 ]
使用數據置換來按大小排列，大→小
! \6 l6 P5 q9 ]1 y# A. U. V6 _法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
6 {% l! L) }1 x% _#1=1.
#2=4.
% P# K# R+ J3 @1 v) U& T#3=7.
#4=9.
& ^9 l) c% w; s! z* uN1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
; S9 e0 v: x; M' x1 L2 Q* [, {END1
N2WHILE[#2LT#3]DO2
9 L+ L- {$ n7 u#2=#2+#3
#3=#2-#3
( R( u6 Y9 X' `+ T& d#2=#2-#3
END2
WHILE[#3LT#4]DO3
  v/ W9 }+ O' s- P3 e( y3 p#3=#3+#4
2 `. \' \! g0 ?#4=#3-#4
#3=#3-#4
7 |& M& p8 w/ N! x; w" rEND3
IF[#1LT#2]GOTO1
* ^. H$ w, {7 }* u7 Y, w, l/ u5 _( WIF[#2LT#3]GOTO2
6 O/ D" T& J2 a5 u- Z1 r& JM0

( Y% o# ~5 X2 E* [& M5 ?
法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
#3=C.
# Q8 `0 |- M/ c2 W% o; b: q# i#4=D.
, {# l) {; p% ]+ ?: n- bN1 IF[#1GE#2]GOTO2
8 [) |+ T  p* G. N' f$ K5 h/ f' h#1=#1+#2
; |2 P' e1 ?; m* i- b#2=#1-#2
#1=#1-#2
; A3 Q2 ~. ?5 \8 M1 K# JN2 IF[#2GE#3]GOTO3
9 |" J$ D$ r4 D7 ^5 z#2=#2+#3
+ ?; O  I7 n2 L( L+ B#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
+ N9 W; R! e' j: q# @  J/ T! N#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
1 Q1 p0 }- ^" uM0

羅蓋仙

- _4 }. a$ ], N( k
法二：使用変変數^^
/ U5 l& k1 I! V( ]$ B$ Y* l#1=1.
#2=4.
* E. K6 X; a9 K* K#3=7.
#4=9.
N2 #31=1.
1 \1 o3 }" j6 Y6 D7 e3 F#32=2.
: T6 W2 E! n0 L$ b+ s7 q+ @N1WHILE[#[#31]LT#[#32]]DO1
3 }/ i! e2 j5 \. h1 q8 S0 @8 [#[#31]=#[#31]+#[#32]
+ S7 k: e: V: L# Q3 a- v2 H#[#32]=#[#31]-#[#32]
. h3 I2 t* m- E# d6 Z. m#[#31]=#[#31]-#[#32]
END1
4 j' d. X& q, M( S3 ^#31=3.
IF[#2LT#3]]GOTO1
#32=4.
" O6 j  N% l5 N: a3 `IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
" D8 c+ Z5 q# c, A+ f6 |2 c4 p7 z' p#32=3.
3 y; L- y+ L% |5 z- a5 k) vIF[#2LT#3]GOTO1
M0

) G6 d1 T3 {9 b4 }8 R/ z看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶