數據交換法的使用

羅蓋仙

' q* T! z1 _- }( \- q
8 ?& S2 {+ C6 E& ^上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
4 v% B' |, ?/ g- l( _
) }4 t# F, n  v如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
: F: b* D) q3 y$ V% T2 J  L使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
% }8 }. c. v0 B3 H' |0 q) f1 S方法A：
1 Q  v9 X5 v% L! L8 o( j+ V0 EIF[#1GE#2]GOTO5
  n/ T, @/ J* k' Q5 z  N7 Z#1=#1+#2
1 u$ I7 X5 T. R% V#2=#1-#2
#1=#1-#2
& D# z4 I% i* G' I' O- ^#3=#3+#4
1 j0 D* _' z: Y- p5 c#4=#3-#4
+ i9 f, x3 o5 h& o9 }" T#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
3 E" D  H8 |  b! ]
' X0 \4 L' V( |0 z0 M+ o' i我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
6 t, `3 U' d0 s# U$ c+ _方法B：
( O! r9 \! t' V8 r7 RWHILE[#1LT#2]DO1
; P: n/ I. ?7 U#1=#1+#2
#2=#1-#2
( O; |& r# s& J/ g4 U( x* `#1=#1-#2
' q% s; C) y& y/ b0 Z#3=#3+#4
4 k* m+ \% m, B: \- W#4=#3-#4
& n9 a) z  m( V' z#3=#3-#4
' A  U/ a6 n) D8 iEND1
" c7 p, ~# {5 }( q% b& Y; D: c* J......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
2 X2 c; E$ ~8 a
! a, N, E: z- }/ P" X& L9 q/ e方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
: m: l. x+ U) |( ]( z' ]( M  {, q#1=5.
#2=10.
1 F3 y6 `0 v; e8 c6 W4 x! A# f% W#30=1.
" n2 a  |( H+ J& P1 D; x*#31=#[#30+#500MOD2.]
& k; A7 u3 f% A( ^M0

" J! ^$ d& e6 d: Z又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
& _, x6 }' c- r7 C只有逻辑判断有些系统版本不支持
* C! Q+ O0 V* @8 m+ x3 f% `所以，以上语句可以运行的

羅蓋仙

% @- I1 V1 v4 Q- k; L& p
使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
# {/ H- E, m" O+ f. X5 d( K9 }#1=1.
#2=4.
#3=7.
0 r" j3 O9 w/ W& O#4=9.
  g- E+ o/ u! F  X& |0 p4 w0 ?N1WHILE[#1LT#2]DO1
#1=#1+#2
# t8 _$ w7 o; ?0 n9 @5 H#2=#1-#2
#1=#1-#2
4 I: n* x3 G+ Q4 e$ J" H3 wEND1
5 r$ Z4 p# o& ]" {N2WHILE[#2LT#3]DO2
# _: X5 h8 D5 E# h+ c#2=#2+#3
# W0 C; {! W& D' E, L7 L#3=#2-#3
#2=#2-#3
END2
2 y. `$ }4 R2 q0 M3 UWHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
7 [- z6 \5 {. H, W" z#3=#3-#4
' P. Q0 N, ?3 VEND3
5 O" w( Y6 ]) c7 d+ LIF[#1LT#2]GOTO1
# N7 G* w. o8 d0 |7 ~IF[#2LT#3]GOTO2
M0
) A/ x- _2 s5 i" d0 |% L$ f' s: d

法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
& g2 U: ]6 o. f7 y2 e#2=B.
; L( B  H( V' }0 q) {#3=C.
, Q4 s+ @& W' P# a: Z3 {$ |3 g#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
; d4 x5 p, u! |9 u$ W' M#1=#1-#2
$ G: D9 @' z5 z% b0 ]# pN2 IF[#2GE#3]GOTO3
. d' L4 l0 c# D#2=#2+#3
#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
) ^- K1 l7 n; A) v% l#3=#3+#4
#4=#3-#4
  j) A% E2 T* r( ?#3=#3-#4
N4 IF[#1LT#2]GOTO1
; X1 V8 s3 u! V& W9 h# T% }7 g  cIF[#2LT#3]GOTO2
" n" b* o6 h( G8 ?$ uM0

羅蓋仙

/ j4 S4 n- S) q! }/ x$ S" P
法二：使用変変數^^
7 u! A: I8 _8 i& M* v) @8 L" d) |#1=1.
8 }' ]* n: u& V* P6 q#2=4.
1 N5 i# Y* J  B% z#3=7.
9 a  j" ?+ f' r#4=9.
N2 #31=1.
! ^; M+ w1 N3 ~4 x3 W+ f( S#32=2.
' S/ D4 f! m9 R6 N( A0 ~. w+ k  dN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
#31=3.
IF[#2LT#3]]GOTO1
) C( i" T; M/ P) H+ M3 t7 I#32=4.
6 @; Y5 f  a5 b' n3 Q+ y! E2 E) dIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
. g" I( J. g( X2 P#31=2.
7 Y/ z' Y( u  M- k. V! W#32=3.
4 X2 e. C* J: y- `# ^" `IF[#2LT#3]GOTO1
0 I3 X+ ?0 b; |$ EM0
& ^. I5 N/ P" X0 L1 _$ g5 q
0 F2 R/ a! t- D* t( n; M看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶