數據交換法的使用

羅蓋仙

: p9 q' Y0 l" l/ R
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
2 Q5 H6 Q4 ]3 @# {9 W，我看完之後有灵感，
) b7 e9 m, Z. N/ A4 E/ }有人說數據交換法.能用于何處???我來舉個例子
/ ?/ @9 k$ C8 V7 m3 e, J# i
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
& l2 I0 M0 h! N: Y, M* q; Q% f方法A：
# S* x1 j# ?. d3 |, [IF[#1GE#2]GOTO5
: V7 ~4 o4 i- C2 J% q2 U! D( C9 m#1=#1+#2
" z* w4 o% g% Y+ H3 r- V#2=#1-#2
1 U8 l. I7 Y" l+ P, X#1=#1-#2
* y. ^7 c2 D3 c# |  C8 n#3=#3+#4
0 c7 R4 W! B3 _2 C3 ~- ~#4=#3-#4
#3=#3-#4
3 c2 g' W. B: m$ jN5......此時#1的值已經置換過來了.#1的值一定比#2大

2 O- Q  V3 H7 O( _# E# C/ D: }5 w我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
& M- a1 p+ v# {9 _方法B：
WHILE[#1LT#2]DO1
! G, X7 n& j0 B# E( T3 g#1=#1+#2
6 x% b$ a# l- s# C* Y3 }#2=#1-#2
#1=#1-#2
' P! n" D9 d' w1 H* f3 v0 Z#3=#3+#4
#4=#3-#4
3 }$ v# V: b& H& _7 U1 m: K4 Y#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
* J; R2 y& [! Q* Q- N, P+ V8 t4 b5 l#1=5.
; t: e' `! J3 ~1 x6 g" G#2=10.
* y0 Y. u7 K/ i3 u+ a0 f#30=1.
*#31=#[#30+#500MOD2.]
M0
- B& ^7 x4 }" X9 m( U" p9 H9 K9 V
又想把它這樣寫
  r& d' i3 j" f' r' |- o*#31=#[#30+#500AND1.]
; l" ?1 L) l  p" J, M4 v) e3 v$ ^M0

空气中的小鱼

回复 2# 羅蓋仙
5 A, O$ D0 s; n0 e  u你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
5 j. A4 `% D1 V8 U. ]$ q  ^# h#1=1.
6 o: Y' W# H2 W" e#2=4.
; n0 R  s* a0 }; h6 o' ?% d1 E  s5 K#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
/ t0 P  l6 E. b4 U#1=#1+#2
#2=#1-#2
# Z0 |) E* z4 k- }( l#1=#1-#2
2 L; a9 o; l* M2 \2 q: h! F+ FEND1
N2WHILE[#2LT#3]DO2
#2=#2+#3
7 ]6 h2 p3 f) b0 z1 R2 j$ N#3=#2-#3
#2=#2-#3
% \/ w, [( X) t! z. X6 G4 l" ~END2
WHILE[#3LT#4]DO3
. Q4 [5 J2 C' j2 j/ B- d2 @#3=#3+#4
#4=#3-#4
7 b# s7 I! F' K! A#3=#3-#4
END3
% r# e9 p& u8 z& i0 S7 EIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
2 n, ~$ J8 k% t( F* lM0
4 d( {. p7 `  n* t
' @1 [% q/ b, |6 x4 y
/ x: p! Y$ Y$ b1 D法1-2：使用一般耳熟能詳的IF-GOTO
8 i- T. ^0 Z7 y8 r; X#1=A.
#2=B.
#3=C.
( q1 \$ }  E) {, G# Q2 ^" h#4=D.
) e! U( k) i  U; K2 T% @N1 IF[#1GE#2]GOTO2
. N8 a+ @( J3 d% E+ t4 [#1=#1+#2
#2=#1-#2
" l. b, v$ f* C6 `3 m5 n#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
#2=#2-#3
! B$ U( Z4 I' e( z; AN3 IF[#3GE#4]GOTO4
: t3 \2 o  I5 C$ y' i9 ~#3=#3+#4
#4=#3-#4
9 A) l) ~4 I) \6 ~. n#3=#3-#4
( X; O) X5 ]; B5 S: s3 zN4 IF[#1LT#2]GOTO1
0 ]- }& x+ d6 f; D; l  rIF[#2LT#3]GOTO2
M0

羅蓋仙

) T) Q  V( _. R法二：使用変変數^^
#1=1.
3 l+ B  [6 k$ Z$ @#2=4.
#3=7.
#4=9.
N2 #31=1.
#32=2.
+ o1 }6 M& M" d5 I" T% ^# b9 X  oN1WHILE[#[#31]LT#[#32]]DO1
0 ~) n7 e5 c" J8 T( ]* \#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
9 I0 [* ~. r. @  M( j$ b#31=3.
$ h3 T2 }7 X$ _) O) }' @IF[#2LT#3]]GOTO1
#32=4.
) V6 M6 _# a0 R4 R& VIF[#3LT#4]OTO1
8 e/ W" o3 ~$ a6 A% X8 H6 xIF[#1LT#2]GOTO2
- j# Z+ R+ J1 W' G- K#31=2.
7 g5 }, U6 G  l4 Q( n5 C#32=3.
IF[#2LT#3]GOTO1
M0

# J/ `2 a( P6 w3 p* f看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶