數據交換法的使用

羅蓋仙

+ a; R1 o- {) s上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
& b8 Q  W0 F" {& g/ o# p，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

( z5 v; Q8 M8 a, @如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
4 ^! X2 w  T7 ]  n3 m2 a7 GIF[#1GE#2]GOTO5
' c4 |1 x9 h* a#1=#1+#2
#2=#1-#2
9 H* L: k: g6 W2 d" D, n# K#1=#1-#2
4 Y* j' o' V) N3 a#3=#3+#4
& k6 H0 {9 p+ v  h#4=#3-#4
#3=#3-#4
3 r$ x$ n/ g; N4 G' iN5......此時#1的值已經置換過來了.#1的值一定比#2大

4 x9 O% a9 a9 V% g" Y5 q我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
7 R( H- O) T) s7 E方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
. _# W& u8 U& g+ r" \#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
+ }) v' j, {% S8 H0 I#3=#3-#4
" H9 K8 N5 c5 D& q# d4 q+ n1 {END1
$ }- h0 ?0 g3 m: ]) f5 L, {......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
$ I& t6 |6 y+ }$ H' S#1=5.
4 b% w2 o/ U! W4 S7 L#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
% O/ f  w/ b( c- g% HM0
- E' h& f6 N' M  c) y- d8 d9 f
又想把它這樣寫
9 z( h6 J$ M; B- H*#31=#[#30+#500AND1.]
/ ~2 t, T; K  r5 ]5 v# EM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
; B: |: z6 k8 J只有逻辑判断有些系统版本不支持
4 P8 o4 q4 O7 f+ l* `5 o所以，以上语句可以运行的

羅蓋仙

5 h' v+ U7 ]) Q5 o' A+ C
' ]( I% O' E% X* k9 X5 W6 X使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
, {# Q0 v/ y3 i9 t; v; A3 g#1=1.
#2=4.
#3=7.
, @2 \" t9 [3 s1 D# f; ~#4=9.
N1WHILE[#1LT#2]DO1
: K/ e) z. A7 q5 I/ `#1=#1+#2
#2=#1-#2
' F, K6 _( A: q& Z  }#1=#1-#2
END1
! e! O& ~+ p- ^N2WHILE[#2LT#3]DO2
; w5 g) O# S$ I$ _: E$ R, ?#2=#2+#3
#3=#2-#3
& g% j# s+ U9 n* w/ }! \#2=#2-#3
" s) J9 O" j) v1 \END2
+ C9 A# n* R! s# _" [% B1 B: ^9 nWHILE[#3LT#4]DO3
2 p. W- g+ {+ f+ @* @#3=#3+#4
#4=#3-#4
/ D2 W* r" z7 o! J. k8 \#3=#3-#4
* K3 c) `$ ~  R6 Q& K5 B! y* ~END3
7 s! s( W# m0 s; P! K1 Q9 c5 uIF[#1LT#2]GOTO1
/ B  f: b0 v' Q) i- L' nIF[#2LT#3]GOTO2
. Y6 T: Y' q$ H/ S6 v6 W! kM0
* R! p# k/ r- }

/ Y  G0 p( e0 Z* f  ?1 [$ R* V法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
2 ?* A6 u& u2 ~3 I9 A#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
" M& {  T  X  S& t& q2 \8 n#2=#1-#2
#1=#1-#2
6 l1 y$ N: y1 s* t- J" f  D4 bN2 IF[#2GE#3]GOTO3
#2=#2+#3
& b8 @$ p! s9 i#3=#2-#3
& n$ D, p2 U1 V( N#2=#2-#3
N3 IF[#3GE#4]GOTO4
' j+ _# h; I: E#3=#3+#4
#4=#3-#4
" m' a+ \# _  {2 @4 k3 `#3=#3-#4
N4 IF[#1LT#2]GOTO1
" x9 P7 m7 u# [! t  v& sIF[#2LT#3]GOTO2
$ l: B) E) ?: s4 T- d3 BM0

羅蓋仙

* Y9 P" k9 s5 s3 P6 m" H) k
: m! d2 \. x% \法二：使用変変數^^
* ]* F; I8 K  e' W( J0 l  \#1=1.
- _( H* a. C4 J8 d#2=4.
. b: W# y5 ~& o0 N; C8 P9 h# P7 \% b#3=7.
& f) }3 z  c5 e2 u3 _#4=9.
N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
0 r! Z' e' F( c' c) N#[#32]=#[#31]-#[#32]
! b  w# [7 X. G. p: J3 P3 f5 [#[#31]=#[#31]-#[#32]
8 `: q. c/ u2 D! _( CEND1
#31=3.
IF[#2LT#3]]GOTO1
#32=4.
, m9 Y+ ?3 ]: vIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
+ Q! o8 O+ y" h) ?0 J5 t. m3 L#31=2.
#32=3.
) |8 |% G! \3 o; P8 u/ @' L# oIF[#2LT#3]GOTO1
M0
1 `& t2 j1 J2 I
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶