數據交換法的使用

羅蓋仙

, a, s* G& v& }- o
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
8 F3 ^, O* L5 E3 K; [) o
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
; q  V6 T1 x1 K' G6 q4 j使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
- n5 v1 n, e( s& I+ i8 E( a+ l/ H# XIF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
8 E: q$ G, P! z! u8 z7 W7 L' Y8 f* [. d#1=#1-#2
, c( H! w% r/ a#3=#3+#4
6 n/ @0 W/ V1 C5 M#4=#3-#4
, D3 v" {. [- `1 C#3=#3-#4
1 v# \0 l  w# R: M! C0 vN5......此時#1的值已經置換過來了.#1的值一定比#2大
: i* o) F  x& Z: b' }8 m1 r
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
8 ~  Q( `( p) g# \方法B：
: c1 v# g8 F. e4 @  F0 zWHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
5 I; k+ T$ q: K8 a. f/ |6 u0 [#1=#1-#2
2 Z" Z, [% c! K. Q# f#3=#3+#4
4 b- D! |% [( \7 b#4=#3-#4
( A( ]. s- O2 a  @# k' Z#3=#3-#4
. Q% k% _; |; |  XEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
1 J% u  G8 I5 I: P! Y! x
6 p# I' X" k& _, M! s方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
: E# k" ], q! B7 Z#30=1.
4 |8 E" B9 U/ F4 P*#31=#[#30+#500MOD2.]
M0

% ?! n0 B1 z9 w/ ^; S又想把它這樣寫
/ i! y4 ]) }' [4 p  c: {2 {*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
1 Z& U: d# f- {# E8 k) |9 u你的表达式中没有只是逻辑运算，
' T9 g, v8 @* y6 E% T只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

( l  ^7 O1 K* _; W" d% z! k. h
使用數據置換來按大小排列，大→小
( I: V5 x( z+ i. h) O& d4 r. Z法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
$ T% y4 l" p$ A4 I#1=#1+#2
#2=#1-#2
#1=#1-#2
' L( S% I" l  t& ?; F% G, HEND1
N2WHILE[#2LT#3]DO2
#2=#2+#3
- c0 w5 g, \1 v2 P# Z5 r' f$ `. a#3=#2-#3
#2=#2-#3
END2
WHILE[#3LT#4]DO3
1 F8 P6 ?: z* l% N' S6 f0 x#3=#3+#4
; l: U' w: q# k#4=#3-#4
1 L8 p9 H+ w0 K; W5 Q#3=#3-#4
END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
+ w3 c  P' R) H' h9 nM0
. G$ e7 i. s% K# I3 R/ X

法1-2：使用一般耳熟能詳的IF-GOTO
0 w  U0 f* Q* `  G) U5 [- i#1=A.
- @9 S! ~' F/ X4 |0 H7 g: s#2=B.
#3=C.
" V3 M+ d+ d) b3 }  ^" D8 o  u2 y#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
' f6 S' B# T8 {% R9 h#1=#1-#2
1 U! H5 j( D* nN2 IF[#2GE#3]GOTO3
, D8 f% _+ B4 q% e. t& C; K1 z" w#2=#2+#3
#3=#2-#3
) q( H7 h/ ?" B9 M#2=#2-#3
N3 IF[#3GE#4]GOTO4
, D# p4 c3 r% n3 X" Y1 m#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

* |! P0 d# m- V& W& O
" j. J! z( B. x6 e" w  Z4 M; t9 R法二：使用変変數^^
* C: N: i, M* r7 c9 [. I8 g  L#1=1.
#2=4.
#3=7.
0 C' h9 f5 K! W+ L$ S3 T  t1 z#4=9.
( \9 F- P7 H/ Z. h0 `N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
( [! f3 c  r( H, c0 X$ q#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
* _; r8 r  |0 W#[#31]=#[#31]-#[#32]
3 v' L9 U. m4 H9 V$ t% ]END1
#31=3.
! a' i# N& K# N' y  u" |$ QIF[#2LT#3]]GOTO1
6 U) r$ M! \; f. N# P: O6 X/ }/ J#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
#32=3.
IF[#2LT#3]GOTO1
M0
( H7 }4 l/ G- P9 t
6 p# R( _# r6 V2 s* Z8 N9 a看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶