數據交換法的使用

羅蓋仙

8 ~& ~% d6 H$ K0 a" ]! ?0 ?: q  r% u
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
9 r7 q! M6 c6 @* l6 ?2 o有人說數據交換法.能用于何處???我來舉個例子

; U0 u( r! W" H( l7 F) V* m如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
& a7 \) X9 |" a, z0 g方法A：
$ \3 s$ y9 O+ Y5 _, Z& h4 sIF[#1GE#2]GOTO5
2 u! }/ N. [; u1 q& G1 n& g' _#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
9 z7 z6 r# u3 s1 R% u#4=#3-#4
#3=#3-#4
- t& ?+ N% M2 D& N4 o+ P5 ?) QN5......此時#1的值已經置換過來了.#1的值一定比#2大

! U# n& Q9 F" n2 Q! x  f$ R我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
% y# J7 X* O% c方法B：
- a9 [$ ]% H  \  \7 O9 F4 ]2 J1 FWHILE[#1LT#2]DO1
9 D+ C: V; I$ t/ s, r4 n#1=#1+#2
6 i( R1 h, G4 h6 Z: {#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
& [: K: ?( K7 B0 x% M; _& ^0 W#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
3 k0 `% }( v& r# u1 p8 a" ~
+ o- A4 i3 _0 X方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
1 d4 @+ O5 v7 K# d/ Q! [4 }, R#1=5.
& x7 m$ r3 f7 |5 A# T; o#2=10.
( r' {. |: |0 U+ X: T#30=1.
*#31=#[#30+#500MOD2.]
M0

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

空气中的小鱼

回复 2# 羅蓋仙
3 @' |* f% c; f2 u/ W" ~  q你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
! {/ n! o7 R. u8 Y所以，以上语句可以运行的

羅蓋仙

+ l" B( C; N# _" q使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
" F+ _# }1 l0 |) o0 C2 h2 ^#2=4.
, M: T* e% Q7 c/ O1 U+ V#3=7.
#4=9.
' h( `. ~- J- ~! a2 x1 K; L% t' kN1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
6 d6 m6 M0 u5 L3 O, i5 S" j3 A#2=#2+#3
. V' I. m- |$ k+ t  I# R1 [8 y3 ~#3=#2-#3
7 @' `4 y: N2 m/ M: j#2=#2-#3
END2
WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
& q3 P. O6 r& k#3=#3-#4
END3
IF[#1LT#2]GOTO1
0 E3 Y+ E! O- T  Y4 B6 H2 |5 xIF[#2LT#3]GOTO2
9 g! ?6 o1 M* x% TM0
# I) D" y8 ^. x
6 D) b. x! A4 f- c
法1-2：使用一般耳熟能詳的IF-GOTO
' M% c( j4 n1 U* n- u/ Y#1=A.
#2=B.
#3=C.
#4=D.
7 q/ Y6 N* p6 @0 LN1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
' a$ u( Z: s0 ]3 a4 x#2=#2+#3
6 y, J' b+ b8 D& ~#3=#2-#3
& p1 x# }! @! a3 d* O#2=#2-#3
N3 IF[#3GE#4]GOTO4
. l6 S8 W6 i: }6 S8 D! V, l#3=#3+#4
0 t( _/ t' n3 X#4=#3-#4
$ S+ n0 x& ?" f! e; e- Q; B3 X#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
0 w: P; i: G; {% y0 T; }M0

羅蓋仙

8 w8 p" Y' a5 n7 N0 f/ F( b
法二：使用変変數^^
#1=1.
9 q6 V/ r& G+ J; _3 m' M#2=4.
#3=7.
6 B2 P! t# Y3 ^& P5 ]' z2 E#4=9.
N2 #31=1.
& z" |. H$ Y- ^6 }9 t7 [#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
+ u5 U3 p! y; [( R#[#32]=#[#31]-#[#32]
7 Q+ M! l( z8 T#[#31]=#[#31]-#[#32]
; V( e- m9 R- K6 d' _3 t. tEND1
0 Q2 I& H/ B- G* Q4 k#31=3.
IF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
+ r# m& D& ]/ N* E1 m; Y; J! bIF[#1LT#2]GOTO2
' {4 N" G8 L5 K8 ?, z#31=2.
#32=3.
9 {% D7 Y' H( ^8 n% m' v& a& BIF[#2LT#3]GOTO1
/ V  p% U" b% y( m! i1 g( S' @M0
' S/ K- ?) o3 v* E- S6 A3 T( N
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶