數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
5 F, @5 P; A# \0 i$ J  f+ _，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

0 V% X3 Q9 p3 M# u0 g如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
2 i' u, Q9 U0 o) t! F方法A：
8 d% o( N; W7 }( ^3 AIF[#1GE#2]GOTO5
#1=#1+#2
4 S" ~4 F& i3 d& ?$ a( f#2=#1-#2
5 o. B6 ~! J4 G4 Z#1=#1-#2
+ O; u" a9 X  X! [, r#3=#3+#4
#4=#3-#4
+ z3 h6 |% r, }% O2 n  F#3=#3-#4
7 i) c  g. ~4 B, \, a3 bN5......此時#1的值已經置換過來了.#1的值一定比#2大

# ?! v7 z2 M; f9 A" V$ [' V) Q& i我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
& Z4 G2 A; S, X7 ~2 C#1=#1+#2
, w$ q! x0 t. e% e' |) T#2=#1-#2
* f/ Y3 L9 I2 Z$ v6 ~#1=#1-#2
0 q4 m# X& b+ T  |5 u  b#3=#3+#4
#4=#3-#4
#3=#3-#4
END1
( I3 C6 h! V( T......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
" x, f6 a" R" `  K4 ^6 e+ m. J
% h4 d: A* d' b8 a  r0 d. O方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
6 F0 U/ X7 f/ ^: C8 ]" D#1=5.
2 H8 }4 X; z# N/ R3 w: q#2=10.
#30=1.
! a$ P# p. |1 t, s  E  U*#31=#[#30+#500MOD2.]
M0

又想把它這樣寫
*#31=#[#30+#500AND1.]
! t. ^- _$ k% k* R  \& WM0

空气中的小鱼

回复 2# 羅蓋仙
  I' h% C  P$ t) x3 H你的表达式中没有只是逻辑运算，
* E% M0 A8 L$ S: a$ X8 s3 O( e' w只有逻辑判断有些系统版本不支持
9 d% y- v' k0 L0 J/ g5 q所以，以上语句可以运行的

羅蓋仙

% L: e% N+ D( p# C, H# L
- G9 p: w2 T% i2 U( ]# N. I使用數據置換來按大小排列，大→小
/ A; T6 U3 h/ _4 e( t; E8 P: B* V: {法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
/ Q, _2 h  ~5 s( ]- ?+ v#1=1.
, X) l  F9 P! h- H#2=4.
#3=7.
' j8 B' v9 E" P, l7 e. b#4=9.
& M1 G2 g) G) y+ fN1WHILE[#1LT#2]DO1
8 m/ i! S! }' N, x#1=#1+#2
) ]6 x5 U, N2 Z! Z: ^#2=#1-#2
#1=#1-#2
END1
. h  m6 e/ C5 p# c& {N2WHILE[#2LT#3]DO2
: d+ u" j" M% j8 V$ F#2=#2+#3
#3=#2-#3
#2=#2-#3
END2
WHILE[#3LT#4]DO3
#3=#3+#4
4 k+ A+ M2 N" j& r#4=#3-#4
# g+ H9 A3 J5 Q+ {2 s#3=#3-#4
% ?8 a7 v8 {/ Q7 A) AEND3
  W& j3 }8 X. W3 b4 `. _IF[#1LT#2]GOTO1
1 d' N- t) A% ~3 |IF[#2LT#3]GOTO2
5 S$ N) D! _6 SM0

4 a. h" x2 f4 x/ o5 v
1 `: \2 ~! n9 O1 I! r/ T' _, t法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
  f! Z6 C& V0 n; O8 E0 c1 w) Q#3=C.
3 Y! K3 b2 `4 h3 g' N3 N# P. s; c2 e#4=D.
N1 IF[#1GE#2]GOTO2
4 d8 Z9 G+ i, `3 l#1=#1+#2
#2=#1-#2
; E8 p: g4 o: X#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
, ~" n( M2 ^7 }5 @  D) |#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
) w# N& f; Y1 v% k4 X2 ^#3=#3+#4
#4=#3-#4
#3=#3-#4
, J$ r- z- m/ V# E! `N4 IF[#1LT#2]GOTO1
& n& h9 C& ~) ]% B& q4 WIF[#2LT#3]GOTO2
: s* o" q' q$ q: V/ lM0

羅蓋仙

法二：使用変変數^^
, F/ ]$ R+ M7 G#1=1.
/ W  _! g4 N9 Z6 B( z: t9 @#2=4.
& B1 I$ _% K$ j/ l1 l' P  q- H#3=7.
  ?8 d3 @0 Q6 D  G' o; q  k! e" t2 Q#4=9.
# z$ X3 E, b6 I9 C( J  ]/ ?: k; oN2 #31=1.
1 p  |$ F4 i# y) h- \5 K#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
( V/ U! t" U8 H4 x8 g/ O; ?9 s6 e#[#31]=#[#31]-#[#32]
; V% A+ y% x$ y2 y, e$ YEND1
& }  e' j. p* D: }1 J  q  b#31=3.
) y) [% `6 P+ i* n( {IF[#2LT#3]]GOTO1
* i' s& N% o4 y7 m, S4 V#32=4.
: Z9 R$ |  ?' m+ I" G- {& X: {IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
# _9 @+ v7 r, q9 d* i#32=3.
IF[#2LT#3]GOTO1
* g1 S8 R% s' Z* N2 tM0

看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶