數據交換法的使用

羅蓋仙

$ v  Z6 u' Z& M1 G1 i( t  \4 ^8 q上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
0 j5 V, ?$ e8 B$ z  N
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
- \2 a0 Q  o1 L4 Y. N- `! U. ^使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
. F" d# {# X4 k7 Z0 ^; Z- T( o* fIF[#1GE#2]GOTO5
5 P4 L2 F/ X3 R8 S  p# O. @* \#1=#1+#2
8 u% f4 C$ e/ y' ~0 D2 W6 E; ~#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
/ ?' O, |' `  h8 f+ y: d8 Q1 g
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
' \0 m7 X& M) y/ `方法B：
! {6 N0 H! q/ [1 C# kWHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
& l- M& L+ I+ F9 z5 {, O
* a# x6 d' B9 n6 _2 t$ Y方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
9 G6 a: D% R) K: V& `0 u2 W3 Y1 |#1=5.
#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
$ g* H# z7 W! YM0
4 A; D3 T5 ~. V
又想把它這樣寫
" z  K( ]/ R, }9 `2 ~* C+ Y*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
- Q4 E' E: h0 h+ z' ~0 z所以，以上语句可以运行的

羅蓋仙

. ]. f, f/ A# T! S8 N
& i: n8 p& N" T# b4 ?+ ^+ i7 P1 ?' \使用數據置換來按大小排列，大→小
6 D/ D0 Y9 |, k8 Q  ~法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
. Y. W5 G2 z4 P5 U6 e#3=7.
3 X1 E7 D* U) y#4=9.
' E. ~8 {5 u/ e9 jN1WHILE[#1LT#2]DO1
/ _3 g/ X; p# {" f: M#1=#1+#2
#2=#1-#2
. U2 u& K9 _* F4 g1 ^) i. X; E#1=#1-#2
( _, v, w% K" VEND1
N2WHILE[#2LT#3]DO2
0 O, w$ B  K) F3 P+ {( Y2 ]5 s' b#2=#2+#3
$ j9 P1 k' W; \1 x) w; i#3=#2-#3
+ P( a3 A* V7 i& }, I6 [- P1 \+ z0 s8 z#2=#2-#3
" O; ~. v; B  X% B5 M. eEND2
7 N% W8 V( [0 o; f7 W( Q  A# DWHILE[#3LT#4]DO3
. E2 T# o* O/ N#3=#3+#4
6 W5 X# H) o3 H0 z#4=#3-#4
#3=#3-#4
5 ?4 {+ b- K& I; E! u# n' {  {END3
4 A4 V1 p5 t3 P* K6 R1 T+ I$ Q4 JIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
8 o# W3 W2 Y$ e9 u) i+ iM0


法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
#3=C.
$ Z( B  \2 J# ^6 C: i& h! ]#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
#1=#1-#2
* y: E% @& v7 f8 m' l/ L9 [+ bN2 IF[#2GE#3]GOTO3
5 x9 p" T6 w  L5 X#2=#2+#3
#3=#2-#3
0 n. p0 i* F# H  D+ w! G#2=#2-#3
9 h* V! `: B1 X' m2 M$ qN3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

1 V) x! }. ]+ B$ K& m7 I
法二：使用変変數^^
: _: l  ^2 s' x2 U7 A* A. D#1=1.
6 S& u9 F5 ?9 ^/ s( `5 Z#2=4.
1 R8 I% S/ x: z  R% [#3=7.
#4=9.
1 C6 I, e1 x2 D/ Z$ rN2 #31=1.
' r( l" d/ p# ]  A  h+ `#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
% q$ P- o" |  {1 w) A. C! l! ~#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
6 Q+ A. V4 |4 I  {#31=3.
+ \2 S" P$ o! Y+ U) Q& C- CIF[#2LT#3]]GOTO1
# r, U  z/ @# y  \8 O3 r#32=4.
* ^$ G$ v4 f. w1 x3 z# uIF[#3LT#4]OTO1
, a7 V* z4 I7 `7 M! W& x1 a7 `1 aIF[#1LT#2]GOTO2
#31=2.
#32=3.
IF[#2LT#3]GOTO1
M0

2 V: K3 e( p6 V% |# ?3 C2 l看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶