數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
! V/ _% u" B+ ^$ E  a+ V有人說數據交換法.能用于何處???我來舉個例子
8 p1 q4 c$ u7 k
  S' D0 \) S+ ?+ D7 l如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
4 H" S/ ~+ \- d3 N方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
0 b5 D# r- j4 L( u( Q#1=#1-#2
' y: a6 N  ^5 a3 q- o#3=#3+#4
* g) p8 _5 I3 L& k" D#4=#3-#4
#3=#3-#4
# u3 E( B6 ^7 ~( w4 t- X; [8 u0 S! ~N5......此時#1的值已經置換過來了.#1的值一定比#2大
7 c8 d! T' D0 T' h" L: l
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
2 \: t4 `! Z9 c" f: `2 m8 LWHILE[#1LT#2]DO1
#1=#1+#2
% p# T% H: M7 q3 `, |: _! K#2=#1-#2
#1=#1-#2
" e: c& T" `/ m+ u4 B8 [6 O#3=#3+#4
#4=#3-#4
0 ?6 ^; F, j. G/ D2 b' [#3=#3-#4
8 s/ y+ X5 }3 y2 K2 {END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
- q9 V( j9 B7 {4 v2 v
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
0 [* p  D: i  \#1=5.
#2=10.
: g) ]4 j2 W, Y9 B#30=1.
$ v% X& M4 d% e1 O. C( a" H) K9 m+ s*#31=#[#30+#500MOD2.]
M0
4 V4 E3 b! K% a
又想把它這樣寫
*#31=#[#30+#500AND1.]
& }; f* t' Z$ T( t8 W6 I! W, uM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
5 S! r/ ?6 I* ]只有逻辑判断有些系统版本不支持
. b" _: k$ J, I" m所以，以上语句可以运行的

羅蓋仙

% _. s5 M' i0 g( S7 w+ d% v: m使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
" C, _: g. e! X; g$ t  F#2=4.
7 f1 I0 N  v  M#3=7.
4 S, g! U0 ^, M" O- q. b+ `; F3 |3 y#4=9.
N1WHILE[#1LT#2]DO1
$ H2 B+ R  }* n#1=#1+#2
#2=#1-#2
#1=#1-#2
3 L6 Z, E6 U, P$ D5 B0 M! KEND1
3 R- y. ]1 d( M, M/ T& FN2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
; l* f+ _) _, X5 A#2=#2-#3
0 L- y8 m5 t  b6 eEND2
WHILE[#3LT#4]DO3
#3=#3+#4
  B, Q4 X! @/ n- V8 c. Z' `#4=#3-#4
#3=#3-#4
END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

9 s8 M2 ^- k% @7 b. G5 [- i& ~
法1-2：使用一般耳熟能詳的IF-GOTO
/ `; I4 a: o! d% I#1=A.
; C0 c4 z/ T3 }' `1 A' \#2=B.
2 W4 b0 h, v) z0 T#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
; Z4 {& V& _1 ?4 t( p0 }1 o#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
1 |# e  G9 v$ S$ m& e" S0 I#2=#2-#3
1 e1 o1 S+ K. x/ A" W3 b" E! aN3 IF[#3GE#4]GOTO4
8 r" i  A8 t' W) ?#3=#3+#4
#4=#3-#4
#3=#3-#4
$ K. a0 t- j. U  T  NN4 IF[#1LT#2]GOTO1
/ ]1 |* e& r- H/ A8 eIF[#2LT#3]GOTO2
% Y+ d0 I1 n8 `  O7 ]M0

羅蓋仙

/ e+ ^! J4 s; j* J6 ~
  ^- j2 W/ X& R法二：使用変変數^^
#1=1.
9 {0 N2 ~6 p: K; h. Y, `#2=4.
$ u0 |+ p- u1 a! w7 |4 p- `#3=7.
: Q  S  i, Y3 ^#4=9.
& E1 J" g- X) m  g5 G. R7 w& yN2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
- t. L. q. X' L1 G#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
#31=3.
IF[#2LT#3]]GOTO1
#32=4.
. F+ U9 a  i# uIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
4 P, t" z1 t; O6 N2 r8 n  f; x4 @2 @#31=2.
#32=3.
IF[#2LT#3]GOTO1
M0
% E; e5 @1 ^6 i  G4 U5 _8 F
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶