數據交換法的使用

羅蓋仙

4 M+ f! `( \- ?  F: Z! o: Y6 U# l
& ]1 {. J1 r/ i. J2 K) m* }上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
0 _5 G- [+ x, Y，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
; X* e, i" H, l) e6 D$ c" l9 ]使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
% K' p5 B$ i, `) g方法A：
IF[#1GE#2]GOTO5
8 U0 |% t8 ^/ G& W* ^, P; F#1=#1+#2
#2=#1-#2
! {( J" J/ ?7 P# k& a# L6 v- K  Y#1=#1-#2
#3=#3+#4
#4=#3-#4
" a; t$ c0 T) e; w) k: m3 L' f8 c#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

5 B7 t( ^6 X: H) l" t9 M+ F- ?我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
, I. n9 o( u1 F3 S6 V2 }# i, d" BWHILE[#1LT#2]DO1
+ l( s) z: }/ ^, @4 D#1=#1+#2
, q! h, z# \4 }. _* i% F7 z" w#2=#1-#2
9 W3 u! R( y" T7 q9 f: N#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
6 o& y) o( `, m5 o. n% S' G" uEND1
, A# x4 q1 v; e2 x; H0 ^......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
& K6 H! u3 ^+ H, @" v9 n
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
#30=1.
" C# ~. p+ y/ P0 ?*#31=#[#30+#500MOD2.]
/ L6 A% z4 K7 D+ NM0

又想把它這樣寫
4 N: N: }4 r' R* @*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
4 e6 x! _0 Z& }* T' Y7 Y# u只有逻辑判断有些系统版本不支持
6 t/ a4 V2 W6 Z- Y0 x所以，以上语句可以运行的

羅蓋仙

4 N, T( U/ I, W; l
使用數據置換來按大小排列，大→小
; [7 }8 @( F4 j! r% V2 a; k9 t法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
, L2 ^, z; m) k9 z: G, {* Z#1=1.
#2=4.
( U% a! _2 i( Y  w#3=7.
- Z9 h. r" v# q7 a3 x#4=9.
# t! L$ e2 a: z6 Z- A3 v6 qN1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
( C1 I8 p% ]6 L. @! t) P#2=#2+#3
! J# A7 I+ c" O/ a#3=#2-#3
#2=#2-#3
END2
WHILE[#3LT#4]DO3
; n! w# u; P3 }1 E#3=#3+#4
* L# @; j* D/ O#4=#3-#4
+ ^# w3 G8 e* g#3=#3-#4
: v! T" v, t: q" d/ AEND3
6 y. b" z5 n, Y2 V' l* PIF[#1LT#2]GOTO1
0 K3 X$ t! q( o1 }: {* m! jIF[#2LT#3]GOTO2
M0
0 c. n8 ]- z) f

1 q: a& b6 y8 F; k, m  F法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
& X7 }* f: {( X+ T#2=B.
% Z- X. X9 n2 j2 N- i/ J: M8 Z#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
! ^6 T' a$ V' h2 b- a* U#2=#1-#2
#1=#1-#2
  _+ P( v4 m& Y% y2 xN2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
7 X! i7 t, P0 j  k8 r! T( J#2=#2-#3
( k- C6 T# I+ k8 q3 A# m; E9 J. |9 [N3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
#3=#3-#4
9 T9 x% Z) |& T& NN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
#1=1.
, ^4 @0 X, v5 g# F#2=4.
#3=7.
  v% E5 {. u$ e. _; j3 @5 w/ ]#4=9.
1 \" q3 A1 t! u% T5 J8 h- wN2 #31=1.
#32=2.
5 {5 X7 f+ [0 D+ IN1WHILE[#[#31]LT#[#32]]DO1
/ Z: I8 v6 [6 a7 \& N#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
( v9 M8 E1 D0 n6 J#[#31]=#[#31]-#[#32]
1 G7 c' l6 d# Q* u' r: ~$ nEND1
! @* a# X2 U0 }' k, h#31=3.
IF[#2LT#3]]GOTO1
#32=4.
% f  ]$ B7 @1 e8 FIF[#3LT#4]OTO1
% h7 C9 M3 j% B" nIF[#1LT#2]GOTO2
#31=2.
0 w4 q- Y) g8 h% u/ f+ D, L#32=3.
IF[#2LT#3]GOTO1
* e( B1 q6 h# f! z/ K  sM0
5 Y3 {* `; B' B1 t+ d
: T4 L( U+ x. Z. U看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶