數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心優秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有靈感，
有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
* ?5 m! N+ C; ~# R+ Z使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
' T- t3 B, W/ D+ g1 I/ W方法A：
' ^% s" c1 Q( \& }' p. O8 E  FIF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
. ^; K3 o. C* e8 z& g6 i7 j/ i" ^#1=#1-#2
1 P% ?# I+ {- g9 k' I# ^) {0 d#3=#3+#4
#4=#3-#4
#3=#3-#4
/ h% K# V$ ]1 I1 L8 ?: \8 PN5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
5 U0 k7 e  v3 |* `9 b' `( Y6 O方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
1 w6 v3 b* v4 ?/ ^' `: \' M#2=#1-#2
#1=#1-#2
#3=#3+#4
) e; u' r7 X% J$ U$ G/ o# N/ f#4=#3-#4
/ Q2 h6 i& J( q  C* k" N; [#3=#3-#4
& H7 u! Y& Y( T" O5 n3 {2 aEND1
# B0 y) I, E# C2 n" }......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
5 L7 h* Y. K6 j
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
8 D6 l! G& w: ^7 b#30=1.
5 e: I3 T7 T' X% W*#31=#[#30+#500MOD2.]
M0
# a, P9 e5 ?' w& E% L9 ?- I
又想把它這樣寫
*#31=#[#30+#500AND1.]
' S& r! y1 T* }M0

空氣中的小魚

回復 2# 羅蓋仙
- J, f5 p9 m9 U0 U+ E你的表達式中沒有只是邏輯運算，
只有邏輯判斷有些系統版本不支持
所以，以上語句可以運行的

羅蓋仙

使用數據置換來按大小排列，大→小
9 H4 ?" s+ t/ n: o" f, s法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈從大到小排列完成
3 D+ g; s  s& m! i#1=1.
3 B; [+ L# |0 _* d( r#2=4.
" S- r5 D& L% |; O& H' b#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
1 x- W3 u! T4 R, l6 P$ Q9 w#1=#1+#2
#2=#1-#2
* b- ~6 S: p- ^" ?5 ?( g#1=#1-#2
' d4 P1 i+ `7 B9 X' W* p) e9 ]5 N$ l/ PEND1
N2WHILE[#2LT#3]DO2
#2=#2+#3
( ?5 n  [5 G5 ~: W/ f#3=#2-#3
#2=#2-#3
END2
WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
1 p) p; F7 ^! C8 n+ U1 d3 }#3=#3-#4
' Z# J2 S4 }1 m2 W, G3 s$ g  n0 iEND3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
* N- u+ a( L% V6 O1 E+ bM0
( s! z3 y5 _4 w( G" `# k0 J
" n% L  B0 Q& L
% q2 ?1 A: }0 Y- F( C- t法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
6 U" k4 f6 [$ N% P/ ]9 p* ~#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
! ?3 C, h0 m, c/ t% v#1=#1+#2
  x$ D% f+ y/ X5 X#2=#1-#2
#1=#1-#2
% V) b. t. _& K# ~+ C2 n# l; f& pN2 IF[#2GE#3]GOTO3
3 I, p2 `& l7 D#2=#2+#3
: p& G  N% I3 @$ Z0 ~* |#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
& ~- d# a  o% f  ~. \. e# \#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
4 k% e2 v0 _: l6 N) n2 D/ f9 j#1=1.
#2=4.
& C* D2 K: Z$ W8 H) ^: U#3=7.
* x$ P& M& X/ F/ z1 ?/ _3 ^( l0 ?#4=9.
8 l! ?1 E6 j5 ~% Y4 bN2 #31=1.
* ?/ [7 c$ M& _9 q- U#32=2.
8 b" C$ x! F! ?4 l3 {4 h3 K7 k; ]. BN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
! F! u  T9 M& o#[#31]=#[#31]-#[#32]
0 l" _$ ?0 S  H- A" H; QEND1
  U8 B; k) {* A7 R- S& ^3 N: o# g#31=3.
# q9 @1 r! f& b0 }# U/ h% {7 t% MIF[#2LT#3]]GOTO1
#32=4.
% l- e- T& {7 |* w; [- P, KIF[#3LT#4]OTO1
* }% m4 b7 G9 \$ u) vIF[#1LT#2]GOTO2
, w$ M! c4 B- R#31=2.
#32=3.
- L' B9 b! {( [1 ^! a! T6 g: RIF[#2LT#3]GOTO1
3 @% h4 R1 h; D4 Y, j* B; Z6 \M0
, P5 X: _. q! ^8 r9 e
: x) _, k' @- w) w# `1 u看你習慣用那一種，其實還有其他的方法

longmeier

好帖子頂