數據交換法的使用

羅蓋仙

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

2 g) F5 n4 G; {, h如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
5 A- x. f8 s% T& s. i. e使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
* z3 J* a* T' S; @! l' l方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
#1=#1-#2
" r  @$ K& g) b  @5 P#3=#3+#4
. {* Z' }$ v+ e9 k0 L0 Y8 F0 B9 _#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

) D" s5 F2 q/ U9 K2 R我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
5 p4 s0 V5 c% i5 s- rWHILE[#1LT#2]DO1
( {' d. Z8 _4 G& p- L  y#1=#1+#2
#2=#1-#2
- i; l1 r7 U: t. t$ l8 }#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
END1
; s3 i# m. d$ n9 r......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

% L7 D  G4 R+ ~) b/ X方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
% V: k3 d% ^* v) c/ t8 G0 x/ t# J#1=5.
#2=10.
#30=1.
: E( v0 C- v& q' U$ q! s*#31=#[#30+#500MOD2.]
+ b, I8 q3 C7 K, P! b% hM0
7 o( Q3 z4 R. g) i1 w5 z" O' B
又想把它這樣寫
; H: ^& {& f/ `1 y*#31=#[#30+#500AND1.]
0 O& ~" x7 v& Q4 t4 x, d2 bM0

空气中的小鱼

回复 2# 羅蓋仙
+ x& R4 H) ~' Y5 h你的表达式中没有只是逻辑运算，
- @1 e1 K3 m% j+ O) e3 c0 c只有逻辑判断有些系统版本不支持
) s7 z& u! [& f所以，以上语句可以运行的

羅蓋仙

, t1 Z8 D4 N% {$ G7 u# ~% h
+ S0 B+ @4 u: ?; m使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
7 r, U: G( @. Y* G#1=1.
#2=4.
#3=7.
/ ?9 M1 F3 D- g. M/ A#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
8 l, n% ]' ]7 y$ t* v#1=#1-#2
8 L* `% M4 I4 w' y6 @END1
N2WHILE[#2LT#3]DO2
#2=#2+#3
5 a9 S" t6 ?  b/ O8 w, P#3=#2-#3
#2=#2-#3
END2
WHILE[#3LT#4]DO3
#3=#3+#4
. R/ ~( @/ i7 [7 O#4=#3-#4
% s9 S3 A4 F2 m% x, @#3=#3-#4
END3
IF[#1LT#2]GOTO1
5 r0 H3 k2 `1 B' U# X" U! HIF[#2LT#3]GOTO2
M0
. g. _5 ?& \9 B% S- |; F$ |

: |( W* c$ {' q- }  ]9 T, p法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
2 [( U* f+ G( F' K1 w& f: M2 T2 y#1=#1+#2
2 V9 ^9 c) o# \5 {; ^. s% E#2=#1-#2
#1=#1-#2
% _5 C- }5 t5 k2 Y1 D% w" w! G' _N2 IF[#2GE#3]GOTO3
$ B; o. G2 l+ b* M& q' L7 {#2=#2+#3
#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
- y" c, P8 n$ e, R- R" F#3=#3+#4
#4=#3-#4
#3=#3-#4
& U0 p2 Q" y. Y+ L7 E7 }N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
4 a4 o& h) v; ]$ o! w# O8 QM0

羅蓋仙

4 B- H) \+ }' S+ x: r; ]9 j4 r# U法二：使用変変數^^
#1=1.
2 j/ u/ V$ N  `; m: o% r2 S! l#2=4.
#3=7.
9 ]: j/ a( {2 f1 E#4=9.
N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
- g, C/ F( r& f# \1 J#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
#31=3.
IF[#2LT#3]]GOTO1
2 U! h& c6 V# W9 ~/ @#32=4.
7 b6 N( ?  U, hIF[#3LT#4]OTO1
1 H" m7 g% A  Z3 xIF[#1LT#2]GOTO2
% }! f/ P" K- {3 |#31=2.
; S2 t$ ]  Q+ W; S: p9 ]( z#32=3.
IF[#2LT#3]GOTO1
M0
2 M  _2 q9 n7 ]% R* G' S0 {& ?: m
! M2 V: t  Y9 }' ~! M看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶