數據交換法的使用

羅蓋仙

  \  c: R. x: q" R
8 |' i$ D! e+ A- \+ q上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
0 h3 T' e5 V( W7 @! k& I，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
& N9 U0 q' X8 {  h
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
( ~- ^, a$ q* u/ j使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
$ F% N/ Q5 L! w( x4 D方法A：
$ m% K  C: H2 P: u2 X* p& T4 XIF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
#1=#1-#2
& t, S  h! v$ ]! x#3=#3+#4
#4=#3-#4
$ i' b# g; R9 E. m; X+ `* k/ j#3=#3-#4
6 d# r, u& {: {1 N2 ~1 uN5......此時#1的值已經置換過來了.#1的值一定比#2大

6 ], Y2 S4 I/ C/ O$ f+ g# e* C我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
% O  J% T$ x: C5 q#1=#1+#2
3 \! _3 E) ], }1 L% p" L$ T#2=#1-#2
#1=#1-#2
0 e/ H/ z8 m3 r. _: _0 R4 E#3=#3+#4
: U2 @+ I% \7 a; I# o0 [! K2 P' Y#4=#3-#4
#3=#3-#4
5 ^; ~$ u( G& R1 ^; AEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
8 b& T9 V; ^; M3 J3 J: l
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
2 O5 I& G: X5 {' F4 `& g+ ?7 k#1=5.
#2=10.
( f* z4 L! l/ _5 \/ d8 [, H#30=1.
- }1 o- L5 N. x* q*#31=#[#30+#500MOD2.]
M0
7 t0 J" k) X/ A( l9 H; m3 |$ I
  l  V3 V# M+ i$ y又想把它這樣寫
*#31=#[#30+#500AND1.]
" U' F" {# ?9 m1 aM0

空气中的小鱼

回复 2# 羅蓋仙
1 ^# m. s" L# t0 F& d你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
0 y7 u( Z! ^: s& P( ?0 B7 c- G#1=1.
#2=4.
$ @$ }+ Y3 z/ b. P* d: g#3=7.
#4=9.
/ y9 |! D+ A( l7 @5 ?N1WHILE[#1LT#2]DO1
/ K0 ]- T2 @# ^+ @2 n#1=#1+#2
#2=#1-#2
+ D$ h& o7 P, \' n#1=#1-#2
END1
2 h; [/ a& B' Q/ Z1 N& AN2WHILE[#2LT#3]DO2
#2=#2+#3
9 _6 [$ e' y/ L6 U+ `* |0 _8 |#3=#2-#3
; g% S7 F5 j1 V9 w#2=#2-#3
END2
WHILE[#3LT#4]DO3
2 o. Z4 e. G" |* \$ O- n# t#3=#3+#4
, X: P  z. L# Y3 e  T; f. v% U#4=#3-#4
#3=#3-#4
1 r$ B2 r& O/ d% eEND3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

7 c& q) ^+ {- f1 G% |
" L$ R6 H9 l1 D* E6 O. j法1-2：使用一般耳熟能詳的IF-GOTO
; S2 o3 V/ L/ a' X" x#1=A.
8 f4 b/ Q! A5 A; _' I5 E#2=B.
$ I. B: M9 `3 F9 T& R" ~5 {#3=C.
#4=D.
" L/ f; k' b! G+ e5 M. nN1 IF[#1GE#2]GOTO2
# v3 I6 z9 Z1 W0 s7 r#1=#1+#2
#2=#1-#2
#1=#1-#2
; z1 c0 V' o$ r; FN2 IF[#2GE#3]GOTO3
#2=#2+#3
) t1 y# x* a1 Y* B1 b* J#3=#2-#3
#2=#2-#3
3 B/ V. w1 f& @/ l% ]: cN3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
) `3 {3 e2 a% F# W; M#3=#3-#4
6 T- J# H* S/ u! {4 P7 g( EN4 IF[#1LT#2]GOTO1
, v& q1 k3 E6 q( @# g' UIF[#2LT#3]GOTO2
M0

羅蓋仙

7 v: F! S8 i0 H7 R5 ~. P2 P法二：使用変変數^^
( d* {3 f& Z- N8 ~5 {#1=1.
' Y' S8 W5 J: Q$ l#2=4.
#3=7.
#4=9.
N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
9 s8 A9 l' n9 R0 n- c0 r) z#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
7 Z6 V; i7 |- ~+ D( z#[#31]=#[#31]-#[#32]
END1
' M, [# S% p7 m3 K) V- @#31=3.
  q6 ]* W. F* T# yIF[#2LT#3]]GOTO1
$ |+ W" ~1 ]; d; ~! M# X' b#32=4.
7 \3 B# s1 M: l1 oIF[#3LT#4]OTO1
' d/ x4 G+ j( v4 A* ?, l  Q, n' MIF[#1LT#2]GOTO2
" g) Y+ X5 `* L$ x2 x" _#31=2.
# T* ]$ u# T; o! f+ v#32=3.
IF[#2LT#3]GOTO1
M0

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

longmeier

好帖子顶