數據交換法的使用

羅蓋仙

# A' q- F! t- g+ v$ \
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

) n5 F/ B) n+ k如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
: \3 E5 P4 N. [* ^( ~( m* j使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
, K6 G9 L) G4 ?方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
3 D" ?; M- X# S8 s# }& Z4 G#2=#1-#2
! P% k& T5 q1 A- |6 I7 D# F( w#1=#1-#2
#3=#3+#4
7 p/ L3 f2 y3 O7 j- w: M& j8 U#4=#3-#4
#3=#3-#4
0 J7 h6 o+ \) j9 L& y' K# ]& K! |N5......此時#1的值已經置換過來了.#1的值一定比#2大
# y5 \) R2 Q/ Q* z9 e: m
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
) R9 n7 M- G5 m# R; U/ I$ z4 N# @5 e方法B：
6 o, [7 i4 R: X, p& @  TWHILE[#1LT#2]DO1
# {$ ~9 b: G  `4 A- v#1=#1+#2
+ Q8 K* G+ n: G6 u" w5 D' F4 p/ Q2 J1 g#2=#1-#2
# ?9 D* ~3 ~6 S9 F7 d# Y5 z+ u; m#1=#1-#2
3 G7 b' _1 M1 C: F3 {0 i; {#3=#3+#4
#4=#3-#4
#3=#3-#4
- ?- m0 ?  ?" Q1 D. \- E/ SEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
) i( y2 i7 I* D1 O( y
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
4 J% f6 X& K: |" H) a. V5 Q#2=10.
+ B- E/ s4 P6 p% r9 M#30=1.
*#31=#[#30+#500MOD2.]
M0
6 l/ j) T" P& O% x
又想把它這樣寫
* c, A0 m% B. a6 ]7 e$ [*#31=#[#30+#500AND1.]
6 u4 {1 e) ]- j8 U* d' ^/ _M0

空气中的小鱼

回复 2# 羅蓋仙
. H6 n( K& E( \+ u# [2 I- t你的表达式中没有只是逻辑运算，
3 c8 c+ b0 W$ l9 s& O; D只有逻辑判断有些系统版本不支持
" b8 \! e$ j! \所以，以上语句可以运行的

羅蓋仙

9 i" O9 i# d' w5 D# S
& h9 b  h5 T4 k/ |使用數據置換來按大小排列，大→小
" V9 \# T$ f  S# b4 p4 S; a+ {法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
0 [- H1 }2 I+ a#2=4.
#3=7.
, `  \6 \  L% ^7 i* R- ^#4=9.
. p, ~, V) L) Y) Y( d4 W  w$ AN1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
) j$ @( P( g- @END1
N2WHILE[#2LT#3]DO2
; H) M: r, c0 L0 T$ t$ \5 c#2=#2+#3
8 S0 U6 b- E$ ?% G#3=#2-#3
! }9 m6 Z4 `. H0 A+ \' C% v4 A#2=#2-#3
END2
WHILE[#3LT#4]DO3
( e4 P5 q# m% o1 T8 ?0 _#3=#3+#4
0 f8 v% O3 [* ?#4=#3-#4
& Z& ~6 c' \7 P7 Y) P1 |#3=#3-#4
END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
" [, F* F4 r0 K1 H2 J

$ B; a% K' h9 a) [( f法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
7 ?1 a- Y( e5 a$ R7 _# G. l2 n" ~, v* b#2=B.
; L, j4 {* H7 }+ H" t#3=C.
, d* }3 @, Q: _9 W/ ?# W: H) t#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
1 O3 s9 z; D& \$ w8 V#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
. B* B: Z$ H' W  e/ w" M: A8 o0 V#2=#2-#3
N3 IF[#3GE#4]GOTO4
* o9 U$ u* ~) W; O, L8 B#3=#3+#4
' J& P- {* Y# w) J! p" D0 g#4=#3-#4
! B* o& T; E+ `. R; {#3=#3-#4
6 d( p/ J) C9 [, D0 ~  BN4 IF[#1LT#2]GOTO1
( U" ^3 D2 l0 i1 h! pIF[#2LT#3]GOTO2
M0

羅蓋仙

) L  {- e8 W) e
法二：使用変変數^^
#1=1.
9 @3 `3 \- W6 l" w. `: f3 M#2=4.
#3=7.
: }- G: x# r& s0 X% Y#4=9.
N2 #31=1.
+ r+ S% C* R* A9 v9 g9 ^#32=2.
6 O8 i+ U2 w7 S: a# rN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
/ }' I! j( n$ a8 _9 z, D' k#[#31]=#[#31]-#[#32]
! c5 P2 |: O, o* m' t% @END1
#31=3.
IF[#2LT#3]]GOTO1
#32=4.
* m) O( H! }0 P  o: N/ QIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
1 R' o# k. b+ g# K& ?6 T#32=3.
  ^+ J0 a, p* X$ r2 m% i+ m( uIF[#2LT#3]GOTO1
9 d3 l6 u( [6 q- i8 CM0

, D* C3 {9 i! q* l: }: t看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶