數據交換法的使用

羅蓋仙

3 e( a: L  Z; Z* x7 q$ K" x4 q
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
1 k& M2 W% k/ n/ u，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
0 p: @: C. L- {4 D6 B使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
5 f: ^, X- w! }: c( F5 M; t方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
' q8 p6 a( P  c) T0 i% r* n#2=#1-#2
- ]# ~/ F  ]7 F& D1 W* T/ M#1=#1-#2
! E6 T8 C0 [9 `# P  ^#3=#3+#4
; F/ Y- Y  K, |' e#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
" \. J5 _' {/ [; Z+ x5 Q" h( T
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
7 A# K% y$ Y8 S1 T% i9 z, e方法B：
+ z% D8 g9 C: P/ [) CWHILE[#1LT#2]DO1
& T- F% u& {1 X8 t( r/ D#1=#1+#2
8 j- I  Y% Y% |7 |  l1 L1 K0 T#2=#1-#2
2 ~) y. s3 w1 g5 N! D, b#1=#1-#2
2 H# }1 ~/ Y$ x" E6 e. r#3=#3+#4
( F% W! @+ i% e) m# X) L#4=#3-#4
  u, g& B+ J3 G* F; O7 E#3=#3-#4
END1
0 P! |, i7 m* F: g2 }......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
3 {' c+ B5 }$ D- t#1=5.
3 r' j0 p; ?0 s#2=10.
#30=1.
" F% n( |- X- N1 C* K& e- [*#31=#[#30+#500MOD2.]
M0

. }2 I/ E2 E1 J2 Y8 M2 l( E又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

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

羅蓋仙

0 I$ C' p, e  D8 p: A使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
" h' v! ^# z$ Q# C( p2 d#1=1.
#2=4.
#3=7.
#4=9.
/ m; D% N% t& O* N- a  M8 L) p% ~N1WHILE[#1LT#2]DO1
" z9 B/ \7 ~. T#1=#1+#2
, |( W. k+ [! {' v% t/ X#2=#1-#2
+ N( d5 `2 I) q- `3 E& ?#1=#1-#2
) O2 M0 ^0 A2 P: m- }3 BEND1
8 [, Z% |& |* i; `N2WHILE[#2LT#3]DO2
#2=#2+#3
/ O  V) W" o8 Z6 X" H# z#3=#2-#3
#2=#2-#3
: O. S3 t2 P0 k' B# m# q5 dEND2
  }0 \; L2 V6 i8 D: t6 LWHILE[#3LT#4]DO3
#3=#3+#4
$ y. ?  |0 v( v2 O' x% x9 h#4=#3-#4
#3=#3-#4
7 l$ \' }" s, y- o! ^END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
: ^0 {  j9 A% T2 I, y& n- N2 F

! x, ]+ M3 I4 F+ t5 n; _, X# H1 o法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
#3=C.
0 t" C2 `& [1 ^, R. l* i#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
0 W- I6 J( v7 r/ l#2=#1-#2
* q# `- K- _0 E#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
: g* j/ x% K' i6 D) S#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
7 Z4 f6 `8 o! X. z: k; F. p4 `1 j#3=#3+#4
8 h9 R+ E: p/ t. y#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
7 E* M' o) {/ ?3 M& L; I7 gIF[#2LT#3]GOTO2
1 |' V  n2 g$ X. H; i  [, ?% _0 c/ iM0

羅蓋仙

( j# \6 w1 H/ b9 \; ^" e! C法二：使用変変數^^
, I" q7 q; y2 H# c; z#1=1.
: i  l0 r$ }! Y5 `#2=4.
#3=7.
#4=9.
N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
2 }# u, e" [0 x. c" j#[#31]=#[#31]-#[#32]
END1
#31=3.
IF[#2LT#3]]GOTO1
8 M# [8 c9 ^6 g* m- q! _) J2 D#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
: g1 b* e0 k% @! x8 _7 v#31=2.
6 G( \& y) D3 i) I1 X8 `/ A& j#32=3.
IF[#2LT#3]GOTO1
: t- ^7 P4 b6 H8 tM0
( B6 q- X. t6 H0 G7 ?
4 S; J+ O+ _# p% i- L5 U看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶