數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
$ q) M5 @3 B, I，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
2 m% p; a- ]6 N5 k2 ^( o; k
* ?& y( V: j# ]+ Z" R8 I  [如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
2 ?& ^& y, o. h3 yIF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
#1=#1-#2
+ \- }$ v6 A) i5 ]3 g$ p#3=#3+#4
  A1 `5 ]; |! U# ]" F#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

0 l: }+ N: s5 N0 W! ]我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
: Z* m' K8 t- j# f$ m5 d/ B方法B：
9 K3 f; N3 D% d0 B+ `5 \% S! xWHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
9 W+ C! T# b9 `  K; u! L; C#1=#1-#2
#3=#3+#4
#4=#3-#4
. c  r7 x9 O) S3 r#3=#3-#4
END1
  q) |# u) Z8 ]* x: U3 b, v; P......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
4 ^; O' b2 ?& h8 r
7 ?% s2 t: e& w7 h+ O) K+ r方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
* N3 Z3 y4 e: O: `#1=5.
2 a& y! l, U7 X#2=10.
#30=1.
' }0 C# n# W2 D1 ^& _3 q*#31=#[#30+#500MOD2.]
0 Q2 U6 X, Q0 o4 V7 l4 ]/ e" kM0

* w( y5 r2 K6 `8 C" S: |0 G% |又想把它這樣寫
; q' C6 v: ^9 O7 }8 @& _*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
0 h8 x% z, [0 I0 D你的表达式中没有只是逻辑运算，
$ }. D' V7 ]% V只有逻辑判断有些系统版本不支持
3 j/ v" B5 Y. ]% m; E所以，以上语句可以运行的

羅蓋仙

8 N5 f4 t* t& W
- w" R0 V# X, P! [! S* o* f$ u+ |使用數據置換來按大小排列，大→小
# U1 M6 Z) g) V; ]$ {/ V法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
2 r  `8 }% b, r9 g6 {#1=1.
#2=4.
#3=7.
#4=9.
" ]5 _- w6 L9 P3 g- kN1WHILE[#1LT#2]DO1
8 Y" n8 A3 i# b# x+ a#1=#1+#2
. K. A& K% h3 p# ~) R8 L4 F0 ]- ~#2=#1-#2
5 }$ l; `5 j( _, ?+ C/ e#1=#1-#2
6 q* ?) j( w. W; Y  N% ^END1
N2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
8 f/ k' o3 j4 c* O7 K- D#2=#2-#3
( T7 h8 H9 H/ D( LEND2
WHILE[#3LT#4]DO3
+ F: L- R: f) t( ~* @& h3 p8 F% u#3=#3+#4
#4=#3-#4
#3=#3-#4
0 w+ u9 X) v# T. K' L6 V4 N3 `END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
/ h7 l' C5 S9 z7 sM0
  E4 ?( B; Z. z) t4 l
: ~( N' Q: {8 S& N- E% M: q
' d5 `  u& W/ K法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
#3=C.
4 B$ _/ G1 u) F' ]) Q2 [4 h#4=D.
N1 IF[#1GE#2]GOTO2
6 z1 X) g1 E2 g' @+ [# o3 r! E  ^#1=#1+#2
2 ?1 F4 v( h; H" n#2=#1-#2
1 s) G8 [8 n- M- F6 |#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
4 O0 f% e2 v7 M3 ]* I* T7 f#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
! F0 v, r; S! J$ _* S#3=#3+#4
#4=#3-#4
#3=#3-#4
, P( y  I5 C4 n0 s; p- J5 \N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
#1=1.
% c$ N; K9 ^- I' J4 x3 h#2=4.
' |! d4 {5 u6 H( W  ?5 r#3=7.
#4=9.
. i1 G7 T. L/ j8 F1 Q8 I0 @* `0 J5 CN2 #31=1.
0 G2 q6 H& R  Q6 K/ t4 y& U# q2 K#32=2.
5 C* C* g% y4 M2 ?" u! hN1WHILE[#[#31]LT#[#32]]DO1
& q8 [( H+ q3 _7 T" i( K2 J#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
; r/ ?( ?; d6 ^7 uEND1
#31=3.
8 q$ Y7 W# ~+ z" V  m, cIF[#2LT#3]]GOTO1
5 h! n0 ~2 @& f! X, U; n( h#32=4.
$ K0 Y) @  F, L; ?- n9 `3 iIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
8 a6 U8 Q) g' }) E5 e/ I8 r3 P/ Z#31=2.
$ v2 }" i6 t7 a#32=3.
, B" x; L6 ?: I$ e/ RIF[#2LT#3]GOTO1
M0

看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶