數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

* S& B" \0 Z% l" d2 e+ ^/ Y$ |如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
#1=#1-#2
; F* K+ P/ e! K; v#3=#3+#4
, i; I" y: e- X  p( G. \! t#4=#3-#4
. ~$ u: X7 l% U- y! \8 \: E+ A#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
; ^; J7 {* _; q5 V. y$ e' n1 Z
9 g$ B0 D/ L6 n6 {我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
5 H4 s' M3 I* f# |  H9 h: @$ rWHILE[#1LT#2]DO1
, R& r+ g5 P+ c! R) F% o: z; h#1=#1+#2
#2=#1-#2
* N8 \# P' w. ?7 i# ]#1=#1-#2
& m( w  H( m; d#3=#3+#4
0 c# e8 q7 T* F5 y5 X  g) r#4=#3-#4
#3=#3-#4
END1
: y; ]0 L" r- D7 U5 Q  l......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
M0

0 x7 j4 T& P5 L5 n& j又想把它這樣寫
; X) o/ i: B9 z0 h, n/ t*#31=#[#30+#500AND1.]
) n3 I4 R$ J9 [4 g( ^/ f3 |3 UM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

% b: o( L: J$ D/ d使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
3 Q3 g/ O+ u, c' k* y6 f5 x#1=1.
& u- t5 o- |- I& v3 n( y! A/ |#2=4.
1 O0 H6 `7 `$ _* D0 f#3=7.
8 N: `# ^! j" c2 i1 h#4=9.
5 n: G" E5 M' O1 w; @N1WHILE[#1LT#2]DO1
' M- X6 r$ D* M2 B4 A+ J#1=#1+#2
+ u9 k9 y/ K, x! L7 S#2=#1-#2
( x" X4 E: P) s  e* C# |$ }#1=#1-#2
/ U5 G* j$ O/ r/ m3 ^* ]END1
& D( @; \; F6 ^8 XN2WHILE[#2LT#3]DO2
0 {8 ^5 b2 V' I9 M+ F: O#2=#2+#3
7 @; P( j1 y' {" l5 U* {- F& l#3=#2-#3
9 Y- M$ x" y* W& O$ ~#2=#2-#3
END2
WHILE[#3LT#4]DO3
#3=#3+#4
' v+ y' o5 x! ]$ y! S; ?9 S4 o& `#4=#3-#4
, B2 }( q0 Z- k" F4 ]2 K#3=#3-#4
END3
- e) M* R% ?0 D* E4 E9 NIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
" l0 u: |( q7 w) t

' n- Y7 R5 |5 G# b( E法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
% q& P/ r) [! F! M3 H: N#2=B.
' ~5 m2 }9 \' r# T7 D0 k#3=C.
#4=D.
1 J6 I! M! o- T' P' I# f" J" U6 HN1 IF[#1GE#2]GOTO2
& ]8 I5 c1 n1 P9 m0 ]# p#1=#1+#2
#2=#1-#2
' N% i" E! @5 ?2 M#1=#1-#2
1 u1 V/ g. Z' V! L; f( T: _N2 IF[#2GE#3]GOTO3
#2=#2+#3
7 [5 ]$ {# |( L9 J0 k. q6 Q6 x#3=#2-#3
#2=#2-#3
" i/ x% |2 M' j2 q5 aN3 IF[#3GE#4]GOTO4
& S! B: c0 u9 f# X$ P#3=#3+#4
/ i# Z% y2 W0 j; Q1 w0 j4 X( }#4=#3-#4
1 g& [  V. I- h) T#3=#3-#4
1 G, S( ?9 `! v4 v- p5 _+ h# yN4 IF[#1LT#2]GOTO1
* J, v+ b/ H3 w# D" JIF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
! @* Y7 t+ }" I9 K#1=1.
#2=4.
#3=7.
#4=9.
N2 #31=1.
#32=2.
: E2 ^; ?, \1 n8 n8 A( ^N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
0 Z0 p2 F$ a- L3 u) j; ^3 b' `% A0 O#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
3 j  b# e7 n# A) ]! m6 m, a% U3 h#31=3.
IF[#2LT#3]]GOTO1
( K6 N3 |' }8 [. A* Q6 E; V#32=4.
8 {6 @7 P- N1 R  a/ K, pIF[#3LT#4]OTO1
( a! h  T' I) [5 ]IF[#1LT#2]GOTO2
#31=2.
2 v! g4 @! U, H#32=3.
0 {, }3 c: j2 O/ D2 @6 m# QIF[#2LT#3]GOTO1
" T% Z: E( H( j& u" J) g( YM0
1 R/ e8 F2 C1 M* w4 Z0 ^4 r
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶