數據交換法的使用

羅蓋仙

& }( m# z' ~* K5 E& K& \* f) q7 M上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
0 ^* z2 m! @+ W  a9 g2 n$ Q，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
& o8 ~+ y. n6 D7 b8 y1 q
8 K- \% }8 L5 N; p如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
0 V7 E0 T0 n+ H# E: J" [  G使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
2 c7 W) c+ U; J( O: m0 D& ^方法A：
IF[#1GE#2]GOTO5
% E  ~. C3 r3 V- i7 F#1=#1+#2
8 c4 T& P: ]5 K#2=#1-#2
$ ?' e5 g1 _* T#1=#1-#2
#3=#3+#4
#4=#3-#4
. a: t& F8 _8 D" H# u" i#3=#3-#4
- B# C  S* _! L% UN5......此時#1的值已經置換過來了.#1的值一定比#2大

- l: C0 S6 m/ T% P2 }我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
+ K  R! Z. c1 G: n- z( A方法B：
/ U3 j( S4 i/ Z0 \WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
/ _5 [' A' u  h8 V! t6 j#1=#1-#2
#3=#3+#4
#4=#3-#4
& Q+ h) Z- J4 [  c6 {0 M( Q9 H#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

# z' s3 N8 {+ a3 u& U方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
! K1 ~7 v$ S; s% Y: ~#1=5.
; I4 f, c$ ^9 i5 v, S  W- r0 ^#2=10.
#30=1.
- P5 m6 x$ v) h*#31=#[#30+#500MOD2.]
- n* b# Q* u7 i4 A& F+ o& ^M0

又想把它這樣寫
9 y! l. e% k4 O- @2 f*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
% t9 H# {6 f9 A你的表达式中没有只是逻辑运算，
' s* M/ s5 x  J$ Y" p- f: ]! v只有逻辑判断有些系统版本不支持
/ h$ A5 X% l+ ]5 u9 ]" C所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
, D! H. N% |1 ?! C4 r#1=1.
#2=4.
- X/ g7 V* j- m( F  W#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
END1
  @# q8 d7 A% W8 E& v! KN2WHILE[#2LT#3]DO2
#2=#2+#3
7 j+ \* N# ~/ q0 }  E- c8 T1 k#3=#2-#3
, x; H0 V/ [( Z( u#2=#2-#3
END2
# a0 C1 m1 P$ B: p6 BWHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
#3=#3-#4
- p5 @, v9 {2 c. Z1 n$ uEND3
, j% J5 k& Q! k( [( F! I1 RIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
7 w1 h9 k" k. uM0
2 v4 N0 Y* E* y; U

5 u1 G' v- a& H法1-2：使用一般耳熟能詳的IF-GOTO
% F4 k- z1 U. G) k2 P#1=A.
' p: D6 _8 H" q; H. z  i#2=B.
* Y. [3 M5 Q8 b# m! {" @  ^#3=C.
( G/ A$ J9 R3 ^6 v4 [" C( B#4=D.
; W) R/ O3 n$ g2 M. V, pN1 IF[#1GE#2]GOTO2
3 x3 K2 I4 U- O. X#1=#1+#2
+ I* X2 P" r! A$ ~#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
8 [0 a+ ~+ H) q, ?#2=#2+#3
#3=#2-#3
7 E+ b- H% t' ~4 F* Q#2=#2-#3
: @6 X9 M2 n2 wN3 IF[#3GE#4]GOTO4
! W; j4 F: _8 y* q1 b#3=#3+#4
/ F% X; n: ^& B; \. V#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
. I0 L. h2 I( [, ?/ {& G7 `6 ZIF[#2LT#3]GOTO2
+ q8 H8 r0 _0 S! g- ]M0

羅蓋仙

' g  @5 M  |6 u( s4 r) K
法二：使用変変數^^
#1=1.
#2=4.
#3=7.
#4=9.
N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
+ q0 K' Y% s* U/ T! X- ?#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
1 ?4 b6 l. `/ YEND1
. i) _; [- D7 M% i; i0 h( y- \#31=3.
4 R% X0 I- p+ c* q  j3 e$ kIF[#2LT#3]]GOTO1
#32=4.
5 V/ c% M. _% I7 M% E$ f% ^IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
  y2 ], z, h! Z, Q) B#31=2.
4 B! M6 o& ]6 Q9 M$ D+ A, x#32=3.
! [, Q% \/ R! N% aIF[#2LT#3]GOTO1
M0
6 C' Y/ l9 T8 B/ `8 G" U. S
0 T# l/ H- u, P) F0 y$ O6 J. O看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶