數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
8 H* A3 s# e$ I: M3 I% x有人說數據交換法.能用于何處???我來舉個例子
/ e/ r1 z" e; I! O8 F
% G- y, c3 x4 ?: S& [+ ^: @如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
( I# u% N$ c1 R  J方法A：
) H2 @* r* }2 N+ [3 G, a1 d; dIF[#1GE#2]GOTO5
1 _3 y# q* |( u- k#1=#1+#2
, P8 H9 l. ^' ^  ~( _0 h, B#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
7 V! \, n8 G: @- P# v#3=#3-#4
( `+ N8 }; G$ w7 n! {5 V( l1 aN5......此時#1的值已經置換過來了.#1的值一定比#2大
% p. t4 f9 f  x# v( X& z4 F
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
, T# n4 `3 b  i2 [/ a- p8 u#1=#1+#2
$ ~: q0 F* @1 W* X2 H! z#2=#1-#2
! X  [: a. w& l. a: e0 Q& }#1=#1-#2
+ C2 \7 _6 J& o#3=#3+#4
#4=#3-#4
#3=#3-#4
END1
9 y) X$ {- Q6 W......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
+ u  o; J9 @9 U0 j
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
3 }1 C" k1 q9 ]& L2 a6 a1 s% \' F#30=1.
*#31=#[#30+#500MOD2.]
2 h; ^1 i7 e; N* q# T5 \M0
& K& I5 A" K1 t; }+ ?" B" |
又想把它這樣寫
# u& h+ {6 d# g*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
. b- N$ S: j/ _你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

' t( q: p1 {& x  l8 e使用數據置換來按大小排列，大→小
" [7 D/ R: e6 |5 z0 @- j/ G1 G5 c法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
) x% V/ ^" f0 m#3=7.
#4=9.
" a2 ?9 b3 ^1 G; R2 s% c" Z1 MN1WHILE[#1LT#2]DO1
#1=#1+#2
8 }! d# H8 b2 |, ]' N5 |( `9 h#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
#2=#2-#3
END2
WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
#3=#3-#4
8 `/ x1 b3 l9 pEND3
8 }* ^8 Y- L" ^% j+ V5 QIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
$ [' p# B5 ~! G4 o

法1-2：使用一般耳熟能詳的IF-GOTO
1 D- b; I1 k5 i8 ]: M  {. V#1=A.
#2=B.
#3=C.
#4=D.
( j. W- W1 O% ?7 {6 @6 f* Z: k$ WN1 IF[#1GE#2]GOTO2
#1=#1+#2
. C. I$ w, i. K! h; P#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
+ x" S1 O% l% Z: ?+ ~- ~% l. ^( C#2=#2+#3
$ c7 ], }& O" b#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
6 ]8 p3 s6 p" b' K#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

7 ?2 d2 N0 ?8 e5 g3 o0 y
3 t% w$ M: E' A# g7 t# [法二：使用変変數^^
#1=1.
# ^( u& u5 q; W7 I' H1 |#2=4.
#3=7.
#4=9.
  i. Y- q, y, r! z0 T' B) j9 mN2 #31=1.
: a  C9 m4 l0 r#32=2.
% c1 p; s7 H6 C: B7 Q/ [& MN1WHILE[#[#31]LT#[#32]]DO1
# @  p* ^# j! N) K#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
7 C! r* L# H! a: n' d#[#31]=#[#31]-#[#32]
END1
4 N9 i" E+ v" @4 L2 u4 O9 {' ?" U6 O#31=3.
9 n, ?: _5 m8 qIF[#2LT#3]]GOTO1
& f0 T& l3 U8 j6 N5 o7 Y' T( y) m3 {#32=4.
IF[#3LT#4]OTO1
( Y" t, Z3 B+ u( y8 [% oIF[#1LT#2]GOTO2
#31=2.
) ~% R1 |5 S) b#32=3.
0 T- ^2 N& x/ d$ s- \! jIF[#2LT#3]GOTO1
2 a( m7 w" D* k3 i  LM0

) l1 R3 w& J7 j: {! Z2 f看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶