數據交換法的使用

羅蓋仙

1 Y9 G0 E! @( T  I3 y' x上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
. W% e$ p# B+ L4 T# U1 b，我看完之後有灵感，
( g! Z; N  @8 b( r" O  d有人說數據交換法.能用于何處???我來舉個例子
. f+ h. {6 @2 ]
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
* [/ d, J2 O9 Q0 h  E4 l. [使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
6 N2 E% e* G( p/ A% G#1=#1+#2
  Y( D) {& k, ?, H# K, `% D( |#2=#1-#2
5 C& c  P0 ~) J#1=#1-#2
( O" q- ^* Z5 [5 M& m#3=#3+#4
#4=#3-#4
1 x+ d& Q% ^' n; [$ k( k#3=#3-#4
# v* t* Z: s. R. @# j: cN5......此時#1的值已經置換過來了.#1的值一定比#2大
; t! {- F* T+ B0 R
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
$ k7 Q* o7 w7 XWHILE[#1LT#2]DO1
3 }, _4 W# t$ V: A# @#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
: y0 N  J$ ?3 m/ p; B' ~( l#4=#3-#4
" K0 i7 W9 E3 j1 X#3=#3-#4
9 u, V: X( y3 R+ B7 a7 dEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
  [* @; d1 C3 z6 ]& K* ?5 g
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
: F9 z4 Y6 t! m, _/ t#1=5.
#2=10.
" ?( r" H- W9 {' n( V, F#30=1.
; @8 V- r6 b( C+ V% E*#31=#[#30+#500MOD2.]
M0

又想把它這樣寫
- m8 j6 L( z7 g0 R*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
8 f+ u+ |' C# \& W* P( i你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
' P- H3 C8 F# k3 [* a9 r( q/ U所以，以上语句可以运行的

羅蓋仙

; H0 j3 b6 i. }
2 x! O) S0 J0 v% \% G8 g使用數據置換來按大小排列，大→小
; x) H, N& o! Z* D0 V' F法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
( P( F( h3 K8 ?& Z2 U#2=#2+#3
) ]1 A  w  L! @" Z  l% H4 @3 x#3=#2-#3
#2=#2-#3
END2
WHILE[#3LT#4]DO3
#3=#3+#4
) C6 r% i# }2 d0 U' ^8 o' l. x#4=#3-#4
#3=#3-#4
9 j1 \, `3 Z& T" Z$ c8 wEND3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0


( o; `- U- E7 w. t法1-2：使用一般耳熟能詳的IF-GOTO
: [0 l7 C* b/ X1 \& i#1=A.
#2=B.
#3=C.
( T% x, m+ z' d#4=D.
. X% w: s8 g- A* J9 `: XN1 IF[#1GE#2]GOTO2
! f; r% g) `/ T* v% Z+ w#1=#1+#2
1 j% `% ~  a. U#2=#1-#2
8 M( A; C; m) p- Z2 l$ L8 B8 h4 n#1=#1-#2
/ D' @% p! B( F0 {+ x7 O3 r& `* [N2 IF[#2GE#3]GOTO3
8 ^4 [; h' Q6 Z2 O#2=#2+#3
! y% a: r: O/ [( }: @#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
3 }3 F2 {/ m. z0 ]4 }6 R#3=#3+#4
#4=#3-#4
#3=#3-#4
" w8 U7 l% b* m9 V) p3 wN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
) ~& v* {$ q& ~. _' U" D. L9 yM0

羅蓋仙

法二：使用変変數^^
#1=1.
0 l) D7 m' S) V7 e4 v#2=4.
#3=7.
#4=9.
% b' [% D: _' ?+ TN2 #31=1.
#32=2.
+ ~  O4 r8 h$ G. o2 GN1WHILE[#[#31]LT#[#32]]DO1
, u6 ^. r# K7 X, L" a- A#[#31]=#[#31]+#[#32]
7 R. a* ?0 v7 C6 ^! S#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
! b5 F% m' [% m- i. C3 ~  ^END1
. p& {' I) w6 R/ K% K#31=3.
) ~, U8 f( {) ]1 fIF[#2LT#3]]GOTO1
/ r- @) Y7 O: q+ Y#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
6 t0 ~1 p, u4 U) t! Y#31=2.
#32=3.
IF[#2LT#3]GOTO1
M0
& ^) S9 ?* C4 t+ z
+ o( z8 c' g/ k  i  T" E看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶