數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
9 n! d! X% e, d7 h# b% V! n% O- e+ g，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
( v8 p; f' u9 _6 p% y- x: V, B1 a6 e使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
+ N% N" \% ^, @  ]3 Q方法A：
IF[#1GE#2]GOTO5
' Q( e6 Z- q/ {#1=#1+#2
#2=#1-#2
# ~* X) b( K. k#1=#1-#2
#3=#3+#4
/ r: v  F$ R2 R* D- r% R! @#4=#3-#4
#3=#3-#4
9 F& G  ?9 y: T" \2 ^2 d- ?( b9 f8 ]N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
' g/ Z$ h! S7 L) z1 a方法B：
WHILE[#1LT#2]DO1
9 m4 W2 @4 s  `) I3 V  D#1=#1+#2
#2=#1-#2
( H( J' y8 H8 o8 O4 I. X0 K#1=#1-#2
; j  M* M& T* R9 N' T6 B- u; _#3=#3+#4
5 Y( z$ c- E8 d( c  S#4=#3-#4
#3=#3-#4
END1
' j. j, J& D9 k......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
% n& _- ?+ k) C$ ~, z% x, G
5 T" t, Q: ^/ F+ W! h方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
: q1 r: w: k2 L& ?' H$ j#1=5.
#2=10.
7 j+ k4 M3 N6 E* i8 [0 c8 r#30=1.
*#31=#[#30+#500MOD2.]
7 O5 O0 A; _# I' |2 f' `) Q; DM0
# b; |- x7 d4 F# M
% [% T% R" X9 a又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
6 [) ]8 U# \4 d6 q, t7 U9 X# \你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
1 `! r' R+ W! z) }) D, u所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
" S4 T, Y8 C3 `法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
3 b! t$ @7 u% a$ y#1=1.
$ ~+ Y  b8 l) @! \: j#2=4.
) n2 }2 A% J) x8 J7 {4 {#3=7.
$ o' Q! G% D6 R2 R/ c9 K3 r7 p  N9 x#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
/ q: s: U% C5 @" s/ `8 O* S#2=#1-#2
( @1 Q- n' f$ Z: t) ~5 l5 h#1=#1-#2
8 R' |0 D6 P: [+ X+ gEND1
" s% S9 X- ~, e, wN2WHILE[#2LT#3]DO2
. S7 V8 d) e4 }$ f5 l#2=#2+#3
#3=#2-#3
, q4 N3 Z: l2 M. ?4 j/ e* w#2=#2-#3
END2
WHILE[#3LT#4]DO3
* }; h7 N8 ]2 w# y#3=#3+#4
#4=#3-#4
- `. C% L6 w; N' @9 _# R#3=#3-#4
END3
7 K' N/ [- K' }2 `) wIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
0 f0 i5 l+ c( v9 [; A

法1-2：使用一般耳熟能詳的IF-GOTO
4 \6 h2 u, ]5 W; I  {8 S#1=A.
' F- l% g- i+ ]' [: }" B/ H9 k3 \#2=B.
#3=C.
. d9 C& P3 l$ C0 ^( h* t/ @5 z5 S#4=D.
N1 IF[#1GE#2]GOTO2
! K0 u, Q0 @3 W7 |0 l2 `, L' R#1=#1+#2
1 \2 ]8 }5 b) y4 b& Q4 E0 ]) _/ S#2=#1-#2
2 Q$ l4 U2 T: m6 s- }#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
2 v# H  Y. z+ h% Y2 k& a! P4 J#2=#2-#3
N3 IF[#3GE#4]GOTO4
: O: v# e4 T% _9 f#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
  l. ~* }# N" q2 ~#1=1.
4 E5 Y/ z- z% g( t2 l; X: j#2=4.
# |- G: @, {8 I4 d, \/ x: ]#3=7.
#4=9.
N2 #31=1.
! U- j& s& P6 L0 A#32=2.
5 W+ |% Y$ n8 Y) o7 c+ _N1WHILE[#[#31]LT#[#32]]DO1
& {$ ?# ~* p) @# @#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
8 p: B% o9 A1 G& f#31=3.
IF[#2LT#3]]GOTO1
. P0 G  M( Q1 w2 H#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
#32=3.
IF[#2LT#3]GOTO1
M0
! U  L- R# C' c+ X
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶