數據交換法的使用

羅蓋仙

& u9 K; E2 o4 X. b. B. {* `
" m( d6 S& H8 o0 m上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
! x% S- g5 \' \7 L2 ?# U' p，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

( }' R% ^( c8 J* D% T如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
8 A: z  K5 f; Q: B& f! J0 g使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
; J! [1 R7 O' o0 T  |! n; Y% fIF[#1GE#2]GOTO5
#1=#1+#2
" t! C; B8 h$ E7 t" v( p#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
: H0 ?" M3 M- W#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
! u# A! y" \; j) p+ q
4 s9 v2 a  Y. r" U0 }* [2 ^1 x我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
8 `+ [; A; A0 Q6 X#1=#1+#2
#2=#1-#2
" H& _5 i6 z' Y#1=#1-#2
. N: Q) G% x9 U4 e#3=#3+#4
#4=#3-#4
#3=#3-#4
END1
# l1 X" [0 I% T' C# S( y......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
. `0 V# y4 r" p' m8 l) c- I#1=5.
#2=10.
#30=1.
& T6 V. m/ W, D# K1 Z+ x& r+ T*#31=#[#30+#500MOD2.]
6 S9 q& _# ]  w, H: u; x" X) tM0
. Y" f( W( a/ ~+ c5 D  d5 C
1 O4 D$ L+ w- l5 h, G又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
( z+ Z9 `) w' W) R6 s所以，以上语句可以运行的

羅蓋仙

! u# j/ r3 H1 e8 K
使用數據置換來按大小排列，大→小
) q( v6 z( @& y/ i法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
& a0 C$ N1 O- u* c* c: o% N( M#3=7.
6 E2 o; ^  L6 [& \; e% O( |/ V#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
  \5 m* b& b7 \4 U3 h( }6 F#1=#1-#2
END1
& P: o$ f+ ]/ C* [# ^& H  `, {N2WHILE[#2LT#3]DO2
2 K8 H7 {" J/ v  E2 @#2=#2+#3
#3=#2-#3
6 S9 i0 Y  m. d' U#2=#2-#3
END2
WHILE[#3LT#4]DO3
# M( Q8 z* K. O#3=#3+#4
4 v6 U8 F$ Q3 L9 g#4=#3-#4
( ]) H6 L) p6 C. n) t- }7 p; |#3=#3-#4
END3
IF[#1LT#2]GOTO1
, K5 _% ~2 R8 n4 N6 j( EIF[#2LT#3]GOTO2
M0


法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
8 F" Y9 o, \+ n. j  \# _#2=B.
#3=C.
$ J) X* W3 e& O#4=D.
7 K- s0 N  f# w. l+ IN1 IF[#1GE#2]GOTO2
7 D9 c& D0 B1 |8 \/ a: c#1=#1+#2
6 p4 t7 v" W4 V6 U#2=#1-#2
% L% K/ E1 r& i$ z  Y5 D#1=#1-#2
& B6 O) P0 ?6 x. `) n8 dN2 IF[#2GE#3]GOTO3
' U1 R4 B! F$ y: W" g#2=#2+#3
#3=#2-#3
) }& ?: h" Y$ }* d. z5 U#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
! o3 I) k% y5 O0 C+ Y/ W3 JIF[#2LT#3]GOTO2
M0

羅蓋仙

2 t* D3 I+ S2 E1 G( ?+ z2 A7 k
0 |) D1 _+ S' ~( ^+ w4 i法二：使用変変數^^
: V% t6 s7 @; n& R#1=1.
$ R+ R* F* m4 l* \; u4 {2 c$ ]! ?8 s9 K#2=4.
  j8 ^" M" C- @/ Y1 P5 D#3=7.
#4=9.
N2 #31=1.
, O. R8 }! F4 L0 l/ E5 s) r#32=2.
- L6 }9 _/ o2 C4 s' U5 b3 wN1WHILE[#[#31]LT#[#32]]DO1
+ Z- P6 i6 D6 q, ^#[#31]=#[#31]+#[#32]
; b- V  A2 G: p; t6 q6 m#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
0 J  R# I+ q% Q. KEND1
& k  _3 y4 d9 ^#31=3.
IF[#2LT#3]]GOTO1
( h$ o: Q9 R( k5 Z2 ]#32=4.
IF[#3LT#4]OTO1
3 T& ~6 w2 P) i& S; pIF[#1LT#2]GOTO2
* B3 W, N5 z5 |#31=2.
#32=3.
IF[#2LT#3]GOTO1
  N( Y' e$ |/ `! f9 wM0
9 ]) x: [5 v3 D2 w( t" z! }: M
' i, S3 R" v2 w. m! b6 u! y* C看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶