數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
: a3 X* \7 k+ H方法A：
IF[#1GE#2]GOTO5
) a. R4 u& n4 v- S5 _#1=#1+#2
; r3 L6 [8 \1 K! v8 B* s( L#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
, [# ]+ A; E  P2 b* \* D; bN5......此時#1的值已經置換過來了.#1的值一定比#2大
% e: A9 t2 c: a) U( X$ x# E! |' ?
" o6 v" M) q" B. T2 {1 M我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
" a/ l0 k+ H. h1 q7 ~9 p#1=#1+#2
#2=#1-#2
#1=#1-#2
& w. e) a+ d; B0 c# D) Y/ B/ ]; ~#3=#3+#4
#4=#3-#4
( T6 b; _- n8 E#3=#3-#4
9 {, K; p" d$ S* O  m: uEND1
: Q0 a' E: [2 I: ]7 ~......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
#30=1.
, J3 Y& N& E; b7 b*#31=#[#30+#500MOD2.]
M0
2 l$ C0 e% s9 ~
又想把它這樣寫
9 _; E1 ]2 I' c' X- {. S7 Y1 |' N*#31=#[#30+#500AND1.]
3 l7 k0 O! M8 C3 h- t/ f! hM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
% X( ]3 H6 g, E  R, W" W% U3 F只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

0 Z  w0 Q: P: k, L
. o7 Q' M2 t& H6 h9 ]/ B使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
3 N2 P+ b4 x0 Z% `& u1 J* L#1=1.
#2=4.
) H! u, c& z! z2 B( E#3=7.
, K6 w, X& Z5 R0 m#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
% B" p5 Q, J$ r9 O7 z6 J7 d#2=#2+#3
4 A; _( C% [' _/ Q1 p#3=#2-#3
#2=#2-#3
END2
) x9 B# {  M" Z( t0 l7 S- xWHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
& g$ `% O! A* F" Z#3=#3-#4
END3
IF[#1LT#2]GOTO1
$ n6 i. C- M% z) I" ~& `IF[#2LT#3]GOTO2
, T( n  ~( B# _+ [M0

7 L0 t1 X1 E. K+ L
; l+ d7 E; Q& R# p7 {; M法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
6 G* s# w! C9 h- \#3=C.
) a) O& Z1 \% l4 |#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
3 d: T/ f# \8 }& ]$ `1 h9 M#1=#1-#2
N2 IF[#2GE#3]GOTO3
4 k0 T2 T0 f- D$ T+ c#2=#2+#3
#3=#2-#3
3 E( k4 ^: N  s; m' \1 w$ _- v#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
#3=#3-#4
( o) `( `) @! Z4 q- [N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

5 u* g' u8 J+ k% n6 i) z法二：使用変変數^^
/ D( O. E7 y$ D) b+ t# x+ X#1=1.
#2=4.
#3=7.
4 y! h4 p9 V' \! q9 V! b! o#4=9.
. I( S5 N. X5 |( r# IN2 #31=1.
! t7 \) o8 E8 W8 A1 I! O/ J! C#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
' O" p3 v0 ?* C  ~/ M! U#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
9 \, F" @0 N* H$ B3 t7 K( y/ E#[#31]=#[#31]-#[#32]
END1
. G5 C1 c3 l. A3 k( k% m! _" T#31=3.
IF[#2LT#3]]GOTO1
#32=4.
% [( u. S+ }: C, s( RIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
& C* V. \2 }; b0 M) l7 c#32=3.
IF[#2LT#3]GOTO1
+ g. I" S8 |' G8 @M0
' x% _2 {/ `& c+ v: p( U9 F$ H! l1 e
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶