數據交換法的使用

羅蓋仙

7 y0 t4 l4 g; ~/ n) X上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
. `" _7 W  B5 n1 t0 B4 F，我看完之後有灵感，
8 q$ J% {+ F9 t0 b. G有人說數據交換法.能用于何處???我來舉個例子
5 r. u+ m; }, H. p/ V
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
  ?/ W% |( G8 _7 i6 i1 G+ ]) S使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
9 `( R! H2 k$ ~! T$ u$ I  V% kIF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
; a# Z2 z' ^& I( d8 }. V1 DN5......此時#1的值已經置換過來了.#1的值一定比#2大

$ w5 Z. X' _3 U( K0 x' `我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
) ~6 n0 y# Y; p" r方法B：
9 o9 w8 N4 A8 sWHILE[#1LT#2]DO1
. x8 H3 T4 D8 L" O1 g7 p#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
, f) Q5 x6 ~9 M#4=#3-#4
#3=#3-#4
: I  F! W0 f& s6 B$ WEND1
5 N. g, k& O  F/ F& z# P) F6 r" y. [7 k......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
, R$ G. f* b  `4 H4 G' K
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
3 L+ z5 w/ f1 H% z' B$ w5 n" u#1=5.
#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
* ]) v+ r* @" j4 W: xM0
9 H" _: q% }) N3 U, H1 d# X0 Z
/ L) A3 L7 D; l- }  w又想把它這樣寫
7 ~  {. U: @! v1 R*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
7 {( m9 S) y% b+ S  J% r  K你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

* E) k4 j1 j: |
" {$ J2 m% v( u  j8 ]$ Y使用數據置換來按大小排列，大→小
, P" N; Y9 C0 E法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
: _9 T+ A# K% [7 f( r#1=1.
#2=4.
#3=7.
#4=9.
4 K) e4 L  M. n7 d! g8 P' h' CN1WHILE[#1LT#2]DO1
( H: c; z- @; P, v, D( Z8 p#1=#1+#2
#2=#1-#2
#1=#1-#2
; c1 {/ d1 _9 \% O# t6 rEND1
- g# c3 H- Z7 O$ tN2WHILE[#2LT#3]DO2
, P) P1 k- F4 T. O, ^6 A#2=#2+#3
) q* w" q* m; h#3=#2-#3
" {% a. A1 l3 B#2=#2-#3
1 y7 x( N, |$ ~9 y8 j" uEND2
  I+ n. T; i# c7 n: QWHILE[#3LT#4]DO3
#3=#3+#4
( C9 r- {1 T# ?- e# z) M#4=#3-#4
: `# V0 M' F8 ?2 u# x4 H#3=#3-#4
END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
8 X8 o3 g5 [6 B. Q2 S7 r, r

( U9 h$ |1 F; K法1-2：使用一般耳熟能詳的IF-GOTO
; G0 f& _5 K& O! @#1=A.
#2=B.
0 ?1 h2 @- ?% |* R. e7 s- Z#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
#1=#1-#2
9 Y2 c7 j5 n# X" f5 ~2 GN2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
$ y: u7 F. w- y3 u' q#2=#2-#3
N3 IF[#3GE#4]GOTO4
# a3 c9 K# u4 w. c#3=#3+#4
3 t+ H% E: U0 u- z" r#4=#3-#4
6 I- D5 P3 }& P$ n( h0 p9 n. C#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
#1=1.
+ k, M% k5 J' N; i! C#2=4.
#3=7.
0 F9 |& D5 A+ K5 t3 w& c( W9 }#4=9.
N2 #31=1.
, h% v3 g2 }4 k2 w. X# g$ b. Z#32=2.
% f9 s: H0 @- \' x/ l2 E- p! P0 _N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
#31=3.
4 o* t' c* r  p/ l/ A! m+ n4 hIF[#2LT#3]]GOTO1
4 Z* _* e- P7 Q1 W#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
#32=3.
8 a6 m% B! h- A% i" RIF[#2LT#3]GOTO1
M0

3 D1 m3 L0 M0 }看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶