數據交換法的使用

羅蓋仙

7 `1 Y: W! Y' r$ o7 A6 c& }* J5 B上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
: a, o  w! Q4 g  ]  S，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
: D! z) o3 Y2 T: \4 I' {
5 ~( K0 {1 U$ Z/ h) u5 W如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
5 C! c" f8 S8 W/ b( E1 Z方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
/ I8 v) m" z2 l* S#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
0 P# n9 i( w8 Y, L; U' x#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
8 |0 q. C! R) |2 A! u
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
( E# b$ x1 j# ~9 d- S  O方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
" J" [: ^) M: O8 t#2=#1-#2
#1=#1-#2
! \) g6 z6 z- t4 Q- P0 p) a#3=#3+#4
! P- o. w5 p3 [0 B#4=#3-#4
. U. |1 Y' _% s7 y; k. E4 l#3=#3-#4
, H5 v2 O- P' B, Y: U( hEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

5 v/ p( s3 y3 V" O) `( a1 x# t! m, A) u' k方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
6 F, y- X3 h% l5 u  f#1=5.
#2=10.
% k. G/ ]" i6 `5 ^: W#30=1.
: k2 m6 R, H1 s2 @9 j- ^*#31=#[#30+#500MOD2.]
+ A$ e; R) `5 t4 a% qM0
& a  c# v- i  ~* }
又想把它這樣寫
/ z' Y3 ]- v+ C: C1 d5 f- H2 f*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
6 k7 M; h6 K' c" z* @: P& }3 t只有逻辑判断有些系统版本不支持
- j* n& v  V5 j3 B, W# O8 P6 @所以，以上语句可以运行的

羅蓋仙

' ]6 ?1 k4 r. S! V5 t4 s
, ?$ j/ ]" C* s* l$ H! N1 n使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
0 f; r( N0 `9 j' f8 {! V. i# C#3=7.
+ }1 K, [, b; ~, F3 h+ L0 k2 N: Y#4=9.
& L3 O. c3 B% [9 W, f$ Z% dN1WHILE[#1LT#2]DO1
( i3 A1 @  C, m2 I& P4 ?: q: v5 w#1=#1+#2
#2=#1-#2
#1=#1-#2
0 @) j4 D8 R+ O7 E; b( ]; Y$ IEND1
6 k, I/ |9 T  gN2WHILE[#2LT#3]DO2
#2=#2+#3
* h% s+ R0 W* f#3=#2-#3
#2=#2-#3
5 S1 [' I- Z6 XEND2
$ e; a4 A5 g' J+ {- x- T* P& A+ HWHILE[#3LT#4]DO3
9 y% B6 n& y8 X2 O#3=#3+#4
#4=#3-#4
5 F! b0 n8 u% S, v- R. G#3=#3-#4
END3
IF[#1LT#2]GOTO1
3 K& }! M% F5 l0 Z  ^7 y" aIF[#2LT#3]GOTO2
M0

7 B: i8 T7 ]: f  Y* _
法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
( O+ k1 x+ n: ~  {# n7 i1 b#2=B.
#3=C.
! [. B  l8 o. Y& E1 ^6 y#4=D.
N1 IF[#1GE#2]GOTO2
5 T: @2 W9 W  A/ y. C3 k#1=#1+#2
#2=#1-#2
0 _+ S2 r2 g/ }. W' X! j#1=#1-#2
N2 IF[#2GE#3]GOTO3
6 z1 |8 d& H) M#2=#2+#3
, H5 {! j& U( \#3=#2-#3
( G4 @2 a( A) z& a# u/ J4 _#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
5 _, g6 [6 Y: H/ D+ N#3=#3-#4
N4 IF[#1LT#2]GOTO1
8 M1 ?. a. s8 X5 D  @9 k) X( \; l6 }4 o) J  {IF[#2LT#3]GOTO2
' h% D  X% ]" E! L# j. g* oM0

羅蓋仙

' Q9 C! ~, D9 q" k5 x/ t, W
! j3 z" ]5 k0 V7 e: ]' z! f法二：使用変変數^^
& q! ?- L- \) e) i#1=1.
#2=4.
4 E0 y7 P0 W( e3 e) z#3=7.
" i+ e  N6 B; F- [8 j#4=9.
$ _# Z- t5 {$ ^7 y% f" w- D) m; iN2 #31=1.
) ?) |( l; F$ P( y#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
' ~" F9 B7 E+ X$ [8 \#[#32]=#[#31]-#[#32]
" \) n9 v, a! E# s4 H2 H1 z#[#31]=#[#31]-#[#32]
END1
#31=3.
IF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
/ a; y0 ]8 O! p0 tIF[#1LT#2]GOTO2
" y7 m$ \5 e( y$ m) P+ ?$ Q#31=2.
1 \. T" a% H# b0 t% G! s#32=3.
IF[#2LT#3]GOTO1
M0
# t6 S+ i+ x+ `1 h" O! \0 i
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶