數據交換法的使用

羅蓋仙

  @& _6 `: j+ B" L6 i$ W" l. H
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
! q" ]+ e5 [. c* h  X( |% ~，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
. _- u( s* f$ d0 H; ]- N' I使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
+ G& R: p# Q, ~/ W5 ~: q" \IF[#1GE#2]GOTO5
#1=#1+#2
- x/ M+ T7 ^4 {#2=#1-#2
) S6 H- @. v- T, Z#1=#1-#2
2 e" B! H0 K9 @& u2 K* \( p#3=#3+#4
* q  ~, C% g0 i. C+ ]% Q) C" Z#4=#3-#4
4 Y3 q0 ]6 l  z9 F8 K, k#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
' |# G8 M: r7 B9 l/ u& j
% a! R. W2 Z* T7 d- c8 J0 X我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
3 G- k; V0 F- d7 nWHILE[#1LT#2]DO1
# W1 k0 `/ [/ C0 \. E" _#1=#1+#2
#2=#1-#2
8 [+ g) ^! B% b) \% g#1=#1-#2
#3=#3+#4
4 t4 \* k4 R2 n; j) B# Z#4=#3-#4
#3=#3-#4
- }  O- s6 O5 D/ _; d0 b, SEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
* @! W* Y' d* p; G' b0 [3 q#1=5.
! p, z2 D6 q: n! X) I/ l#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
M0
5 i2 W  d  W  N3 t$ N9 g+ M1 w
- w" Q: G  I( |$ l' \又想把它這樣寫
/ N' @, x8 Q* k; }*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
: P9 ^" ~3 A* a3 R3 |9 p- i+ @你的表达式中没有只是逻辑运算，
; p; {3 c( E3 r% c  K* M; w: _只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

7 P7 F, B' T& E$ G! h9 R
" V% }: d2 v5 J' \2 o使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
#3=7.
' K: \4 m4 N5 k5 G* s1 r#4=9.
N1WHILE[#1LT#2]DO1
) s$ n/ _& X! n5 O#1=#1+#2
#2=#1-#2
#1=#1-#2
9 c8 C/ r! i- h. a6 }3 }( r4 t5 LEND1
N2WHILE[#2LT#3]DO2
) C7 D- R2 ?2 F! H0 D/ {#2=#2+#3
9 i2 E) H$ z# W* O#3=#2-#3
#2=#2-#3
1 q0 r$ ~) q8 H) S1 @END2
7 Y% ]7 A+ l2 [- C. A, gWHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
4 _, k: h1 v& K- }; B2 b' P' _#3=#3-#4
# l1 I: c5 K$ ~6 H6 qEND3
IF[#1LT#2]GOTO1
. J4 S2 M$ I, e9 b! z! d" S6 f0 m$ hIF[#2LT#3]GOTO2
3 x5 x% v( h0 V" SM0
7 C# p# \3 F4 o0 u: N

法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
! R, B3 J! ?# r6 {  q$ `#3=C.
#4=D.
9 o5 h7 [" L  Q1 _1 [2 p  J% CN1 IF[#1GE#2]GOTO2
#1=#1+#2
% Z: A* N) J1 S  q#2=#1-#2
% a# M" d, l3 ^. B+ p5 ?#1=#1-#2
* T( R% b: i' T% W, i5 ^2 l: EN2 IF[#2GE#3]GOTO3
2 @9 G! @' A; E' K2 W: v#2=#2+#3
1 U0 l$ n9 c9 j" |; T' ~#3=#2-#3
0 [# p5 M6 q) s9 t#2=#2-#3
3 B' [. O8 {- R3 j( m$ ~5 eN3 IF[#3GE#4]GOTO4
1 t" C: y0 [7 t) p1 h1 |; H! v#3=#3+#4
#4=#3-#4
3 E" q! x1 {% X1 F" T#3=#3-#4
7 r3 _' d0 t: [N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
! D5 E( W0 o( t2 [7 c  ~M0

羅蓋仙

) ?# A/ s6 F* W
法二：使用変変數^^
#1=1.
#2=4.
! c- n* A8 X) Q: ]+ w/ H#3=7.
#4=9.
6 U% v, b. }6 |N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
' [, U" e' M. N1 U# R#31=3.
IF[#2LT#3]]GOTO1
#32=4.
9 t) S4 ~# F& R& \IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
#32=3.
+ X8 v4 D  r0 w' ^9 kIF[#2LT#3]GOTO1
M0

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

longmeier

好帖子顶