數據交換法的使用

羅蓋仙

$ t' ?1 V- X6 F6 a
; `. h$ t8 W8 o上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
# T# J4 |5 r: E( [% }1 @
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
: q6 J% A# {/ J方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
#1=#1-#2
- a. p1 D' w# Z  Z#3=#3+#4
/ y! n+ C! T: ]: f! Y' @' r#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
" }7 q( s% n! m3 M( g: x5 ?; t
2 H* t- m  I9 c; a% c我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
  W& m1 E/ Z$ s; y: {* }7 u. HWHILE[#1LT#2]DO1
#1=#1+#2
  ^2 {; |+ v6 T* }3 t# A1 N2 O#2=#1-#2
#1=#1-#2
#3=#3+#4
. L# I* B! l% I( U#4=#3-#4
; |6 }6 M1 ~% p#3=#3-#4
2 H  o' u& K& v& b- H9 T6 JEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
3 t( G# q7 _7 M7 b( T#1=5.
: [- A! Q  [8 o4 k0 c) t* v1 t) {7 ^#2=10.
. k; u% B/ `; Z9 s#30=1.
5 C! j, Y9 [& a: a  `*#31=#[#30+#500MOD2.]
M0
& a' e. K9 a/ Q! N
又想把它這樣寫
*#31=#[#30+#500AND1.]
5 e& m* A1 i+ f$ Y# \( YM0

空气中的小鱼

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

羅蓋仙

# C4 K6 ?% v' `0 f使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
( N* f, C; c/ R9 x- ~( G2 j#1=1.
$ z! S3 p( ~; |$ o' S3 X#2=4.
#3=7.
- [, Z4 V) B' f# P5 b) a+ R5 @$ b9 h#4=9.
N1WHILE[#1LT#2]DO1
# e, d3 H8 X# A6 Q9 _3 t+ L#1=#1+#2
. \, C* k9 R/ c" |#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
4 A  ^! e( Y: x! i# h6 C! n& }2 p! X#2=#2+#3
#3=#2-#3
#2=#2-#3
: D' m/ {, u% W* Q1 oEND2
- i0 T1 C( T' OWHILE[#3LT#4]DO3
! }( g& o' c: ~- Z#3=#3+#4
: ^5 p, A3 t- M5 R% `8 t- |#4=#3-#4
7 Q4 |. h$ K0 [' A" M4 R. b#3=#3-#4
, w7 R9 W+ o$ f& \- E6 T2 J- KEND3
5 v  X7 ^: P# B: o- s% kIF[#1LT#2]GOTO1
9 j5 S% a" ?+ A: _: YIF[#2LT#3]GOTO2
M0

7 T: z5 @, n( H; R$ V
法1-2：使用一般耳熟能詳的IF-GOTO
5 W7 F1 [- _& m7 ?* z1 t#1=A.
#2=B.
1 M. ~. k9 L1 P+ M- i2 f#3=C.
& Q( p9 R) b" ?3 |9 J#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
" q/ o; s% ~; p  h6 S4 l# L#1=#1-#2
4 z' _$ s3 A9 V8 U: MN2 IF[#2GE#3]GOTO3
( q" p/ p& ]; Y6 J2 ?  c#2=#2+#3
#3=#2-#3
% Q) Y3 N4 K  ~4 I- P; P#2=#2-#3
3 T; s( z! M0 _- _& `N3 IF[#3GE#4]GOTO4
2 \( Q" r+ T! q2 T7 n7 @& ~& S& u#3=#3+#4
#4=#3-#4
#3=#3-#4
4 o/ C% W/ E) L/ e+ WN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

9 \" j3 |- ]/ |+ t) ?
法二：使用変変數^^
#1=1.
' G7 H% S# u, D2 e! Q# j1 A1 k#2=4.
#3=7.
$ R6 n2 |: ]: n6 F* R#4=9.
. I% f) \5 d  j9 a+ Z- `N2 #31=1.
6 {1 I9 M9 N7 I* V$ K( K#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
1 P  }- k! z; m5 B5 w1 O0 DEND1
: }$ Q: U5 C1 q: v1 x#31=3.
IF[#2LT#3]]GOTO1
3 `3 D, Q0 e' N4 Q, A#32=4.
' c7 Q( x9 \, s# [9 j0 YIF[#3LT#4]OTO1
0 {9 a0 a/ X) v" a; \6 o( C; gIF[#1LT#2]GOTO2
#31=2.
5 X- K9 }/ x: x0 S1 h2 B" B3 Y; b#32=3.
IF[#2LT#3]GOTO1
M0
( m. \( ^8 v" s+ s' y! K0 {1 L, A
' c: r8 m0 z6 _' M: S) T看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶