數據交換法的使用

羅蓋仙

. T6 }! T8 R+ y; l5 l; H4 \! h
; n3 _: L7 L" j- x2 N. Q' w8 V上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
  j- t9 i" @  z) a% D，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
) N- L, ~* U8 |5 i. M/ Y/ X
/ i8 C. i3 A+ s3 w8 z如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
5 t- l% k+ U; x' p: V* n使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
1 T- U% P- Q' f' m3 fIF[#1GE#2]GOTO5
6 a. y8 H' g3 K- r0 Z7 A) O#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
! x+ I2 U$ B' l1 u#4=#3-#4
, p/ f4 }% F1 t9 o, k3 [. K7 w) D#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

, e5 V) S0 Z' R  Z我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
8 h5 T) U9 {7 w% A  j2 R#2=#1-#2
" i4 x' u: _/ u+ U#1=#1-#2
#3=#3+#4
% `1 O" l9 d% {" A#4=#3-#4
" n, h& [$ B$ |/ X1 R- O#3=#3-#4
4 i( t8 t1 k' B6 e& sEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
. U8 l/ {" M" M+ u7 Z9 Y/ }( K
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
6 o& r0 [: G! i& y8 w* m#1=5.
" h* m/ J% g# x* \#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
% b1 i% p' d! m8 }, dM0

- t2 n3 X' N2 D" v) a9 L; \又想把它這樣寫
2 ]" y. F0 i: u3 q0 J3 L2 T  A& J! w' x*#31=#[#30+#500AND1.]
5 W0 _" u& @0 B9 n- r& KM0

空气中的小鱼

回复 2# 羅蓋仙
: [! Q5 }! x2 m$ S1 z你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
- z% ^. E9 o& Y) G0 j& [所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
. Z* F# d0 @& Z; Y法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
* C( Z7 R; H( }! O: Z- T3 s& U* r#1=1.
/ M7 x, N' t6 h5 H" |#2=4.
2 E' E( ?; G) A9 M8 m+ n) Q#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
& x2 Z/ j+ P# f% Z. [#1=#1+#2
) O7 w/ w' }" [% m( g#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
#2=#2+#3
  O5 B0 i9 A; {% a' C3 w#3=#2-#3
#2=#2-#3
+ v0 c  m9 y1 b' v( Y8 B+ W- pEND2
WHILE[#3LT#4]DO3
  g: o: A- }! t) d#3=#3+#4
) ?" P+ ?4 L& t/ q8 B#4=#3-#4
#3=#3-#4
END3
6 p& L) ^7 E# n; f: {9 }2 EIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
8 W; [3 B  E( l, w
, e/ m+ t5 |9 z4 E
法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
9 O( i* |6 m5 x' F- R# u  }#2=B.
#3=C.
$ M+ ?$ q4 g2 J  R- t: b. g#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
  y7 `2 o8 I2 c' k0 m5 U/ k& j4 Y9 T#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
; m* x" `2 i* J: ~#3=#3-#4
N4 IF[#1LT#2]GOTO1
6 v" f; t5 D0 S" }IF[#2LT#3]GOTO2
; l: Q; G- _7 z( j$ Q4 ^M0

羅蓋仙

7 _6 T  o9 F- X3 a2 \# u
2 C& V" V+ M5 @- a' A法二：使用変変數^^
6 I( E4 j: |' M#1=1.
#2=4.
#3=7.
0 s3 m0 A# r/ a; o+ `#4=9.
7 o  e5 b9 z- @+ w& `: f; aN2 #31=1.
1 @' s- U/ B8 p1 G- L' {" Q) r#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
* G: I, M+ y/ a" q* ]#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
4 f; U* I" i; j, \6 `- a; TEND1
#31=3.
IF[#2LT#3]]GOTO1
#32=4.
% d/ I( W5 A3 \: q' r, HIF[#3LT#4]OTO1
5 q7 |  u  W5 z' J$ ~IF[#1LT#2]GOTO2
( m1 c- Q5 \6 w9 r* \#31=2.
#32=3.
IF[#2LT#3]GOTO1
. |" h/ j) U- ?# x/ H. KM0
% _% S: a3 V# B0 u, Y/ z$ i
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶