數據交換法的使用

羅蓋仙

- y* ^4 I. ^; O3 F) U1 r$ l8 D# H
: ^/ K+ f- P) w; N上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

$ O3 \9 u0 }1 Z如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
8 v1 ^) R9 Z1 S% X  L  G9 t使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
% a, C' V* x3 T; CIF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
4 S" k+ e2 L) Z3 z# j8 P  @#4=#3-#4
#3=#3-#4
+ {; m7 H5 s* |1 L( z2 T& j5 dN5......此時#1的值已經置換過來了.#1的值一定比#2大

$ B% _- j1 X: i. H! W  \$ d& i. K我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
% {) s7 m$ B8 T0 |* u方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
1 W& k1 c! t+ ]! m2 u#2=#1-#2
1 f& _. r! `' N: |2 p#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
* N6 A7 e4 ~, p" }" E8 lEND1
$ z1 m2 M# n6 O2 K( N4 d: r......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
% Z+ y1 z' W# g5 w
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
$ b. z9 B8 `, |#1=5.
/ }% T( H4 N* H4 R( S#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
M0
) F, ?+ Z0 Y' Q
/ r, \1 h0 ]* \+ p又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
% O5 l4 ?4 l6 U; U/ x你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
( b9 p( R3 y% w$ n所以，以上语句可以运行的

羅蓋仙

* W8 \: Z/ e" k% i" v$ l& u8 W7 q
% _1 K' a! I- Y# D# h+ f6 T使用數據置換來按大小排列，大→小
  n( o& M1 y& F) ]- }' Z法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
  Y7 ]8 y( |6 Y5 R4 f6 v#2=4.
  _+ c3 n% g7 N. g( [2 E3 a#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
- T  x; h3 A# J* ^#1=#1+#2
- B9 H" ^) u0 c( b2 {! f#2=#1-#2
; L6 D5 U( n" z- @& H6 S5 u#1=#1-#2
+ B% P6 i) c# |: lEND1
N2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
! \  H0 q5 T8 d9 i0 {#2=#2-#3
7 {& l; R& b: f+ q; L* ^. _8 P7 u" yEND2
WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
#3=#3-#4
END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
0 i* W8 R6 Y' }7 H0 o
9 @# b, d# k( s% W& J
法1-2：使用一般耳熟能詳的IF-GOTO
+ Z2 \+ C8 v# L#1=A.
% b2 u- d2 v* B( T+ F#2=B.
#3=C.
- U/ \  I! ^' k#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
1 b$ H/ u& s+ q. G4 l- m1 I#2=#1-#2
0 C* m. o# V: L4 n#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
1 J" I3 B( j& l: E#2=#2-#3
N3 IF[#3GE#4]GOTO4
" b, t' t* r' O2 S. M3 \# Z#3=#3+#4
! H* c- h3 M! F' B#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
( L" D( l; `) D) AIF[#2LT#3]GOTO2
M0

羅蓋仙

" c% A( H* D1 }  Q! A0 s: L
法二：使用変変數^^
#1=1.
#2=4.
#3=7.
#4=9.
( C' R8 x6 a+ Q" iN2 #31=1.
  y/ C: Y! Q  q3 e1 S9 }#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
" g( q9 p! ~: {; v9 E- T' z#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
5 F# Z: W/ b# @. X3 w. j#[#31]=#[#31]-#[#32]
' o+ O0 {8 S: c% f# @END1
#31=3.
IF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
#32=3.
IF[#2LT#3]GOTO1
, V. M8 }7 D" h. k2 JM0
3 p1 X# z2 g9 I; B/ J/ G- `6 W0 p3 }& s
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶