數據交換法的使用

羅蓋仙

' y: E2 l4 l, W+ L3 P7 W* j6 u* c
7 j: f6 H0 f. i* \7 d6 @& l上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
2 `: n# z  v* x  _( p* W3 j! G，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

1 P0 \/ c/ |$ J* g2 ?如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
* X+ C+ H$ e+ G7 V" v& u6 S6 y#2=#1-#2
#1=#1-#2
8 B* C8 d: z! [! s9 t#3=#3+#4
0 W! o; D+ g3 a; \  q1 L* Z, x0 f#4=#3-#4
#3=#3-#4
3 `$ w8 [: Y4 C8 V$ C" i5 b) kN5......此時#1的值已經置換過來了.#1的值一定比#2大
9 x& Q4 B. V2 ^+ d" K( E
+ w' F3 r/ r  K我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
9 ^3 d$ y3 c9 j+ z6 r; V方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
0 R* _/ K! E' e( j0 ~0 [#4=#3-#4
#3=#3-#4
% m% ]8 [+ \5 J( L, k0 GEND1
/ o4 r+ z: p2 X+ ^, `. Z......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
0 B% M0 p9 H! `
2 h; F0 \. a6 e' `- Z方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
& K* D4 K, ^- P3 Y4 F1 {" E* [#2=10.
3 E$ A2 V& M1 |' s4 w#30=1.
" [, U, f; q: Q/ [*#31=#[#30+#500MOD2.]
M0
/ Y3 c. }5 a4 x3 s; y* E+ H
又想把它這樣寫
*#31=#[#30+#500AND1.]
' W! g$ l5 R; y3 TM0

空气中的小鱼

回复 2# 羅蓋仙
% a9 n  A# `8 t, C7 z. Q你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

( Z4 r2 P: S  ^# ?/ U使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
- ?. C4 q6 Q6 B3 q5 ?) \5 y#3=7.
0 q) G" E3 ^9 x" t! `. }4 y/ O#4=9.
N1WHILE[#1LT#2]DO1
* B7 f) S8 B: j; w+ t' C* ^#1=#1+#2
6 m! w6 o4 r5 J! r! g6 T; D#2=#1-#2
7 Y4 k: d2 J8 _/ Y$ m- O#1=#1-#2
0 B/ ^' H- e. Y0 P; z2 h# dEND1
N2WHILE[#2LT#3]DO2
& a4 \# H4 N3 R3 W#2=#2+#3
6 j0 c8 T! N# P, {0 m#3=#2-#3
, F) }8 ]0 T! I+ N  _, h% t. U3 [#2=#2-#3
% I2 L" S6 x: V- w4 W* y1 l' rEND2
- t6 Q" r+ L# eWHILE[#3LT#4]DO3
( |" H/ H( l0 }9 f% {3 x* N#3=#3+#4
. w6 y. A1 S/ t( j5 a7 {" n: J#4=#3-#4
4 s3 U6 c0 v8 t/ G3 ]#3=#3-#4
1 }: {' }8 i9 B7 YEND3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0


法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
: c; B; S" Y8 J' Q& ?9 q#3=C.
* `9 l8 i+ \/ d: L! W#4=D.
' k5 }( e% `! H0 w! W) p2 EN1 IF[#1GE#2]GOTO2
#1=#1+#2
5 s& Z" u/ f+ P5 A( F; d9 m#2=#1-#2
#1=#1-#2
1 j7 ]- Y$ E5 s5 hN2 IF[#2GE#3]GOTO3
#2=#2+#3
+ m. T, h5 m( ^) U#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
3 H2 t: `, P) }( v* V: |#4=#3-#4
% U* p3 {3 m/ t- O( ~#3=#3-#4
N4 IF[#1LT#2]GOTO1
6 g) o& ~7 c3 p, pIF[#2LT#3]GOTO2
M0

羅蓋仙

* f) [, O- j5 u5 v法二：使用変変數^^
8 v  @" ]0 V% A! O#1=1.
#2=4.
#3=7.
/ ?* k1 o4 ^9 `  J4 x, h- L#4=9.
. |% }% F4 _7 A# B# tN2 #31=1.
. g( c9 {! I2 Z3 F0 B* J#32=2.
7 k$ ^8 a% b- L, G- d1 M0 WN1WHILE[#[#31]LT#[#32]]DO1
$ Q$ m- ]. R$ v* s3 ?9 ^#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
# W# H2 o5 P7 O0 X8 e#[#31]=#[#31]-#[#32]
END1
9 B' h# Q. p3 J( Q$ f5 r0 R" s4 v' H#31=3.
IF[#2LT#3]]GOTO1
$ w" A" }! Q- c3 o$ S7 U+ u  Z#32=4.
) ?$ j; a) q# F1 Q5 ?$ bIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
7 N0 i0 e& v3 b" @+ j. e#31=2.
/ U' K3 j( A/ V, R6 Z  M#32=3.
5 G& i& ]; [8 `( j5 G( PIF[#2LT#3]GOTO1
. B" x- P' s$ U3 _1 A4 d* yM0
8 m! ]9 E* A6 G7 K' e4 a( l4 L
  e5 P* ^  Y5 E3 t看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶