數據交換法的使用

羅蓋仙

' K- n& A- g2 W! E+ q- k7 |/ L3 `上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
4 n2 _& T$ R% W4 R, H9 M有人說數據交換法.能用于何處???我來舉個例子
9 ~0 }$ q' O0 y+ Y
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
5 b( ~  O) H, H, t方法A：
+ C0 e0 A2 \/ e7 a5 f6 n9 D: h/ aIF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
#1=#1-#2
. c8 A+ {0 G0 C9 d#3=#3+#4
#4=#3-#4
, ^) n3 V4 O- c- {: l#3=#3-#4
0 j( J5 o* l! M" G9 QN5......此時#1的值已經置換過來了.#1的值一定比#2大

' m! s) |# ~, s( `1 L我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
5 f( S8 W' G# u& b% y! `( _- L, C#3=#3+#4
; G. f- a  g% x* V3 z1 s#4=#3-#4
#3=#3-#4
0 Z# f) p" ^3 {0 F  E# pEND1
% n% w8 b, u: O& g1 c# ~......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

9 k5 Z0 ^# l# n' F+ m1 P& }: v方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
6 c$ o9 _2 K9 W% S  `5 |#1=5.
! \: z3 M( A% b& K#2=10.
#30=1.
# [, i1 }$ \1 g1 J/ Q: A4 F" R*#31=#[#30+#500MOD2.]
M0
( v- Z" t2 @2 J, T, _+ u  w5 e
又想把它這樣寫
8 B# X: q% l) c2 n9 p*#31=#[#30+#500AND1.]
: ?& }, q5 D. C  \3 v3 BM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
- G7 {  `$ ]) K! S- q' O! ~, {只有逻辑判断有些系统版本不支持
8 [5 k* s3 _( ~& y/ l% A8 O- h9 }所以，以上语句可以运行的

羅蓋仙

0 Q7 e0 F5 j6 @, l1 t) w! F
) l  Q2 f4 \1 @; c$ w6 L8 O使用數據置換來按大小排列，大→小
( P! {) C+ i. ?6 G法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
- H- U! b( y2 Y8 P& j5 N4 }#1=1.
( l/ O: ^7 ^7 V* z# R8 E#2=4.
0 _3 ?% L1 L- _! {#3=7.
+ X( x+ I: n$ I3 |#4=9.
7 r+ z4 }  u" SN1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
. ~* a! Q7 n9 p9 n6 fEND1
N2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
#2=#2-#3
! R! z3 t' x- E$ y! D0 f! _END2
WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
( y, R( _: D: A' C) V- u#3=#3-#4
END3
IF[#1LT#2]GOTO1
  J6 r+ o) Y( \! n$ eIF[#2LT#3]GOTO2
3 `9 q4 y7 c' }M0

8 Q. ]) O5 u. l6 s6 d2 P
法1-2：使用一般耳熟能詳的IF-GOTO
; y; \% u6 Y& ]2 W#1=A.
#2=B.
3 g/ O- q% {& ~7 D#3=C.
#4=D.
0 w, K- }) J5 v) O- U2 B$ lN1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
. {( h) A/ I! w8 _9 J* v* s9 Z#2=#2+#3
#3=#2-#3
' g$ u+ \$ D. t1 ~) E- B! `#2=#2-#3
N3 IF[#3GE#4]GOTO4
/ L$ T2 D- u; g* `! \0 L& M#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

6 N, J4 U& o+ N' c! d. ?4 s法二：使用変変數^^
! l: k9 J/ a& r8 N+ u# a#1=1.
& K7 h% |1 _/ ~+ c& _#2=4.
  S+ o. D/ F% ?/ }#3=7.
& N7 A+ i+ S* P' Y: \: o( v; J#4=9.
N2 #31=1.
#32=2.
9 e  z, K& h; T: R9 m# ~% nN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
  u' u5 k4 h1 y1 B, A# Y6 Q" T#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
#31=3.
* W" @$ y' @: V9 RIF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
# {1 }% b# ]( Q8 D3 ZIF[#1LT#2]GOTO2
#31=2.
#32=3.
, y6 _2 _! w* T8 N' x  h/ XIF[#2LT#3]GOTO1
$ |# @. N( E' E, o, P$ X% hM0
2 E8 x& h% V& B! `8 c
; S2 y/ P  j  R+ o看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶