數據交換法的使用

羅蓋仙

$ e. N: @! s5 B0 B# ~+ W上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
' T" Y$ w4 A( {* M4 s( O" h，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
4 O1 d# f" }4 u6 g' r- K) F
# `4 l) S# u7 o, m6 j如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
, A# v$ ?2 `/ C) T' e: M5 O6 O方法A：
2 H+ R8 l; P. U5 z/ T. @IF[#1GE#2]GOTO5
- H3 |; x0 N2 B#1=#1+#2
8 S  a  d+ Z1 c- U' y#2=#1-#2
#1=#1-#2
#3=#3+#4
0 H. _" @/ L* ]! J#4=#3-#4
#3=#3-#4
5 @% I7 O0 B8 E" rN5......此時#1的值已經置換過來了.#1的值一定比#2大
, x6 z0 V3 L  J( s7 P3 P2 ^
% M% h9 q. z: X4 R5 N  |我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
5 K2 D& W2 a7 P3 ?# V" X方法B：
WHILE[#1LT#2]DO1
$ ]/ c: r  b2 H0 ], y0 I' x9 }7 `, T) g5 z#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
$ ]5 g- d# r6 C4 r! t; E#4=#3-#4
9 Z" u6 K% a/ j- ]: B8 U- Q8 j4 z, ?#3=#3-#4
) {! v# x9 {: y3 S* b4 C1 HEND1
1 H5 ?9 o2 i6 j/ g# ?1 g......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
* F! _& f0 e0 w1 C& I5 M
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
2 D1 N' ]& n. M$ e$ Y5 L, L#1=5.
  R+ }' }5 `. u- A#2=10.
5 r$ H0 F9 g: g$ Q& a$ G6 l: T#30=1.
*#31=#[#30+#500MOD2.]
+ q1 N, E" j* m5 W# IM0
* u7 c0 y! Y& a7 t1 y& t) o( O
* y# l! i* i% o- h又想把它這樣寫
& }1 }& X3 w" h4 x* O- X*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
4 H9 u5 \  ?0 f. E你的表达式中没有只是逻辑运算，
: s- Z4 _9 @+ ]7 Q  D7 z6 J只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

: {% ]) O1 W. ]3 o3 r# F) f- t6 W
! |' h7 a( Q: r使用數據置換來按大小排列，大→小
" V1 c% z8 H- V* F& I  G! [, o$ D法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
2 K, W! ?" S3 ?! }- E6 E* W#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
3 z# I- h7 {' l0 \" `- O#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
7 V" j! f- s2 k2 X, H#2=#2+#3
#3=#2-#3
#2=#2-#3
END2
  U2 W* d0 L# L4 b$ k, i7 HWHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
6 N4 Z! l. ]& h/ W#3=#3-#4
3 h* J9 g, x  @6 c  y0 yEND3
IF[#1LT#2]GOTO1
- e* q0 U- X/ z& wIF[#2LT#3]GOTO2
M0

* o- d7 g- E# v0 b7 c" ?5 C
法1-2：使用一般耳熟能詳的IF-GOTO
) j6 E! v# d7 k6 g- o# d: A#1=A.
#2=B.
8 |2 p) ?" P# a& @+ z#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
1 a% S! K% f. j# M- ^5 P3 Q3 m6 e#1=#1+#2
#2=#1-#2
9 a9 c( Q* h9 C7 {. j6 G#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
# Z/ ^3 l* e' m. ]$ o4 k#2=#2-#3
2 h3 u  {1 w# T# X" j) p$ oN3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
$ B7 V7 a- @6 ?+ O# Q#3=#3-#4
; B% S& D( w, hN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

! w5 z( I3 c1 v* q+ U  x法二：使用変変數^^
* ~  [$ P9 g: m% q2 {! ^5 x#1=1.
, g3 k: j; K8 [, g9 h' w( u#2=4.
6 F3 C. L9 m9 r) e! s+ p/ m7 \( U% Q#3=7.
# W& l) o3 l' V#4=9.
N2 #31=1.
- m. c* h( c: g& E# _#32=2.
' H0 o% a  @$ R0 q8 x, n% pN1WHILE[#[#31]LT#[#32]]DO1
( P1 Q/ z' W# A% m/ \) ?#[#31]=#[#31]+#[#32]
$ p/ R( s$ a2 J6 T8 D( g! M#[#32]=#[#31]-#[#32]
* D" D! k- c9 g#[#31]=#[#31]-#[#32]
% H8 v& _  z" r( hEND1
3 ?$ G2 R# l4 u3 _5 J* f8 [  R+ ?* T#31=3.
IF[#2LT#3]]GOTO1
- u2 T/ z- ?( H9 v  L#32=4.
IF[#3LT#4]OTO1
% O9 s7 H- v& F% w6 [4 l- GIF[#1LT#2]GOTO2
: k; W  `, b: k9 p( k/ L#31=2.
7 y# M6 z1 h! _( q: L* c$ O#32=3.
  V; Q+ L3 n1 T8 i9 ?0 JIF[#2LT#3]GOTO1
: f( {7 q; i. t! B7 I. @M0
$ T' N+ q& f$ Z+ F/ z4 g
( f& Z8 Y: D+ J看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶