數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
; U1 u3 f/ ~$ s" h) R1 \" V" v3 i，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
- u6 R# a: P- o5 X% E#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
( T  o  [& A! e& k7 q#3=#3-#4
. J: J. b# d# I. H3 @7 qN5......此時#1的值已經置換過來了.#1的值一定比#2大
; t1 y2 A# A# r* a  D
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
9 v+ i# [! `. E" ]7 r9 dWHILE[#1LT#2]DO1
% [! ]& a# P7 h7 r4 i#1=#1+#2
#2=#1-#2
0 Z2 B: {7 X1 a/ a#1=#1-#2
; k1 O4 j% N6 C) I  o) S#3=#3+#4
#4=#3-#4
* i( ~$ X  Y, P3 n/ a& k#3=#3-#4
END1
& e1 n+ E; X2 B& I4 ?......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
7 P1 d  l6 \/ w* G
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
, x) d( I: W* T( s#1=5.
#2=10.
#30=1.
  b6 w- i' P6 u, Y6 B2 v8 ]. t*#31=#[#30+#500MOD2.]
M0

又想把它這樣寫
8 K8 C) E' T- E8 @# `*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
( W/ q6 k) u  x* ]9 Z: P+ Q- o你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

" c" B7 u4 r+ |# V8 ?
% z7 N) D; ~# y使用數據置換來按大小排列，大→小
' T1 T) e7 t, ^* E$ d( l法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
" W3 k7 D# z/ K2 i) f#2=4.
#3=7.
8 A& r) i+ W8 O  B#4=9.
; w1 ^) u1 r" R4 h: X  A6 vN1WHILE[#1LT#2]DO1
#1=#1+#2
/ x: I$ |) J- ^3 h#2=#1-#2
#1=#1-#2
END1
$ K! X; M' H5 \" o9 y% ~- ?N2WHILE[#2LT#3]DO2
#2=#2+#3
9 }+ l: }+ d1 @$ U! e#3=#2-#3
( w: i+ p. k- Q) F% h" L5 o$ E#2=#2-#3
END2
5 m: ?6 h& g7 i( g9 E4 X5 v  s9 g; p  [WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
# \) o/ y. H% {% b% F) W" N#3=#3-#4
END3
5 n; Z5 k* s4 c5 ^! W2 D1 J, ^IF[#1LT#2]GOTO1
" [* D6 q6 W. @) V& l# _4 P1 j" mIF[#2LT#3]GOTO2
M0

/ ^9 F, j/ P; t+ l* F& E
法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
1 k  y; O6 e% m#2=B.
+ p/ t; S( F$ {, e' Y#3=C.
#4=D.
4 C/ m* b( R2 w. X+ _% _7 vN1 IF[#1GE#2]GOTO2
9 E+ J7 w% `9 C7 h+ e#1=#1+#2
#2=#1-#2
#1=#1-#2
+ O( h# J  e! V2 vN2 IF[#2GE#3]GOTO3
#2=#2+#3
& r+ E: H6 f  t#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
1 e5 s$ j4 |# y8 P8 \. [/ j0 l# a#3=#3+#4
#4=#3-#4
& _0 ^9 z5 Z& h, Q% r+ A- P# y/ c, b#3=#3-#4
2 v8 q6 P6 h  e) g) F6 I: }N4 IF[#1LT#2]GOTO1
& S" j- ~7 k+ r& n- a' NIF[#2LT#3]GOTO2
8 F7 S1 K4 q/ A) iM0

羅蓋仙

: y! Q% P5 [5 C! b
7 z3 {4 }6 b4 X8 R4 o- r$ ?法二：使用変変數^^
6 ~9 h! D# M* c2 @" G& }/ G% s#1=1.
#2=4.
#3=7.
#4=9.
N2 #31=1.
. {8 ^2 P( I! e; N5 s#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
; ?+ `+ P6 x3 h8 _8 h#[#31]=#[#31]-#[#32]
END1
. F7 F+ U  M/ ?2 V* Q9 f#31=3.
: Z8 S# X2 E! k+ u. x- BIF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
  z% }- V  M, I7 R* O2 o# G+ ?#32=3.
IF[#2LT#3]GOTO1
+ d/ r# a# q! r* c: B1 w% T8 c% ^M0

, ^" n. P+ E/ q看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶