數據交換法的使用

羅蓋仙

' l( [; L8 ]$ `; B
9 R  E$ f& N/ O- I( R上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
1 o2 G' K/ N1 \" P  u6 q有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
3 v9 w$ R' H8 ~, C使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
- l/ H, `, R# f+ K/ KIF[#1GE#2]GOTO5
; o5 A  B3 T* d' G0 q$ a# M% ~#1=#1+#2
; i( t2 T+ m, d. }* H  B#2=#1-#2
1 R2 e0 ]! f! o. w% Z% Q#1=#1-#2
#3=#3+#4
' P& V( q9 ~9 \#4=#3-#4
: o% ], }! _3 C; k5 p  n. \7 V: K#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
6 j8 D, E' `. A. h  i; K8 t2 ?方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
4 Q  G; K, x. ?#1=#1-#2
9 [- q1 `4 ^5 S1 L#3=#3+#4
; s; U' a9 N+ n: M#4=#3-#4
#3=#3-#4
) S, |# S& P! h6 `* e9 SEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
6 t' f% ^  W7 `" F$ j1 D7 ]
, u5 K6 X! k3 L2 g* j1 Y& g; ~# x/ O方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
M0

5 `0 V- c3 d% Z( J又想把它這樣寫
4 p+ ^* x1 ?$ k. ?0 X5 n" Y, F*#31=#[#30+#500AND1.]
3 \9 E8 p5 A& f/ _M0

空气中的小鱼

回复 2# 羅蓋仙
8 v0 N% r4 w1 j你的表达式中没有只是逻辑运算，
$ _8 v" R: m3 X8 P0 V; n: z. t只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

& V- H/ n/ `& ~$ y/ C
9 i  a: m7 r1 ]8 `/ I' k使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
) M5 Z: F' }& F& A6 W9 H7 w#1=1.
  a. C* p/ D+ p$ u5 i& ~5 t#2=4.
6 O0 \+ n. s+ [% w#3=7.
#4=9.
7 M) ?, z: }  V4 l& ^2 B4 c. z* rN1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
( j1 z, h; Z: B/ }& ^: d8 lEND1
7 H8 B* a, ^5 ~N2WHILE[#2LT#3]DO2
0 E8 u8 Q- Z9 s' w& R#2=#2+#3
#3=#2-#3
#2=#2-#3
END2
WHILE[#3LT#4]DO3
2 m3 K0 b; J4 }0 O, _. ]  t( G#3=#3+#4
- \+ O, j! _% }: V0 W6 H- ^/ Q#4=#3-#4
#3=#3-#4
5 N* m0 R: U  p8 ~  fEND3
. U. ?( a7 V$ |) VIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0


! Z" {0 y2 K. k) x7 Q' S" \! q# I1 N法1-2：使用一般耳熟能詳的IF-GOTO
; S% v, D2 S8 r7 ]; c#1=A.
#2=B.
#3=C.
#4=D.
7 ~. [8 n- l$ Q. AN1 IF[#1GE#2]GOTO2
6 B; ]" m: _0 ^2 Q2 Q#1=#1+#2
+ _) ~6 H( {/ x+ m* R) o#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
  W- @7 ]# K, x) D) I#3=#2-#3
, |* F/ f. H. b  s#2=#2-#3
! p% w7 i6 `+ B0 G, x+ s# oN3 IF[#3GE#4]GOTO4
#3=#3+#4
" E2 ?  R' i" Y, O" b/ O#4=#3-#4
#3=#3-#4
& j& \. i2 T( SN4 IF[#1LT#2]GOTO1
$ x1 A" h: R: E$ zIF[#2LT#3]GOTO2
! U* A" |- w/ T& C1 KM0

羅蓋仙

3 Y  `! v( c6 E- }
法二：使用変変數^^
#1=1.
#2=4.
#3=7.
# b  c% J* l1 z/ }. ]4 O% Y#4=9.
N2 #31=1.
( H9 C( x0 l0 L8 J5 Q0 D! c: J#32=2.
* `6 f# O* M, d1 rN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
" s: N5 s' f  `1 v% r2 M#[#31]=#[#31]-#[#32]
END1
  @4 o7 ], D  X2 ]% M: s1 e& F#31=3.
( i4 A7 y0 I3 C( BIF[#2LT#3]]GOTO1
#32=4.
/ X" [" O& H; ^  gIF[#3LT#4]OTO1
& W( g) ]# x# F8 hIF[#1LT#2]GOTO2
#31=2.
#32=3.
IF[#2LT#3]GOTO1
) _5 z+ _' e8 m& ZM0
" q7 e# ^! P( b
! m, X4 C  }5 }: R. S! P看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶