數據交換法的使用

羅蓋仙

: d6 @' Z  A' l) m, F0 b! f
( N7 t9 s  I/ y# ~* W: y上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
3 H: c' I0 z) M' a方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
4 j5 ?4 o- y( B0 W, Z7 f# S#2=#1-#2
  e' ?1 w0 Q" J% N: ]- ^3 @# q9 ^#1=#1-#2
#3=#3+#4
0 M& l" d9 p7 F) g  T#4=#3-#4
% G) i% R6 p0 f  E$ n- X#3=#3-#4
" \; u4 e4 s; U1 \6 R/ H2 F) rN5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
9 j# t: x7 a: i9 c4 ?2 q方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
* l6 I& k4 W1 A9 k- `. {#1=#1-#2
6 {& W2 ?# P$ a! a#3=#3+#4
#4=#3-#4
#3=#3-#4
2 v! F9 N- L8 T- CEND1
$ Y. S. O( {6 V$ a......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
' Q/ `7 ^& E2 U2 r3 E
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
+ P8 q" H3 |% T- A6 J7 E#1=5.
#2=10.
#30=1.
5 w8 d! A- s3 J: l; R& C*#31=#[#30+#500MOD2.]
: u: w5 O/ n; V7 xM0

) M4 v$ y3 o: D/ ]又想把它這樣寫
*#31=#[#30+#500AND1.]
! E2 d* @% J2 e7 gM0

空气中的小鱼

回复 2# 羅蓋仙
' ?4 ]* l- @. ^/ d7 ~: a4 X你的表达式中没有只是逻辑运算，
/ f; n& z" a# i$ J: m! _只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

4 |. h' t5 o7 D. n& b5 P使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
9 o4 i0 a. j& J1 [/ D#1=1.
# |4 j- v7 a4 ^1 P7 p* `$ p#2=4.
# E# ~  ~) a* N! _. w0 F#3=7.
$ P* D, R9 S( N0 C& `4 [' |#4=9.
N1WHILE[#1LT#2]DO1
$ N( n' C/ F1 W1 w! c9 L' ^( U; n#1=#1+#2
# \5 c" [. H) B3 b( e# D! F#2=#1-#2
#1=#1-#2
/ A. k: i' ?* n; r5 o8 f* i9 HEND1
, X; W3 O% m' ?7 n/ W8 y( K' v; s2 KN2WHILE[#2LT#3]DO2
* N( U  s- H' Y, @#2=#2+#3
7 b, M- s/ G- Q: x0 j4 f$ B4 o/ Z#3=#2-#3
" s; b7 S& G8 m0 L#2=#2-#3
END2
3 p7 k. [! s6 C5 n2 b/ X# q( x: GWHILE[#3LT#4]DO3
#3=#3+#4
8 e, _7 T  B% V# M  I#4=#3-#4
  f/ v" i, P) Y, k/ V& c1 q* k" T" |#3=#3-#4
END3
IF[#1LT#2]GOTO1
4 ]% l6 U3 f+ r: Z! \IF[#2LT#3]GOTO2
5 l4 }( q; c. Z. VM0

- }/ A* S/ j. x8 @2 d6 ~
3 X6 v: a+ S3 U/ O0 p法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
; T+ R  R  D  i9 n#1=#1+#2
#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
% y  b8 U. H. D  Q9 }+ U# V#2=#2+#3
- H& `" I- g2 e; S6 s$ p#3=#2-#3
: k' [( q! Y1 d: C* w#2=#2-#3
N3 IF[#3GE#4]GOTO4
; t4 d$ T% C1 M4 j! y#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
# }7 O1 r! n! [+ ]M0

羅蓋仙

6 Y0 E' Y- ?, R1 V% E- W
, Q$ B1 _0 d& j+ c. f3 d法二：使用変変數^^
1 x9 n* c8 r1 w# p3 y5 Z3 h( H#1=1.
#2=4.
#3=7.
5 J! m  v6 E% m4 ^6 S$ r#4=9.
$ B0 h( z; T6 Q* gN2 #31=1.
* \7 @. l1 L6 I2 d#32=2.
0 _* y! X; ^! g  {4 |N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
6 S# `' e7 T+ h; e#31=3.
! B0 V1 k5 G' p! d" r2 \IF[#2LT#3]]GOTO1
, g0 @) K/ i' D6 H#32=4.
( I( ?+ W+ |  B+ o; d  A5 Q( c5 tIF[#3LT#4]OTO1
7 k- |6 z9 V' o+ {7 }( x6 H9 n" Q( {IF[#1LT#2]GOTO2
#31=2.
' F: B7 q( B5 s$ O3 F#32=3.
IF[#2LT#3]GOTO1
# S% }: ^6 Z0 ?, z& V, @! dM0

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

longmeier

好帖子顶