數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
/ X/ p3 K& j/ N% D, y- \，我看完之後有灵感，
, m3 A" N; ?/ h: _- t# B/ H+ X( ?有人說數據交換法.能用于何處???我來舉個例子

/ I% `+ `4 E: g; m; i6 y如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
. R3 _: }6 [' F; H7 \5 P方法A：
IF[#1GE#2]GOTO5
% k. i9 V& E7 a* e8 e! x#1=#1+#2
9 u, S7 f& T/ p0 g; U#2=#1-#2
$ |# J# }. F/ Y# \$ a3 a#1=#1-#2
4 T) K% V7 g' ]#3=#3+#4
2 U% d5 R  M3 K  X#4=#3-#4
& \4 F; M9 }) S: g( G# q0 C#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
# b7 ]: M: I7 K0 F
# Y: H) g% O+ I5 c' |$ i% H! {我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
4 h# e$ m4 A" u5 W! e' @方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
* Y4 ?8 u5 ]' e3 I1 F#2=#1-#2
#1=#1-#2
#3=#3+#4
2 d, x2 A( Y5 k7 `/ h#4=#3-#4
#3=#3-#4
% `0 C; S: z7 n! }. a0 mEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
, E& C$ Z9 _! \) R, [, }/ D
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
; d) ]3 b9 F/ q6 R9 k#1=5.
: E( [# H; _1 a3 Z& M#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
6 Y  ]3 s1 `7 i, j0 @: pM0
0 k0 I4 t) c. t; R
又想把它這樣寫
2 y- h1 g( ?6 I) l8 P& i*#31=#[#30+#500AND1.]
0 Z. O/ }4 v' b, t; j& ]: D4 n: @5 eM0

空气中的小鱼

回复 2# 羅蓋仙
. m* {; Q6 T6 v* \& t" p+ Z你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

6 t/ L/ V& I6 t; ]
: O+ B2 Z& _8 W0 t使用數據置換來按大小排列，大→小
0 S' ]/ D0 G/ |( ?5 N  |/ o法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
: o  i" |2 v& S1 l#2=4.
#3=7.
7 O( J5 b. W# X4 ~/ ~/ _#4=9.
. z8 s# ]7 N) F  p8 SN1WHILE[#1LT#2]DO1
8 D* r1 }. t  a) a. f" j#1=#1+#2
) L4 R! f) ^. s3 D5 r#2=#1-#2
! _0 ?- M) ^: Q#1=#1-#2
END1
( }1 R8 k. [, x* vN2WHILE[#2LT#3]DO2
4 }( S5 i& ~  H6 F#2=#2+#3
#3=#2-#3
; e, r5 `2 F( c3 h$ s- t1 E#2=#2-#3
END2
0 I" b3 ~+ _" b" ], X6 b  WWHILE[#3LT#4]DO3
#3=#3+#4
' D/ k8 |. z; ]7 b  s5 f4 F#4=#3-#4
4 q0 E0 F5 k# V* O#3=#3-#4
END3
IF[#1LT#2]GOTO1
; C8 y& ^( ~, |; v  @. V; S5 |IF[#2LT#3]GOTO2
/ S7 O# e4 ], ]5 g& `9 SM0
1 x8 H* h! M) [( F
& L. _  P. P8 \; g& F' p9 B' y
4 |7 `. [8 a1 ]6 g4 T, b2 A法1-2：使用一般耳熟能詳的IF-GOTO
* V* I& m7 o1 E2 I. C#1=A.
#2=B.
#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
& S, o9 i( `' @, R7 _#1=#1+#2
#2=#1-#2
( F, S& e: y) }6 ]#1=#1-#2
9 Y! v2 D% u5 m1 pN2 IF[#2GE#3]GOTO3
- c7 o3 l! o4 e- Y# U#2=#2+#3
. @/ t% _) P5 n3 c#3=#2-#3
#2=#2-#3
! m1 Y7 I8 G6 W. V* [: }* eN3 IF[#3GE#4]GOTO4
. Q+ w" f5 T  d  n+ X7 H#3=#3+#4
5 e, B3 n& l  ^4 R#4=#3-#4
5 y! U5 {! [* U7 e0 S/ g" R3 M#3=#3-#4
8 t7 E$ r& L0 `0 c, v. q7 pN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
7 m: M7 a0 }% \1 [M0

羅蓋仙

2 b, n- |/ M' ?1 X# H$ ^' H
法二：使用変変數^^
3 D; _- }9 H+ d( l' p0 ^" Y' M- r: F#1=1.
) j* y9 v2 X7 D# Q/ z. ~; c9 {#2=4.
#3=7.
#4=9.
N2 #31=1.
! r/ q/ B; m% D#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
# a# p' |% i6 P& L5 F6 L7 T. u#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
$ E8 H# l' M5 T. K- `4 }#[#31]=#[#31]-#[#32]
+ B1 J5 c9 h6 Q& a# PEND1
#31=3.
9 {7 @! m: c0 b2 F, J) x. wIF[#2LT#3]]GOTO1
" P6 r% ^6 F) n6 A9 `$ t9 y#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
. j7 Z* e. e  y4 a' h1 Y: v" T" W#31=2.
#32=3.
) [% ^+ J0 Y3 z: [) t) a7 Z4 CIF[#2LT#3]GOTO1
M0
3 N- k: u' s4 {- W
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶