數據交換法的使用

羅蓋仙

" ]% G5 b. \% {5 o. C% ?' S
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
0 o, L% V2 T9 h6 ~. Q; G5 p，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
: q9 m( T) F! {2 l0 N方法A：
9 A" q+ \9 K9 p  aIF[#1GE#2]GOTO5
#1=#1+#2
' h% x0 t! T, c; m$ J#2=#1-#2
/ H- ]7 O& b) B1 S% J#1=#1-#2
0 q  D& Q6 ^- h  k" W  }#3=#3+#4
#4=#3-#4
#3=#3-#4
7 d  A/ i, Z: |& q* a) E8 u4 @7 p* \N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
/ f& \0 m7 E: ~1 r7 `6 Y方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
# w( A: z5 z, }+ d0 x  f' ]; e% u#3=#3+#4
#4=#3-#4
4 w% F2 [3 K5 T. Z0 u% p9 a#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
8 V* h/ U( {; x- f6 U#1=5.
#2=10.
/ ]& s' g9 ?# a" d#30=1.
*#31=#[#30+#500MOD2.]
: U$ i2 x2 u* s2 [0 L) B8 B* EM0
7 S' [. `) A+ N6 ]/ X
又想把它這樣寫
: s$ J  j& s: h% s% P" h  ?0 m7 K*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
# o% }" I, X. o& F) u#1=1.
#2=4.
#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
: K9 M* X1 x* W- L& D3 n7 M#1=#1-#2
7 I. r5 u1 x( uEND1
  S8 `. f  T* W+ k7 @* e/ eN2WHILE[#2LT#3]DO2
; X4 [* F0 y% d; k! E- [* M* q#2=#2+#3
#3=#2-#3
7 O4 X$ Y7 L) ?8 W6 F$ `, ^#2=#2-#3
( H! E/ C( R: m/ ?8 f+ [END2
WHILE[#3LT#4]DO3
& w8 _) C& X- Z#3=#3+#4
#4=#3-#4
, V9 }, c! V4 g! c7 K#3=#3-#4
* Q9 j8 r4 S$ S- Q# y) o  REND3
IF[#1LT#2]GOTO1
$ g6 Y9 |5 d8 P% NIF[#2LT#3]GOTO2
* _2 P5 v& Z1 J& b( CM0


! {8 W3 l4 R5 `% t7 k法1-2：使用一般耳熟能詳的IF-GOTO
0 A' m3 {* b. w# H3 G4 ?  b! l1 t#1=A.
' d. G$ X2 c0 F% s, N8 e#2=B.
#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
; L: Y- `% M/ Q#2=#1-#2
: f- @" \# @3 ^& b5 T+ f9 H#1=#1-#2
N2 IF[#2GE#3]GOTO3
) n( O# A+ {) Z#2=#2+#3
3 O: K' T% q' T+ z7 `( U#3=#2-#3
6 m# G' l8 l- v#2=#2-#3
N3 IF[#3GE#4]GOTO4
7 g, I1 B; o$ r/ `* f+ u#3=#3+#4
; y8 m3 q9 H4 X#4=#3-#4
( r: Q- w: ^; I- n#3=#3-#4
. o& _: H' B; V8 \5 L$ h3 V1 Y- ON4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

1 s  i! N$ p6 a3 J, N, o
法二：使用変変數^^
2 A# o6 h5 E2 [  H5 s7 r" z5 m#1=1.
#2=4.
#3=7.
5 a9 v5 |! v0 e#4=9.
* \; s4 N& y7 G, u" YN2 #31=1.
& k  N2 P, ~- F# W! L  O# E#32=2.
; m6 v: }- t6 U% ZN1WHILE[#[#31]LT#[#32]]DO1
( o+ u( a  v; _: F/ v. Q2 C; n9 f5 B#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
" `1 @; m6 a# j* R4 v#31=3.
+ O/ P( J' q$ a0 uIF[#2LT#3]]GOTO1
#32=4.
  n; ~! L# i! F- U/ v+ _9 Q7 qIF[#3LT#4]OTO1
7 Q) e8 k3 `* n; F- qIF[#1LT#2]GOTO2
#31=2.
4 W  d$ }( l; x/ ~#32=3.
IF[#2LT#3]GOTO1
6 g- Q. n! T( V- p! l4 R7 cM0
3 V' c. p5 A& Y" n
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶