數據交換法的使用

羅蓋仙

# t$ i* D. F! p0 r, k4 O1 C8 w. k上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
1 @1 c& {9 @' O2 \+ T7 Q有人說數據交換法.能用于何處???我來舉個例子
" N& i0 E4 z- {4 P) r
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
' L5 a8 r8 S7 u/ r' ?使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
4 ^8 E, W- c0 c. ~" ^+ bIF[#1GE#2]GOTO5
& z7 I* n+ a6 z5 ~  h8 O#1=#1+#2
! ~& U# O1 e; u+ Y) w) C#2=#1-#2
% I5 N5 Y2 ]% A7 p/ D- S#1=#1-#2
" a. v3 @1 g' C7 G. }! k( C4 C#3=#3+#4
  M6 ~  }1 [# ^, i#4=#3-#4
, [4 J2 h4 A, H+ V1 \, \#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
  ~  B' S" O6 Y3 ^. x6 A% {: p#3=#3-#4
0 R( U6 g. w+ A( }6 dEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
" U7 H3 a8 o: o* ^4 N. t/ g9 Y
* W1 z- O/ w+ n方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
: i- [, x- H. [0 E3 a$ p# U  M4 ^#1=5.
#2=10.
#30=1.
' M  f! r8 Y% K( a0 `*#31=#[#30+#500MOD2.]
M0
: x: c8 r& r0 k3 {: X9 r; s
5 z# [+ S$ o# x) c又想把它這樣寫
*#31=#[#30+#500AND1.]
& _8 l/ c9 D# C+ q4 f1 w- hM0

空气中的小鱼

回复 2# 羅蓋仙
4 }; u; J9 W: e2 G% |( [' o' i你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
0 v, o: @7 u5 D& @! F所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
$ F( k8 \; A% W法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
1 V) D/ F, A2 a% G#1=1.
7 o" e9 ~" d* Q6 d#2=4.
#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
! m- f* E0 a+ ~4 [#1=#1+#2
3 m) t% j  p( ^5 X3 o#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
#2=#2+#3
$ `1 C, p* M  b. ], k. G#3=#2-#3
#2=#2-#3
5 m" C9 i7 `1 [! i3 W1 O! \0 rEND2
WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
% U' Q4 h. ~8 w6 V4 I7 f6 u: R; F#3=#3-#4
END3
IF[#1LT#2]GOTO1
! P& o3 c# ^  b. i2 {IF[#2LT#3]GOTO2
M0
' _8 o9 T, {- f% j/ r

法1-2：使用一般耳熟能詳的IF-GOTO
* y, L; k5 }* r' M8 E#1=A.
#2=B.
/ }: }# ~. e' t) v#3=C.
#4=D.
* a% K1 P* G1 m) w1 ~* R9 LN1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
9 d. S- S3 s8 Y#2=#2+#3
& k- C6 N4 q: s9 d  t" Y9 [#3=#2-#3
3 m1 i. c! y9 h* p) K8 c- @9 y#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
' p" Y, e. G6 j% V3 R7 @6 J#3=#3-#4
# U2 Q% ^$ t4 E6 K' ^N4 IF[#1LT#2]GOTO1
* G, S% s, ~1 M5 E7 l+ }9 h- FIF[#2LT#3]GOTO2
" {' R. j! T2 g3 IM0

羅蓋仙

8 J& g# y6 X4 u3 z+ `1 C
法二：使用変変數^^
: X5 q1 w! j) v2 M' N: U/ u#1=1.
* I  K( n$ \$ F#2=4.
#3=7.
! M) V5 j. ~" G4 J#4=9.
N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
/ `4 ~+ |$ m5 [3 A! N#[#31]=#[#31]-#[#32]
3 d, N0 u1 `) |! e+ {END1
: w/ u% Z, }$ U; ?#31=3.
IF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
0 w" h6 p! g. u#32=3.
. _( y- x% V! p& j: uIF[#2LT#3]GOTO1
8 s, e- M; B2 ^4 F& T6 QM0
3 `3 d3 @2 E* I' O0 y. N
% y1 |- I* i) n$ r  I% m看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶