數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
- @% ~0 r% Q/ T8 p，我看完之後有灵感，
( p) i) ~# J  k) B有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
  C: u! E: d  g! U7 m3 N: S' n1 q% I& I/ |, w使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
# T$ D5 {- L+ i7 \* h方法A：
# i; O$ s" e( ~IF[#1GE#2]GOTO5
- Q4 f0 _6 `) ^- \+ t#1=#1+#2
; w& B! k; i8 O( W2 R& ?#2=#1-#2
9 q: p" o' T) Q( d7 X& G' {2 A#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
; q8 A% V/ V" g% h& z
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
/ p% Y/ ~7 x6 s* d3 a! p/ A) k#4=#3-#4
#3=#3-#4
END1
# A: G2 I. F5 O9 g/ ?......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
; u+ N+ i2 i5 @" t4 X) C# a8 @#2=10.
#30=1.
. m$ e1 o7 L- t9 u" ^4 ?7 u*#31=#[#30+#500MOD2.]
M0

( X$ ^2 W3 A7 U又想把它這樣寫
, g, b  D( x5 Y9 b*#31=#[#30+#500AND1.]
: y7 \6 E/ X5 N: q6 TM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
( v9 {% ^$ E9 r# @8 f  a只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

8 f5 W3 ?$ x& i8 `
- N, {& B# D) [' [* M6 q使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
3 O" n8 R; n1 e6 H6 T, _0 _) _9 ^9 N#1=1.
#2=4.
#3=7.
#4=9.
0 A3 z& Y, D8 I4 r5 c: EN1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
9 V( G, K8 m9 j0 _" A: ?5 MEND1
N2WHILE[#2LT#3]DO2
#2=#2+#3
7 p  S+ e/ c" H; \: a. d6 R5 N- [2 [#3=#2-#3
  l9 t! l% p. s* O+ U9 E) Y#2=#2-#3
END2
WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
$ b; S, n$ ~" p6 x#3=#3-#4
END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
3 x' n( O; [7 A+ l% FM0
. q1 X' d4 M5 z+ v( a6 Z
' y' B2 u6 ~$ [% O. c$ q
法1-2：使用一般耳熟能詳的IF-GOTO
1 I; L% d, z6 W3 P#1=A.
$ q# c3 m3 {5 \#2=B.
7 j( g" G  U5 I#3=C.
1 _- x1 Q! J2 q; y! q: H, J$ F#4=D.
) B6 Q* m& Y$ s. M( IN1 IF[#1GE#2]GOTO2
#1=#1+#2
+ z5 e3 s5 a! n' X3 l#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
0 @" P& t$ ~/ }& F/ h6 H! x#3=#2-#3
" N* O9 b  z' K6 }' ~#2=#2-#3
& J0 C- q. N2 V2 v8 u' EN3 IF[#3GE#4]GOTO4
#3=#3+#4
# @! i) u, ^" w  U7 M# @6 i! m. u#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
$ h) `* A5 N2 r- M0 |* D0 eM0

羅蓋仙

! h7 Q1 P4 d! s4 ?0 m
法二：使用変変數^^
2 s$ w" X: d" b" o#1=1.
( n& w; Z* g  O3 n#2=4.
/ k. k7 ^) J5 d( ]/ T( `( Y( q4 q, a#3=7.
. p9 w) w) W# N2 `$ ~#4=9.
4 m, p0 V9 l" B- H4 e; U' C2 cN2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
% ~: G. F/ C( p#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
3 U# ^9 B1 u0 s9 L! h; E#[#31]=#[#31]-#[#32]
END1
* W) `  Y9 y2 ]0 o6 C4 \$ ?#31=3.
IF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
' o1 o4 c" f( `* [- @, [IF[#1LT#2]GOTO2
' o, \7 Y# X) o6 ~! t: {& }8 a#31=2.
#32=3.
IF[#2LT#3]GOTO1
: Q1 X! ]$ u9 D7 |4 \6 ^8 M# xM0
* ?& n% d$ r. n& s, V8 G9 O
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶