數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
8 L. O- ]; M: |" ~, [  L，我看完之後有灵感，
: e) M8 A0 p1 d有人說數據交換法.能用于何處???我來舉個例子
  w& T/ A$ N  k+ x2 i0 z2 C, z
0 ]% `& a! H5 l6 F0 f2 L如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
1 V; u/ ]. x% S( U+ D& I: b使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
4 t) Q1 f$ ?0 J% v0 B- b方法A：
IF[#1GE#2]GOTO5
$ _$ x  X/ W, h: Y. X. M- D4 S7 q" k#1=#1+#2
#2=#1-#2
#1=#1-#2
" d6 c% n1 w& F9 J! u#3=#3+#4
#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
, R- ?' p& I. P* z& t9 c" |
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
8 J( Z/ D- s5 u8 n' R方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
1 u4 V  Q0 b( [; A#1=#1-#2
& E0 m" G. k/ B: _#3=#3+#4
#4=#3-#4
* j+ Z& H, Y# y; N5 w- R#3=#3-#4
/ h- i* q( S: {% Q) X% q, yEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
! A3 J$ E, S1 E5 A1 g#2=10.
# d; l' d" _" s! H- q#30=1.
*#31=#[#30+#500MOD2.]
0 m6 m5 X) s1 lM0
7 m  a6 X* Y/ g6 U- }7 E
" {2 i. V7 g, d4 ^+ u8 l; w又想把它這樣寫
*#31=#[#30+#500AND1.]
# [4 D4 H5 a" B4 I0 i$ t, @5 M7 zM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
4 |2 V# B1 Q) R+ Y! Q6 q所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
% N2 b! K/ @' R. O/ c法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
#3=7.
#4=9.
" \9 B* B7 S- w, O6 r: ~' mN1WHILE[#1LT#2]DO1
* O/ l9 w0 n4 F2 H#1=#1+#2
( e$ D* Q9 |; O# X#2=#1-#2
#1=#1-#2
0 ~5 F" p: R. T  W1 nEND1
N2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
. [. _2 O, A" b8 f: g#2=#2-#3
END2
2 C) d. [+ u6 v# Q* Q5 yWHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
4 e% ]5 ]0 l7 Y) x6 u7 [$ j' E#3=#3-#4
0 o% a0 d; V) nEND3
" j6 a: v4 b" \) a# _7 n' @IF[#1LT#2]GOTO1
3 ~4 t; m$ k/ i- H" \5 WIF[#2LT#3]GOTO2
M0


法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
3 d( N: K* y( `4 t* K$ t5 v#2=B.
, d! X5 f# ^$ M& x; ?#3=C.
#4=D.
/ j; L9 }5 s- n' d# DN1 IF[#1GE#2]GOTO2
#1=#1+#2
" t4 O) f8 b* d#2=#1-#2
3 C- g. f7 _. [& F% ~5 ]- s#1=#1-#2
* [4 F% J% h/ rN2 IF[#2GE#3]GOTO3
- a+ L) R+ N. f$ h# m#2=#2+#3
#3=#2-#3
% P: Y; ~" R* y5 {, D; V( F2 C#2=#2-#3
3 K: }# k! `) F6 bN3 IF[#3GE#4]GOTO4
6 `5 Y: O( Q- B& H) U' l; e#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
& D9 Y+ r) a0 S  A- Q9 W: X2 gIF[#2LT#3]GOTO2
6 u! n. e4 x* @0 E) i1 r; t, hM0

羅蓋仙

. W2 S: g! @+ d  P法二：使用変変數^^
8 g  z' a( g& |5 F5 y; X: c/ S1 N#1=1.
#2=4.
  g- [8 H' a* M: @  T' I2 a; a#3=7.
) Z5 _! H" V1 L6 B2 W& X1 Q& c#4=9.
/ [7 t4 E. B" Q4 ^N2 #31=1.
; O$ ?/ V/ Y3 F# v- ?' `  [. g) F: _#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
- u) Z2 ~' E" ]: S/ M0 E#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
- P/ W6 ]$ t$ c& a# C0 H+ qEND1
#31=3.
IF[#2LT#3]]GOTO1
5 v; p/ _" j9 `. N+ V! s#32=4.
, k& ^1 N8 j& C9 A* {IF[#3LT#4]OTO1
1 r& @# M/ @/ o  j' E6 f% {0 dIF[#1LT#2]GOTO2
0 U+ }- y% I" X2 }6 H- @6 t% k#31=2.
#32=3.
0 |6 u* R: j, A; u. ^IF[#2LT#3]GOTO1
! R. o1 k3 z; E" QM0

1 k$ D) B; d+ F  m: \看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶