數據交換法的使用

羅蓋仙

: g+ b% F8 h+ |1 b9 D  {9 k
; E2 |% H. G" L; M3 G上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
# D; x- S1 H3 q，我看完之後有灵感，
8 R' O: Q1 l% k3 w2 A- ?4 p9 S有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
1 q* l/ y/ S* m/ h/ ?IF[#1GE#2]GOTO5
#1=#1+#2
2 H% L! B/ w: b* l0 m, e#2=#1-#2
1 E$ j+ e' T% J, u) |- _7 {#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
: \/ y) G# B6 X$ ~  M& p- ]& JN5......此時#1的值已經置換過來了.#1的值一定比#2大
$ ?8 C, k) [" h0 Z5 R. Z
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
1 ^1 B: v! X) R. l. `0 M' f$ g9 i* o方法B：
  r; O5 o8 k/ O# j1 hWHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
5 X. o7 p+ Y1 {  D$ Q#1=#1-#2
1 h0 c& O, H; s$ o  F+ c  h- e#3=#3+#4
) ?; e8 l% C4 u2 v. L* Y( ]! J#4=#3-#4
) C9 j4 ~9 C( ^, A) ^! m#3=#3-#4
END1
9 A! W0 |/ i6 Z: H/ d% R3 t( z' K......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
/ H% C, `3 p1 r; x. M: }$ E
/ A: e* W' X1 `6 m9 R: b( b" Z方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
* C+ r" ^/ j% _% N2 O/ _#1=5.
9 U) K2 s  T8 g#2=10.
2 p! d3 n7 ?6 F( ?0 u! z' ?#30=1.
7 a) _* m) B4 Q' _  e*#31=#[#30+#500MOD2.]
M0
, p$ l) I3 B3 I) s
: a3 c9 O% p: }! ^* ]又想把它這樣寫
+ l. {6 e6 `+ q5 A# |/ G6 v*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
2 ^, @' g) U  V2 X4 j! K7 K所以，以上语句可以运行的

羅蓋仙

. g0 w3 Z- x8 O! p, R8 Z+ b$ s" N$ W
4 b- ~0 e( M. |& f4 d使用數據置換來按大小排列，大→小
) W9 H- @. l4 [( m法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
2 ]. ~' k: o$ {! u4 W#1=#1+#2
#2=#1-#2
#1=#1-#2
END1
  J% I/ u, e9 WN2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
, y6 N. A; B0 s% d/ e7 I#2=#2-#3
END2
- U0 a5 W; k; T, @' U+ vWHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
0 O, Q8 O# l0 G" M; X#3=#3-#4
9 \6 i" k9 I- N% A& L( \# pEND3
# B6 |8 m8 |5 I- sIF[#1LT#2]GOTO1
8 r3 |6 z+ q. fIF[#2LT#3]GOTO2
1 j5 j; c' L: ~0 z% k6 _M0


3 r6 ?2 M2 W7 R7 U& O0 k% K法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
/ I+ L  u  o( b$ H$ J: s) D#3=C.
% z7 I/ t7 H- ?9 D' U; B7 i5 K+ l#4=D.
, O+ U; g4 ?/ u0 z1 yN1 IF[#1GE#2]GOTO2
) o9 B1 j( S" C) l#1=#1+#2
#2=#1-#2
' k; |! h2 a6 M* L2 {! o$ [) }#1=#1-#2
8 D+ Q; F7 f& F' MN2 IF[#2GE#3]GOTO3
' q. t4 V: b; |! i#2=#2+#3
. b" F' {% l- I- z* l6 y#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
+ c; d) R7 {1 Q, I5 _#3=#3+#4
0 T4 S9 w& ^, y0 C1 e#4=#3-#4
#3=#3-#4
$ a+ D8 f  K, DN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
3 N: ~7 m  A2 SM0

羅蓋仙

$ I: M) j5 d  ?! B8 w) d5 P7 U: o
& j0 b# |5 n( Y3 j- F  w& @法二：使用変変數^^
! D" @6 M! @& g2 A) z; q: C#1=1.
2 i* K0 n4 X3 }* n, q2 r1 @* b, h5 b1 M4 P#2=4.
5 L4 d2 _1 N, ^. x7 S7 _: k#3=7.
6 r' M1 L. Z3 p/ z#4=9.
, [; \" C2 |, Y6 `N2 #31=1.
$ O4 I; z0 B6 I9 p+ O! j( y#32=2.
9 G. [+ o' a9 `6 w# ?9 k" O* EN1WHILE[#[#31]LT#[#32]]DO1
  v. e5 U; k) q+ a( |/ o- _#[#31]=#[#31]+#[#32]
* q( {8 f1 Z: \, i$ T' G1 E9 h#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
/ j0 s5 a' F: [- w2 E#31=3.
IF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
0 M) Q. _& n( D' d  W+ T1 Q#32=3.
: M  Z$ {& ^1 S- ~6 z6 l4 U9 [IF[#2LT#3]GOTO1
5 e3 c6 B& N' O8 U( f9 WM0

看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶