數據交換法的使用

羅蓋仙

' W$ X2 K% o* i$ u! Y3 }上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
* g: F/ l, \$ Z# l，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
. Y+ ]/ _: D1 e  M0 {8 g: y
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
: i: D  d: b. @. y1 q  N$ |4 s使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
2 P" K9 H+ {) l" y  [% O: j3 @IF[#1GE#2]GOTO5
#1=#1+#2
2 ?( U) \( y  Y+ ?#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

1 K# ~' \7 r7 i# @我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
- W5 ~3 I8 X$ v+ U) T2 Y方法B：
9 F0 O* \0 C2 N1 ?0 Q5 j+ T; g8 aWHILE[#1LT#2]DO1
) ^( v% @( L8 ~7 b# @8 R; E#1=#1+#2
" ~% F  x/ ~% h#2=#1-#2
#1=#1-#2
3 x( R! \, M# ~7 k2 Z" p#3=#3+#4
#4=#3-#4
#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
#30=1.
" f/ g0 G6 w+ V! e*#31=#[#30+#500MOD2.]
; \, I$ r1 c3 c8 Q/ K: c" Z1 I, SM0

又想把它這樣寫
# j+ i( y7 k) {0 E' b' W*#31=#[#30+#500AND1.]
2 x$ A# T" F& Y2 j" x9 s/ _  eM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
& T& e8 U% J* G/ r, f2 m. i只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

  x0 S! d" q" G7 M  p使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
* y, M  d) V$ t1 e  n#1=1.
) F" L' h3 K# e+ x, y0 Z$ a#2=4.
' [7 ?) D5 N( ~; r' y$ Z, ]#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
, C, k1 f, }1 j% s) p* k#1=#1+#2
  e2 I: C" Y/ R2 R6 s/ b#2=#1-#2
#1=#1-#2
END1
; Y- j3 C. W1 e# N' hN2WHILE[#2LT#3]DO2
#2=#2+#3
6 H" C& B: J9 I: s4 I#3=#2-#3
#2=#2-#3
END2
' v+ J5 O9 f! \" GWHILE[#3LT#4]DO3
8 w6 P8 @. D4 b, C, j) K$ A#3=#3+#4
/ h: G0 }+ O5 [+ A#4=#3-#4
2 W$ d% l4 W3 Z6 C% v+ s5 A#3=#3-#4
  f& T( x: H. ^3 i9 G* IEND3
+ s- H$ X3 |4 L; f4 N0 i! b5 sIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
+ E+ O, o0 S/ o" o! P8 W0 \M0

, v( J4 C" [  P
法1-2：使用一般耳熟能詳的IF-GOTO
+ E% F$ a2 `. C. j) ^3 A3 v#1=A.
6 e$ }0 v: o2 r#2=B.
4 m- D# M1 }5 N* z. g1 \#3=C.
' ]. T4 S0 d7 M/ V8 s) p! J+ f#4=D.
5 b  }0 ]  d0 q0 z" ]* A' E3 JN1 IF[#1GE#2]GOTO2
- J8 Q, `+ `0 E0 C8 C8 M- [+ F% H+ O#1=#1+#2
#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
8 a( p+ C5 ], V. |# e#2=#2+#3
' F1 l% ^- Z1 p#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
8 E9 l' v9 A5 A* r2 b4 l#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
& U4 F7 q  B; t9 Q- J5 u#1=1.
#2=4.
9 C0 l" K" |4 t4 C3 i3 t#3=7.
: z- X, |8 \0 E+ J#4=9.
: D% U0 ~" [+ i- [, ?N2 #31=1.
4 ~( `6 u( W6 R2 o#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
2 p( u: m& {0 v% c#[#31]=#[#31]+#[#32]
) L# }' ~8 W" A# \4 a#[#32]=#[#31]-#[#32]
# n6 c% d, V, h2 `8 U7 E& C#[#31]=#[#31]-#[#32]
& H3 b; u- o0 _) l) b/ BEND1
6 w/ @  n+ i6 o% K3 ~5 Q' ]#31=3.
% _6 @6 n2 `  a, |3 T1 o! I, b* UIF[#2LT#3]]GOTO1
#32=4.
3 ?6 n9 a( n0 v0 m! I, R, @9 n: `IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
/ u$ Q( O* ~3 d2 l#31=2.
, |" s, G, I! A  i! ?3 t5 n#32=3.
' t6 _( b6 j8 h  n8 v( w. [IF[#2LT#3]GOTO1
M0

" }& ~: i: z( P* g看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶