數據交換法的使用

羅蓋仙

. C! Z" ]& ?. U
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
5 Q' S; x6 O$ S2 o7 S9 S有人說數據交換法.能用于何處???我來舉個例子
( c/ s6 g' k0 i; k, W* P
& g% G$ e( m, n# F7 r! _% W* F如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
6 O8 r# i3 C8 w  v, s" e8 M. A使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
#1=#1-#2
4 Y+ ~) `$ T- X0 f! Z#3=#3+#4
$ i: E5 N3 M" K6 c#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

* C- ~# g0 w2 n% y我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
1 S+ `( ?; o3 y' A  ~( ]9 |#2=#1-#2
#1=#1-#2
#3=#3+#4
6 V1 f9 K+ Z+ e9 V- d3 Z#4=#3-#4
6 C( K1 [* C8 o4 |( j5 G#3=#3-#4
- t! D  O4 H7 U/ z# O$ Q! ZEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
9 J, a; e) b4 h" W. N" t, Q6 ?5 u' v
5 m1 ~' N6 w. L. e: l方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
% l# b1 \% Y9 F: _' T* B. H#1=5.
* Y5 E/ Z+ h: w* l#2=10.
* N9 k, v' z4 C7 q#30=1.
*#31=#[#30+#500MOD2.]
! B( W$ V" F. B7 i0 ~% \4 cM0

又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

1 g9 [" H0 S; K7 ^" e5 H使用數據置換來按大小排列，大→小
! I8 h5 A! W% M  I法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
' E/ d  I, j; i#1=1.
#2=4.
#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
. q# I* x6 ^8 t# h7 s( |0 r( i. [#1=#1+#2
#2=#1-#2
$ B7 L# f, m2 x8 `' ^#1=#1-#2
END1
' j' o! `* f, P+ r/ Z* C0 vN2WHILE[#2LT#3]DO2
2 [7 z. B0 Y- s1 P. u7 R8 C$ y2 r#2=#2+#3
# g1 {4 t7 C: O6 r: P#3=#2-#3
#2=#2-#3
END2
WHILE[#3LT#4]DO3
+ b2 j3 ^1 U: y6 p$ D! b#3=#3+#4
) }" W# d9 q7 X; F#4=#3-#4
#3=#3-#4
END3
) `* M  s* V3 [, Z3 Q/ Q, {, _IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

6 c0 h5 F. k% \; L0 E$ L8 Y8 b
, i) @. Q8 [$ h法1-2：使用一般耳熟能詳的IF-GOTO
4 h/ K6 e# b: T4 L+ s( \6 `: S#1=A.
' V4 x* z6 @6 C! }% u#2=B.
#3=C.
#4=D.
) ^8 }+ b6 t6 q& j) oN1 IF[#1GE#2]GOTO2
  ~: U8 M( U. T2 M* U; i1 g' i+ m#1=#1+#2
#2=#1-#2
' C8 \; g- g/ b& R3 J+ j: ~#1=#1-#2
; ~0 R0 k$ w# @, x8 b% y6 g4 `% NN2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
#2=#2-#3
- m$ Q+ [" I3 @N3 IF[#3GE#4]GOTO4
! U$ i4 Z2 n/ r2 @, A, D#3=#3+#4
3 \! U  s$ f6 R. ~4 r' Z, i#4=#3-#4
; }$ s8 B7 v4 B1 q2 h3 ^#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
#1=1.
6 o" y) m2 M# r) {. u5 [#2=4.
#3=7.
6 O0 Q( S. j# {% U- G#4=9.
N2 #31=1.
, s3 i3 e0 a+ e8 V( H+ i#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
- T/ l$ \0 `9 C9 J#[#31]=#[#31]+#[#32]
8 m6 @' A# @) R2 W) h#[#32]=#[#31]-#[#32]
* H2 ]' m! I( X. I#[#31]=#[#31]-#[#32]
END1
; G. J4 h! _. s#31=3.
IF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
1 S0 g, V$ l! E$ g+ h- HIF[#1LT#2]GOTO2
#31=2.
6 ]2 i* I7 p) Y$ D5 _  A#32=3.
: ~' K! c  e3 I- J- Y, ~  O8 g' OIF[#2LT#3]GOTO1
/ b: n/ q( |2 c# B. RM0
3 z9 m; u8 p! g8 n9 y' ^* e9 j
. t" ?( i8 K' i/ W( M! z看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶