數據交換法的使用

羅蓋仙

* ?6 l; o. Z% _& c# H上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
6 k% h/ M1 i) S% T+ P, i- H有人說數據交換法.能用于何處???我來舉個例子
3 m9 J/ Q9 |. V0 ^! O3 E* B
0 _5 q4 x4 c6 s: h5 x如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
+ ]0 R, M" J% t  {+ r7 L/ e2 }IF[#1GE#2]GOTO5
  P& {% A9 u, X7 \/ W6 U. z: B#1=#1+#2
#2=#1-#2
4 ?! N0 j* E5 |2 h1 t) p# p; c! R#1=#1-#2
#3=#3+#4
8 A( h. [" u6 C, T#4=#3-#4
* d2 k& M! o6 C; G#3=#3-#4
" d/ h+ `9 [; g- m. s; F5 AN5......此時#1的值已經置換過來了.#1的值一定比#2大
$ b: I4 S! J* r; z4 c. T7 I9 a- P0 V
3 [) J* M4 [* U我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
7 {4 z# D( A# M& \' j5 D7 c方法B：
WHILE[#1LT#2]DO1
& F- I7 L: p+ t# G7 @7 t5 B#1=#1+#2
#2=#1-#2
#1=#1-#2
* c+ e  b: x& |5 u#3=#3+#4
: Z6 _3 a3 d$ ~' n#4=#3-#4
#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
. Z  x$ p. S* u$ `5 F- X
6 K/ X, Q3 {' b方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
' Z" i8 [0 c2 s: G) d% C/ W: ]2 S3 @8 K#2=10.
" F. x8 r( A3 G0 p& U#30=1.
*#31=#[#30+#500MOD2.]
M0

1 G% F) p$ P' Q$ M1 q) ?又想把它這樣寫
7 S& u$ O/ p* }1 {7 X  s( M9 A1 R' N*#31=#[#30+#500AND1.]
5 j- M6 |0 r. S8 k1 U4 u- sM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
5 t4 h  P* F! S' n7 {2 |9 E" K1 Y: j只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

9 Q7 l' M% M9 m, N
使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
9 b/ y3 ]7 p" p: s#1=1.
#2=4.
' N# }+ v: |" S0 D6 v+ a4 ?#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
: n0 u/ M' q; B# |#1=#1+#2
* Y& M( Q1 w2 d( q#2=#1-#2
#1=#1-#2
: {3 E5 c* o3 ^1 O* F! z0 F6 c, E; nEND1
N2WHILE[#2LT#3]DO2
#2=#2+#3
0 }2 R) O# o# \- |5 l; p2 P#3=#2-#3
#2=#2-#3
1 q7 p# _/ P3 p; y: j$ JEND2
WHILE[#3LT#4]DO3
4 F( E5 K- o; c# `6 M4 H( z#3=#3+#4
$ N7 R' I' X2 \1 _& `#4=#3-#4
#3=#3-#4
END3
IF[#1LT#2]GOTO1
* {7 F0 j$ x! \4 c% ?5 dIF[#2LT#3]GOTO2
% G3 W) N* R- [$ B; @! [M0
/ W# p; P6 @- |3 f1 J
5 e# [) R% o% E0 y) v# V7 Q% Y
/ A/ J" k! ~$ C8 \% }! G6 f法1-2：使用一般耳熟能詳的IF-GOTO
# U# |( f. O5 q7 y+ {+ J3 o5 V! Y! K#1=A.
5 s2 R5 G% x( _0 b9 F) M# \. h#2=B.
#3=C.
  T1 h5 ^" b9 d  u#4=D.
: C" W8 Q, w! a+ \; R4 w' ]N1 IF[#1GE#2]GOTO2
$ r! @: |) v* E- r' U3 n- O/ T#1=#1+#2
! c5 d% N8 O: K7 h; T1 R, d#2=#1-#2
2 w$ U- m! O  v9 Y; o#1=#1-#2
$ J# V8 H; c6 M5 T, aN2 IF[#2GE#3]GOTO3
#2=#2+#3
: D$ R3 [/ V: V$ u#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
) Y* R! _+ l0 l* z7 p; h#4=#3-#4
#3=#3-#4
" r2 n! a) `4 d# w$ ~: J+ }# G3 H6 uN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
- c6 y1 W/ X* {$ z6 Z/ \' }( z2 [#1=1.
5 A; W$ }5 u3 u, J1 g+ E5 _  @#2=4.
#3=7.
#4=9.
N2 #31=1.
# V! ?1 j1 u6 ^6 v$ e6 Z. G$ i1 A7 R#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
+ G, B" s. V! j! t1 K6 N#[#31]=#[#31]+#[#32]
0 d  f3 i; Z; D/ Y6 v& z#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
0 @$ f1 u5 _2 |! ]. X2 U; I#31=3.
IF[#2LT#3]]GOTO1
#32=4.
! V( \! }. P% V% [IF[#3LT#4]OTO1
4 x6 C# L. g" b: b% G9 KIF[#1LT#2]GOTO2
! C3 L; Z) Z: L9 G4 ~5 A#31=2.
#32=3.
6 r2 L: x* ]% KIF[#2LT#3]GOTO1
M0

看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶