數據交換法的使用

羅蓋仙

1 J# P; [# n4 |. H上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
8 R! Q" Y3 V5 ^* f4 Y$ `，我看完之後有灵感，
# Z$ `4 J9 G% ?8 N" o0 J有人說數據交換法.能用于何處???我來舉個例子
* Z. L, V% @2 U/ V$ Z' o
* U6 u+ l- M  X  }% x) a; @$ Z如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
% }4 ]- L) o, l' O& R2 v6 M7 _使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
0 X( B, _* \+ d9 b6 v# K" I方法A：
) L' h9 L& l* g; O5 wIF[#1GE#2]GOTO5
3 e. n& I  h) y* l" S: _  U/ m#1=#1+#2
#2=#1-#2
* q8 ~8 z/ `1 W+ R; s. C#1=#1-#2
. _# Q; t# Q9 I" a9 m#3=#3+#4
#4=#3-#4
+ H+ |& A3 a$ @5 T6 u% ^$ i#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
6 a) [& i) E" ?/ S% n
6 H" A9 x- }$ L, h( g我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
& ?( U6 E5 B; q9 s! f+ C! h方法B：
WHILE[#1LT#2]DO1
: X+ T) l3 `  Y* s* D. {#1=#1+#2
#2=#1-#2
  W$ z7 p# F2 V9 V) h) k% A$ I#1=#1-#2
, M6 K$ L7 b+ A& [5 J3 N#3=#3+#4
5 n2 @# S# {* y9 j+ P#4=#3-#4
0 M# Z/ [7 t+ W, s1 z# l; M/ O1 B#3=#3-#4
7 [0 I: d0 t1 d% g. U  K5 |END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
/ x: x% `+ T7 x! C! M8 ^! e: m
5 I6 ?  ?) M) _" q* m. O5 x3 }方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
# R- W' Z! ?* \; s# g3 B3 ~#1=5.
: Q* _' z% D2 k! C7 w* j#2=10.
+ W2 ]9 B! q6 X6 t#30=1.
*#31=#[#30+#500MOD2.]
M0

) p, ~0 [& g; i5 J; @$ s又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
+ H4 f! u+ M' D7 }; D你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
7 D6 w8 ?6 u# j, J9 c2 [+ Z! P. D: f法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
! s2 \* b1 ?/ P0 J#2=4.
" L+ u& s+ ?2 o: s0 A" ~# I+ t#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
0 A$ ~) q, j8 m$ Y#1=#1+#2
#2=#1-#2
#1=#1-#2
' \; c& U; @' g1 V0 o; K4 xEND1
N2WHILE[#2LT#3]DO2
* I) t2 R- z! q" s6 U8 r#2=#2+#3
#3=#2-#3
4 h6 f/ d* g/ g: p& {5 B#2=#2-#3
END2
WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
#3=#3-#4
  R- T+ M, {* ^& c/ A& OEND3
IF[#1LT#2]GOTO1
) @3 h' {8 K: y: LIF[#2LT#3]GOTO2
0 ^3 u* C! _% ~6 U6 N' \5 \' j5 b1 QM0
- a- j2 P- K; T& w
7 z5 j1 `" j# m3 i7 k4 Z
法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
2 P/ Z& p& G0 e  A/ V  t#2=B.
#3=C.
) x: ]& R& ^4 Q* h9 p#4=D.
N1 IF[#1GE#2]GOTO2
3 B6 i( N: y; @! N( Y#1=#1+#2
% m; n, Q, X) a3 @7 t#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
3 y  \' I9 V5 R5 M#3=#3+#4
#4=#3-#4
#3=#3-#4
1 n# J, h8 `: WN4 IF[#1LT#2]GOTO1
( Q! O) i+ ?+ M! z3 l& P. l3 ]IF[#2LT#3]GOTO2
M0

羅蓋仙

4 k: Q# B# y, M1 k) T* H6 I法二：使用変変數^^
7 p; R/ a# b& s, ^( W5 G#1=1.
#2=4.
$ Z; ?; A& v* j: a#3=7.
5 u9 l* K! B4 C9 R) `- Z" }#4=9.
N2 #31=1.
# L/ t1 K( S6 K2 T. L+ @1 b#32=2.
  p7 W+ C, I( ~: N+ B# G% QN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
0 K1 V- M3 A8 K8 Y5 A8 C) s' v5 ]- L#[#31]=#[#31]-#[#32]
END1
! g/ x6 m7 I: o+ v1 _+ K#31=3.
# l" {" m6 o  n5 }# \6 nIF[#2LT#3]]GOTO1
#32=4.
) g4 a+ l# C0 p/ B6 e7 O! b2 D6 W) sIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
2 \% ^1 G) v4 G#31=2.
#32=3.
! q' C+ V9 @4 kIF[#2LT#3]GOTO1
M0
. |( n7 f; r& \" P! }) s2 x
4 _- W3 B& a; k# F( p& Z$ `看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶