數據交換法的使用

羅蓋仙

7 ]4 n4 b/ I. @. X4 x
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
) V: X( a1 ]. O: S" m有人說數據交換法.能用于何處???我來舉個例子

& x+ [& u8 d9 C! F$ T% C, S如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
% w" P0 n! ~% O; s) t使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
; K% k0 c# b8 ~7 j+ K方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
9 s5 m( ?/ y0 P5 F$ a, ^#2=#1-#2
#1=#1-#2
* B& {0 @/ W. q: ?( _; |; c#3=#3+#4
#4=#3-#4
2 P) G2 z1 D0 z9 f7 O: i. O#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
6 T! D# r$ e' ?- r
' J+ m9 E& {, f: `, Z我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
* h: m9 ~; Q  n" PWHILE[#1LT#2]DO1
/ J- N! ^6 M' X. v#1=#1+#2
( ]# R& h! S( f4 z  x/ w# g#2=#1-#2
. Z9 R1 M' X- }: N1 r5 m) p#1=#1-#2
#3=#3+#4
% v* l+ M, V' v) Y; B9 f#4=#3-#4
" x4 D5 e9 Y( q- X9 x#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
( x$ u, J" A, j- T; s# Y1 t  X( ?' [
- S, ?( G# Q% C, n9 B' e方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
" n5 m9 o6 b0 Z7 ^1 k& l/ `#2=10.
' R1 L5 n* D3 y#30=1.
% ?; ]: Z/ D* G3 k9 ~" T1 C  A) B*#31=#[#30+#500MOD2.]
+ q' M/ B! M' E  ~# AM0
" U/ ?* m0 |) P6 D+ H
又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
3 y, X. [* R9 u" `6 c3 _' Y你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
/ j4 A) J8 m9 s: Z4 _所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
( H0 e4 ~9 C0 g4 b. d$ U( e法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
- Z1 i2 w+ s6 x#3=7.
#4=9.
6 u2 z; O- r1 l% H: iN1WHILE[#1LT#2]DO1
#1=#1+#2
" w' f" u& U& B4 m1 V1 v  |#2=#1-#2
0 H" T4 i7 h7 `5 U$ f- M# w: V#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
5 \4 z3 T: l6 H7 U3 Q#2=#2+#3
#3=#2-#3
& Q3 r- O, A/ ]9 \7 F, S7 M#2=#2-#3
+ J' e8 x+ ]) ?4 JEND2
WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
#3=#3-#4
9 m: R  V$ w0 c3 S+ ]END3
IF[#1LT#2]GOTO1
9 ~! U$ `( r7 m% t# e6 w7 O! _IF[#2LT#3]GOTO2
$ J+ w: [) G6 I( c& m' n# jM0
2 h2 I) Q0 p. C# Y$ E# |* ?
/ w8 b& Z0 s0 {' W
' u8 G1 I. C  _7 v, H法1-2：使用一般耳熟能詳的IF-GOTO
- x2 P; d4 [- z; P% `#1=A.
3 n0 h  q" E" p5 s# D#2=B.
# b. K2 x5 G$ I) M% L#3=C.
  L/ U8 W7 ^0 g! b4 L3 C) ?1 \#4=D.
: J' y7 ^( m. J( A3 |* [N1 IF[#1GE#2]GOTO2
5 y5 h! b% g" e9 l8 a6 c#1=#1+#2
9 ?6 B5 @: e4 i3 |9 |# B#2=#1-#2
#1=#1-#2
* \: u5 }0 Y" n# ?- \N2 IF[#2GE#3]GOTO3
% R3 H  O3 @0 P& |( g  Z9 @#2=#2+#3
. [( n/ ^! Z1 i1 v" s+ T; q#3=#2-#3
* X( j# D7 }+ Q& V8 K% z#2=#2-#3
N3 IF[#3GE#4]GOTO4
+ h: K% u1 d8 u( k6 Z) V# q* Q#3=#3+#4
#4=#3-#4
, c& H4 X3 I* Y& c, l#3=#3-#4
N4 IF[#1LT#2]GOTO1
' K$ t2 g8 P1 uIF[#2LT#3]GOTO2
M0

羅蓋仙

  E0 U% {( o5 j( O$ G! v法二：使用変変數^^
) ~. e0 [% {8 Z1 h; ?#1=1.
) ]. m$ \! z$ D: V8 Y#2=4.
#3=7.
( |& _$ g) e7 x% U% r# l#4=9.
N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
* L2 U1 P1 s+ d* E! |( J2 g/ p! }#[#31]=#[#31]-#[#32]
5 C; j% c+ f$ }# ]2 EEND1
#31=3.
IF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
#32=3.
IF[#2LT#3]GOTO1
. p" g2 S- a0 ?4 y! D3 EM0

& K* k1 Y( n3 d7 r7 |看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶