數據交換法的使用

羅蓋仙

+ Y0 Q; Z% s5 c+ C
- w! S* [/ n/ }4 G: U+ K. {! h) H上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
' [* B& D$ ?; r( r5 J/ [& A; B
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
4 K5 P& e+ g' q4 U; m9 v& U使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
& k  z& T. M" m1 c4 b1 C+ x方法A：
! m* f( i# Z% wIF[#1GE#2]GOTO5
#1=#1+#2
2 v$ s% D, }  C0 `: d+ f+ V  l#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
' k+ l: T, O/ D4 ^2 K" L$ T0 q
# V& Y+ _1 K; H9 i/ V! t我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
$ ~, x( c. B/ I+ s1 h, f#3=#3+#4
#4=#3-#4
% \  U# j- t* a+ j$ y#3=#3-#4
) v+ p0 ~/ y; m9 u4 QEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
2 F2 E5 P2 K# e4 t5 J2 u5 h" z#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
: f8 x- x' D$ L7 }  D, |& c' LM0
" e$ t) X- F/ Z$ R
7 e3 V# W5 v0 Z又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
3 |0 r9 S6 s1 y; a7 Q$ {2 Q7 c$ C你的表达式中没有只是逻辑运算，
6 [1 ~* E1 H. y0 e2 E只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

2 j1 v1 g$ y: K% k7 }2 d3 c使用數據置換來按大小排列，大→小
* J4 t1 K: a3 {; @7 r法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
" Y& |4 x4 M- u+ g# H" ~4 {#3=7.
+ U# Y/ Y+ u4 @, L8 e" l4 T#4=9.
N1WHILE[#1LT#2]DO1
" Q4 N% R, n3 h+ a0 o" ]; f#1=#1+#2
#2=#1-#2
- m% R9 |; L5 J( q0 k#1=#1-#2
- [: _2 u  p* e8 FEND1
: G; I  [0 `, D0 j9 TN2WHILE[#2LT#3]DO2
#2=#2+#3
; V; e7 ^; `8 ]# o% I8 V0 T$ y, M# y#3=#2-#3
  S0 A, E/ I' O; ]#2=#2-#3
3 y; G* Z6 E. J# s8 KEND2
WHILE[#3LT#4]DO3
#3=#3+#4
8 W5 A  Y! E" }" \$ f#4=#3-#4
( M' \3 X  `$ ]/ o" W7 ?4 X- P#3=#3-#4
END3
- m0 _* X6 o; S, m# j; f5 \IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
& C# a1 ^/ L5 ?: L& ?. w2 m& s; b" FM0
. o' ~0 L  @, t
: y' U3 p7 {+ ^  w
法1-2：使用一般耳熟能詳的IF-GOTO
2 \( {' D- Q, f& g  |#1=A.
7 {8 H7 c) ]1 E% K* X#2=B.
#3=C.
: q, Z* z2 G4 F% F4 b( s6 U+ j#4=D.
N1 IF[#1GE#2]GOTO2
" w* m5 F+ @2 \% h; Y* i#1=#1+#2
#2=#1-#2
* S, o/ d# p0 W& c- V% f" q#1=#1-#2
, [4 T9 V2 R+ _; F* n5 t# qN2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
% h% L! z( c  y1 d" K, L, s* d#2=#2-#3
N3 IF[#3GE#4]GOTO4
$ I) }/ ?8 U, Z5 ?) ^, `2 D1 q7 t#3=#3+#4
; x% F! Z3 X  x; v+ f6 P# B* q#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
! R$ o  ?: F0 U; ]M0

羅蓋仙

: a7 e; q1 H: I3 T! a法二：使用変変數^^
#1=1.
#2=4.
#3=7.
#4=9.
* e$ H6 J8 I, ?* E% m! l7 D# qN2 #31=1.
- Z% Z; L# J* K( }7 @) A: f#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
  S2 l% a3 K( T' q9 P5 @: X: T7 c- C#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
- G+ Z& Q( F: y#31=3.
) X) ]0 p# P' w8 l9 BIF[#2LT#3]]GOTO1
#32=4.
6 b3 f' b* P. V# S! [IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
9 r) v' m4 k. c  x* v. T. y) {7 V#32=3.
IF[#2LT#3]GOTO1
! E9 S0 l* I# U: }7 r3 g9 G9 uM0
  X- `9 i/ o& I2 T
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶