數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
% O7 [* b% c$ O# q
6 l9 ^: t. M2 ^' Y4 r如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
: h( e% F4 s; h; S( T: u! e# d使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
+ P) k& P9 Q4 u方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
% P8 i3 p$ y6 n3 B( S5 t3 g#2=#1-#2
#1=#1-#2
& N* t, L, V9 B2 Z#3=#3+#4
4 L2 Z: I3 ]& m# x) Y; M#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

. [9 u) F# r% ~. P& H1 `我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
% A& L* }1 \. h$ ]/ T( h. Z方法B：
* v' b/ q2 ~6 i1 R8 @, d! j0 I9 JWHILE[#1LT#2]DO1
; l1 w1 {$ o1 }) c) k' P. _#1=#1+#2
7 C5 T8 b) W; D5 Q/ M$ |2 C* O#2=#1-#2
#1=#1-#2
5 O8 k, C' B4 I  |; H7 L#3=#3+#4
# V- O! p5 x' \+ R( B#4=#3-#4
#3=#3-#4
END1
, a+ W# Y  `: i6 j* G5 {......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
8 `$ ^7 S0 Q! F. n  L- v+ ^
6 {% ?/ Z6 V  p方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
, [& r9 B( A7 g/ h5 u4 S% N#1=5.
#2=10.
. K1 j8 S+ W  m% _#30=1.
*#31=#[#30+#500MOD2.]
M0
" S+ i7 B5 i; F, S
又想把它這樣寫
- B2 U' ?* a$ m9 M# J*#31=#[#30+#500AND1.]
) j. P: E% Z' R/ [  T" x) |4 ^M0

空气中的小鱼

回复 2# 羅蓋仙
: g( q0 u8 c: h* T! `你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
+ E# r# K! n" q所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
5 {9 }6 C$ |6 o6 \2 \法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
( ^& L7 v; Y' f/ o  E) f2 t#1=1.
#2=4.
+ f/ P+ }! t3 \3 o* s! N8 S% {#3=7.
#4=9.
6 X* u. X% i, c9 A. @7 pN1WHILE[#1LT#2]DO1
/ f8 d4 y) \2 Q, l  [4 c#1=#1+#2
1 ]0 A! A: |3 h# X2 F6 A1 i: L#2=#1-#2
3 ^' u! x  u& v#1=#1-#2
$ t1 c/ w7 M/ ]. w. b0 HEND1
- u% f: c+ t: w# V2 Z3 i: ~N2WHILE[#2LT#3]DO2
. J, @- a4 R% d; Q" V#2=#2+#3
3 Z9 u( N4 n# `! y" _#3=#2-#3
#2=#2-#3
% g" e2 S/ z, @8 e5 vEND2
WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
#3=#3-#4
END3
' i$ ]1 B' [* z* s4 ^& d1 M9 ZIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
: g+ [# E1 N% L8 b9 x" A5 C, q- R
, \/ {9 W0 f% Z1 Y% {  ?8 R
+ f9 ]; j  ]* E- |4 Y7 a法1-2：使用一般耳熟能詳的IF-GOTO
: M2 r" f) B2 e6 k#1=A.
" c4 j5 ?  _9 v, [4 p6 b  U#2=B.
#3=C.
3 C+ ]" I% b, z  y% f+ B! u! ]& R#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
* i( J: a$ N3 q3 X6 h+ a#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
7 z5 b8 y. X2 m2 O, z#2=#2+#3
  j& N) ~8 p5 Q5 Z9 d6 N6 Y#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
' i1 o. {2 ^5 `. q#3=#3+#4
#4=#3-#4
- h% Y- x! R$ M$ w+ [/ C#3=#3-#4
9 }: V% X; e7 l' G* b0 VN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
+ V3 O" k. i0 B0 GM0

羅蓋仙

/ H! F2 A% I* g2 I* J5 n3 L
2 Q3 x+ @1 N, d2 `/ s) s) D法二：使用変変數^^
#1=1.
+ o- {# p' e! @  L- S, r2 [#2=4.
#3=7.
#4=9.
N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
* y* z6 K( c6 B% Y& ~* ?0 p7 h$ Q#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
3 {  L7 u- y+ S: ~" v' w0 XEND1
#31=3.
. _& a* C8 B1 J! n$ A. I8 E3 RIF[#2LT#3]]GOTO1
) y6 n& `1 g4 Z( _, D6 m#32=4.
3 ~) G, M, x7 x5 fIF[#3LT#4]OTO1
& p3 s4 N; b+ ^3 |: l, [( ?5 p5 sIF[#1LT#2]GOTO2
#31=2.
#32=3.
IF[#2LT#3]GOTO1
, K" g& a9 U8 H* D- W# XM0
+ o  i6 G+ E  @3 E' b% e8 a5 {% k7 K
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶