數據交換法的使用

羅蓋仙

5 W0 F8 L5 g! P2 g1 A
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
" u8 b) h% p% ^6 C8 V
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
# J7 @* q: {9 u1 O& ~使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
4 r  @, V6 ^0 x, m' V7 U方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
1 H8 Q# n2 B' s0 Y; a#2=#1-#2
#1=#1-#2
#3=#3+#4
( o! b. J! s% X2 j3 x( d* v#4=#3-#4
, M) H6 [* f; c: j  l#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
$ i! [5 o2 m' h& B+ t#2=#1-#2
# h4 E1 x, T8 p& R#1=#1-#2
! w4 c' ]. n4 G3 H: c+ S#3=#3+#4
: q% ]' L% b% v& Y2 r#4=#3-#4
#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
+ P/ ?0 J) i' I/ w2 Y- }, Z+ P
7 d0 G  x/ i4 e: X  [7 C* |方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
. w! S  a& M# b  Z4 A( z+ ^9 Z" D$ p#1=5.
#2=10.
#30=1.
. ]- h( f! l) F; P1 Y*#31=#[#30+#500MOD2.]
M0
  g+ @+ a5 d3 N' V  `. T
! A* g/ b0 m% Z. O( O/ Q8 |又想把它這樣寫
*#31=#[#30+#500AND1.]
6 s  Q/ U: J& B9 r, n6 AM0

空气中的小鱼

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

羅蓋仙

! z: y; A' C& D7 T! c使用數據置換來按大小排列，大→小
2 D+ K# D5 u* J0 }法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
2 t' K  i& G1 E: Y- j7 \. f#1=1.
#2=4.
+ b+ y# n) |0 n9 s#3=7.
#4=9.
+ K( O: x8 S# H8 E# b3 r; A& B+ ^/ hN1WHILE[#1LT#2]DO1
/ q3 r$ d5 m7 [#1=#1+#2
& }$ f' L0 |& H7 Y! r5 F#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
  e% ^/ r1 G  P; L4 w#2=#2+#3
( y6 u  H: s8 d#3=#2-#3
#2=#2-#3
END2
; q: w) p8 z* ^0 e) s6 PWHILE[#3LT#4]DO3
) F2 |6 `1 m# w- u* k#3=#3+#4
#4=#3-#4
#3=#3-#4
END3
  e3 s/ X2 M) Y  {0 c" L2 KIF[#1LT#2]GOTO1
) T8 z0 q6 q: {- h& Z3 V: eIF[#2LT#3]GOTO2
M0
  Z0 x7 c8 v3 |

法1-2：使用一般耳熟能詳的IF-GOTO
# z" ^' g4 Y! F& R3 r* U& x#1=A.
8 l" v9 L# b6 W5 a" ^5 O#2=B.
& Z. P" J' O( |- e$ h; j+ K#3=C.
2 U7 |) C, V" ~; M) A; g#4=D.
8 M2 M. s& Y, QN1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
#1=#1-#2
7 o6 @6 [3 T; N" a- {; KN2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
#2=#2-#3
5 [. \, O; ~6 O' E9 G) eN3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
* k- n) g& Q" c3 U6 y0 d#3=#3-#4
- d" Z7 B7 j$ C3 a) D+ N3 u3 J- nN4 IF[#1LT#2]GOTO1
+ v0 Q+ _! r5 _, a1 v* `6 tIF[#2LT#3]GOTO2
M0

羅蓋仙

. D. |6 T+ `) P% v! w& [* ^) S
# l$ i. f' i, w0 Y2 f法二：使用変変數^^
#1=1.
#2=4.
5 ?7 n1 I, T3 s  o- k#3=7.
#4=9.
N2 #31=1.
0 I: L% U) g4 h( X4 M/ |( C$ [$ k#32=2.
  N% w( ~$ h+ E  V2 q3 z- UN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
; N0 N- e1 ~9 ?) s- P8 |" |END1
7 X3 H, o" r4 l% w#31=3.
& o/ _" j+ R7 W$ ]IF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
/ }$ R! G" x0 w# n! M/ `, m$ ]#32=3.
1 M! P' C" W0 S3 I  S- W; d, PIF[#2LT#3]GOTO1
4 \: [* ~4 _+ v# FM0

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

longmeier

好帖子顶