數據交換法的使用

羅蓋仙

. U$ z, X" l: H- t
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
8 ]7 l4 [# i* W# e& c9 [* y，我看完之後有灵感，
3 p- y* j2 }$ n+ C3 Y' Q有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
* T! i, G. W" ~' y3 B  [8 ?方法A：
IF[#1GE#2]GOTO5
, U) X% e2 h$ P#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
1 x, z; c; I) [5 ~N5......此時#1的值已經置換過來了.#1的值一定比#2大
% H' f" r& }9 G" \/ Q& p% {
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
# ~6 D- f) R7 e, x* F6 b- [WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
7 Q7 A& Z. s6 j8 `! ?#1=#1-#2
1 R6 h9 ^2 @" D  D/ K% f( S9 G- F) w#3=#3+#4
8 N( O5 }3 D5 K8 A5 Q#4=#3-#4
# I/ g: V: |; b9 m  ]3 f# r#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
0 Q4 x6 `: ~5 E#1=5.
#2=10.
#30=1.
' Y- _& I, p3 i0 T8 n! |  ~; @: j*#31=#[#30+#500MOD2.]
/ P5 `  w- M+ }2 _6 F7 k9 T. x+ FM0

$ a1 p. p, L6 h# y5 |1 W) ]又想把它這樣寫
*#31=#[#30+#500AND1.]
7 u8 _+ g7 g* |, O7 ~% XM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
0 g* U$ u1 q9 `& O) L( h- g只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

4 t# w1 C' R5 f* S- l
. D3 j+ Y0 d# @3 A1 z使用數據置換來按大小排列，大→小
7 ?. a+ |  Q% P( R/ A! S1 x9 v法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
- R: B% W# Q8 k, r2 E' S$ t! Y  \#3=7.
- a8 s% Y2 w: g, G- K4 w8 L#4=9.
N1WHILE[#1LT#2]DO1
  w2 j9 |  Y% Q4 r#1=#1+#2
#2=#1-#2
1 O" ~( [9 ]; W" e, Z1 H! p! s: i( h#1=#1-#2
END1
! }6 s1 H8 q, |' ]2 Z# yN2WHILE[#2LT#3]DO2
% f# w& a& o! z+ l#2=#2+#3
: i4 Q9 i3 J' m% R/ y) J#3=#2-#3
#2=#2-#3
' C. x% p# @. \3 Z/ C3 K3 {0 [END2
9 i& Y+ C" {; |" ~( ^WHILE[#3LT#4]DO3
# O5 d( @8 V  o1 J* m  c#3=#3+#4
; S8 ]! p0 r, g3 y5 C#4=#3-#4
1 J8 W; p4 m2 X0 B#3=#3-#4
- Z) E( H: a0 h' rEND3
: l9 F. g1 }, `# w- O6 `. k( E# @4 z) xIF[#1LT#2]GOTO1
9 L- r" H$ }/ ?7 [! M+ iIF[#2LT#3]GOTO2
M0


+ ^2 w& `/ r( O5 l+ `/ S8 q* h法1-2：使用一般耳熟能詳的IF-GOTO
5 A/ {* |* B# s* N. n#1=A.
9 g. O* j7 W9 w/ z#2=B.
( @* L/ m8 u, T# ?  \! B1 y/ B#3=C.
, H9 L/ Q3 e+ t#4=D.
, x) g% e# G& G' @- ]N1 IF[#1GE#2]GOTO2
3 b: b+ Y! j( h) E1 `* Z2 k9 U#1=#1+#2
. D/ a& q% G1 U: L  C  h& m" C#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
% e( p" Z. o% X6 y2 V2 T#3=#3+#4
( C' t, T! k: T' s#4=#3-#4
7 T- {& J+ p1 q& u$ ~" S$ ?8 f#3=#3-#4
N4 IF[#1LT#2]GOTO1
+ y0 p6 a7 P3 R3 aIF[#2LT#3]GOTO2
! m/ m) z. Q% _0 |; }8 kM0

羅蓋仙

法二：使用変変數^^
#1=1.
* o# J1 a+ b* W& ?& |) F#2=4.
/ d) F( _0 s# g0 s# _% |4 s" n2 ]#3=7.
#4=9.
8 w7 t$ f9 P* y; g8 qN2 #31=1.
% D# Y8 W% K) }. h$ A' P#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
% f, ]2 j0 E  m7 g$ P5 `#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
' P* O: u: t. k! U& z# W( r- u! {#[#31]=#[#31]-#[#32]
END1
2 X5 I0 m: D) i! c5 i7 I3 n#31=3.
$ X8 C0 F- i2 N# T7 r; J9 uIF[#2LT#3]]GOTO1
$ f  N" O, L+ q" J1 v7 U: m6 f#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
#32=3.
IF[#2LT#3]GOTO1
/ h  K1 }- Z% I/ e7 S3 U' Y2 }M0
! Q0 a0 ?) I, R8 m
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶