數據交換法的使用

羅蓋仙

. h* s) D' e0 M. R1 d
' R4 I% }2 w( E- G* W9 {8 a; M上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
* P, a+ O! k/ X$ W，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
, U! K0 D/ k) ?4 b. r9 {
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
# |" l) j; U7 {7 j  i$ ~使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
' ]/ G/ t! y9 l# z* P: e/ p2 u方法A：
7 \9 u  ?$ D; D) P1 z6 d+ ], vIF[#1GE#2]GOTO5
#1=#1+#2
  p/ V0 I+ z7 r) _- b0 l6 x/ v#2=#1-#2
#1=#1-#2
#3=#3+#4
& X' p9 S: k$ W& v7 E$ [% l#4=#3-#4
8 F* x- S! p. i1 z#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
) v- n8 V, ?6 b9 u2 Q" i( b
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
% n, M6 s9 W) E- ?! A  }WHILE[#1LT#2]DO1
#1=#1+#2
$ c% j) d5 B2 N+ F! o#2=#1-#2
#1=#1-#2
0 ]7 D# ]' @7 K+ P) r9 t0 T! {#3=#3+#4
#4=#3-#4
' w/ k& E: k6 a+ q* S* f' m#3=#3-#4
" y8 r- X9 ^; z( M, w0 l! J) x  BEND1
, c+ Q) l% O' `. ^......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
" {! O) q% W6 r  S# J
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
#30=1.
/ _5 M5 ^. g& t& e: r" N1 ^6 u*#31=#[#30+#500MOD2.]
M0
  ~8 ]: k/ n/ k
4 i7 r: ?" R. b& P! G' I: Q又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
8 h- A* N5 w. Q' t) a2 f你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

; A( T3 c1 Z& _, U
# U0 n4 d& o8 ]5 [3 w+ I使用數據置換來按大小排列，大→小
0 N. w, j8 w" R4 a% t法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
3 _" E7 v3 ~+ [- @5 X#1=1.
#2=4.
& |6 C8 z; ~: C( Z8 M, ]1 v: Z% x- U- X#3=7.
3 X8 m+ |5 F: U+ U; `#4=9.
/ a* E8 m: B/ C6 vN1WHILE[#1LT#2]DO1
#1=#1+#2
2 V+ X% a) b7 i- s: D#2=#1-#2
#1=#1-#2
6 T7 E& l! X. OEND1
5 v2 d# ]  ^4 z, N3 Z3 H- LN2WHILE[#2LT#3]DO2
7 }2 v; A3 q# C6 ^$ Q0 h/ i7 X#2=#2+#3
#3=#2-#3
#2=#2-#3
$ R- ], P6 S/ O  _& u2 XEND2
WHILE[#3LT#4]DO3
3 U2 w: x0 n# @( ~7 {# l5 m#3=#3+#4
3 f4 O3 V  T0 H9 W0 W: x; }#4=#3-#4
#3=#3-#4
3 E4 v* y+ [9 R: Y4 f" SEND3
* @5 d* z: a  \9 F1 U8 UIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
" C: [. x0 [: J0 q/ y  Y
& C0 b4 I! {9 R5 r+ a
法1-2：使用一般耳熟能詳的IF-GOTO
5 a- n8 J% m% m9 T" l3 R#1=A.
#2=B.
$ s7 J6 ~4 c& S) G+ Y! L- t1 i+ l#3=C.
1 t. X$ }( \7 N( [. @! ]) g! p7 u#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
, d; D5 U4 P2 T3 D# G& k#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
1 W3 Y5 v2 b9 G! B  q2 u4 p1 N#2=#2+#3
#3=#2-#3
) }9 T5 {8 Z5 K. i#2=#2-#3
N3 IF[#3GE#4]GOTO4
2 E* _+ i5 r# V1 d% ~( \* c( B- {#3=#3+#4
0 ?5 t- e9 D* V$ U3 r+ A, d( j#4=#3-#4
6 Q3 C% g/ X: I0 d6 T+ M#3=#3-#4
( f9 [8 M2 }% q' B( bN4 IF[#1LT#2]GOTO1
2 a: A. X3 P- ]/ a- O4 A" W' FIF[#2LT#3]GOTO2
1 T* y$ X5 ~/ |7 D. VM0

羅蓋仙

! F8 y; u3 t8 m) d$ Y
法二：使用変変數^^
/ P1 t9 K3 }- ]) \#1=1.
9 E% v7 H2 r# F3 P% U#2=4.
#3=7.
8 c! \" d4 {" v2 q* V6 f5 j; E* K#4=9.
N2 #31=1.
' ^- x2 x. \0 {( ]1 c4 ?#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
$ |) e8 r# u) l5 x#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
3 y: i( v7 p8 a  V; n#31=3.
IF[#2LT#3]]GOTO1
9 ?$ f! B6 j) E' v$ _. w#32=4.
IF[#3LT#4]OTO1
3 h4 g6 A7 z8 ]3 {" s  l/ ^+ mIF[#1LT#2]GOTO2
6 `) r# ^5 C1 ^0 H#31=2.
#32=3.
IF[#2LT#3]GOTO1
M0
8 M% s3 u, Y$ O* E8 n
3 d0 Q0 C# s0 L' j* G' Y0 o看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶