數據交換法的使用

羅蓋仙

; P1 u' l/ i9 ^8 U$ V8 \* f, Q上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
( f! @) g5 C  f! w，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
7 Q8 h2 h( y; X' _
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
0 t: }: q  [  B0 M) f方法A：
IF[#1GE#2]GOTO5
- Q8 x- J2 R6 M; D/ L6 u#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
) m1 R' ~( k3 @# c1 b8 B& W#4=#3-#4
/ V' p  h& |5 }1 q( ^9 l( m! X3 }#3=#3-#4
+ P+ c4 ^" r- r3 S0 v" Y" zN5......此時#1的值已經置換過來了.#1的值一定比#2大
( \/ f7 L2 ~( f8 u9 ?, c* o2 t* O
" n4 G9 [& C. F  a- `1 z6 l/ i我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
& ?0 q9 E6 a; n& \! J, L; }9 E方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
( F& R& f2 O6 q+ }1 |) P#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

8 Y' U# L/ z# y% t方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
1 m! ]: ?& D& P- @3 O: G#1=5.
#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
M0
5 j" ~& \2 M8 f
# B' o; |+ e6 ]  a6 E* B$ y又想把它這樣寫
$ b! @6 F9 q6 k  U2 `% V*#31=#[#30+#500AND1.]
; F' z& y, M$ f1 R  `M0

空气中的小鱼

回复 2# 羅蓋仙
3 P( g5 U* C: {6 x你的表达式中没有只是逻辑运算，
7 o8 A% [) [7 p( [% j只有逻辑判断有些系统版本不支持
$ j3 O8 e/ Z8 \% @. p8 X所以，以上语句可以运行的

羅蓋仙

( q: \) i/ X  G$ o: l/ i7 |使用數據置換來按大小排列，大→小
* I2 s* T* F# X4 C+ U法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
+ L4 ^8 @* f9 W#1=1.
#2=4.
#3=7.
. R' G- o. y. I" x#4=9.
8 r# b: E, n: ~9 w6 bN1WHILE[#1LT#2]DO1
9 `) {) `& h0 F#1=#1+#2
#2=#1-#2
: }6 |: R- Y1 n' A" v#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
#2=#2-#3
END2
5 W2 w4 @2 }2 k( j/ _) M2 UWHILE[#3LT#4]DO3
% `: b6 P6 ~  X- ^" s7 E/ \, i4 y#3=#3+#4
; e, B! V5 g4 o. L8 z#4=#3-#4
, Q/ {1 q( q$ H  I* i# k% z6 q#3=#3-#4
( H2 y/ K' E' c5 ~! n$ CEND3
IF[#1LT#2]GOTO1
  Z8 K3 }- P) I7 o5 fIF[#2LT#3]GOTO2
M0
' m( w7 E3 K! f+ c8 {- `: I" |' i
) Q5 K. p7 D8 I1 w+ |
法1-2：使用一般耳熟能詳的IF-GOTO
" h  v% F; z; X, H. a#1=A.
#2=B.
#3=C.
& d2 q9 x1 N7 ]5 H: ~+ t. g. E#4=D.
N1 IF[#1GE#2]GOTO2
- v# l3 ]# q- N. A$ f#1=#1+#2
7 M% m3 g& N  y, V5 }1 }1 e#2=#1-#2
' S+ d0 r5 h) M#1=#1-#2
- R6 g& Z; b  C* i* Z1 UN2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
#2=#2-#3
! |, ~- Q: Q. K7 Q. T9 ]/ Q1 NN3 IF[#3GE#4]GOTO4
#3=#3+#4
  j* m  i/ K2 x9 g#4=#3-#4
#3=#3-#4
* a9 m  ^  {1 y' d: mN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

, s% Z1 R2 j$ I2 e/ A
" Q. Q* \" y& @2 J, N法二：使用変変數^^
#1=1.
#2=4.
% l8 v5 l! N0 u#3=7.
#4=9.
) l; j# L6 |- E' N8 D& K4 @N2 #31=1.
0 W& v5 j1 Z, l! O3 {) k#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
. ~0 n1 T" z/ }: ^#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
0 P9 o7 B! r% ^9 D" fEND1
#31=3.
IF[#2LT#3]]GOTO1
#32=4.
+ N& [" \4 |$ P# ^IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
3 ]5 X7 c. A! w- x5 }% u#31=2.
#32=3.
IF[#2LT#3]GOTO1
M0
8 K& H  ]& E; @' Q  L7 J: ~, e$ m
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶