數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
. ^, H$ C7 `9 @) g/ b( Z- w. @有人說數據交換法.能用于何處???我來舉個例子
- O7 N6 Q" @4 d( h, F- H; I4 `# D
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
! ^* G6 V3 |! b* \% [使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
7 K" q$ ?$ Y% A7 |/ n#1=#1+#2
& m8 k6 f; E# @, h#2=#1-#2
#1=#1-#2
#3=#3+#4
7 \% @( r6 b# L$ }$ {; {#4=#3-#4
#3=#3-#4
/ J$ q; h0 e% O! f: U0 PN5......此時#1的值已經置換過來了.#1的值一定比#2大
8 j: w. U( q- ]6 z- @, e# @! f
, J2 Q& B2 I" h' C( a我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
' ~2 e7 n% g/ z方法B：
; k( o% |: q) fWHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
, Z8 E4 V& |3 J2 @8 P! ?) d  hEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
- E' Z# S0 J. W* x# j5 h
4 o+ ?% s: b% t% \# E) x1 A7 D方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
- K& F$ u" G/ P$ j#2=10.
0 `; O/ c3 Z' O) O$ R#30=1.
*#31=#[#30+#500MOD2.]
M0

. @" j1 O5 ]4 c; C0 w  Z' B又想把它這樣寫
* \+ x" K3 D" R  N" _*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
/ K1 o) k2 k& H/ A4 G7 J$ g只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

; E! l* y9 [( R+ Y/ j使用數據置換來按大小排列，大→小
+ K( B6 J5 p$ K1 D. j" V# x2 g! Y) [法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
9 x( J, Q4 P# v3 |3 ]& S) W1 A#3=7.
5 t" [$ l2 i( J#4=9.
N1WHILE[#1LT#2]DO1
& W9 Q3 l( c8 O& w3 C& v8 Q#1=#1+#2
( r. b, v/ ?0 O) _#2=#1-#2
2 x& X) l7 h: y. g#1=#1-#2
END1
/ w5 @2 s3 \! g) Y8 e  _N2WHILE[#2LT#3]DO2
) l/ ]( d9 l  I" f#2=#2+#3
3 M! Z7 k" O) x4 N* Y! u$ \#3=#2-#3
#2=#2-#3
END2
WHILE[#3LT#4]DO3
#3=#3+#4
( e2 m* w+ ]: }( N4 r4 }& z#4=#3-#4
#3=#3-#4
( _: n& a5 E) q* f* g8 k, C; YEND3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
5 Q. |- Q& J0 h7 V* Q& |/ DM0
$ r8 ^# d8 U* [+ a0 F2 B

法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
$ Z, F) r, _$ J. N#2=B.
#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
9 F) L) K7 v( m2 |# \! i#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
0 m' x# A6 w' s+ s% O% m8 K: X#2=#2-#3
/ b4 G2 g' ~# W, |, S2 X2 O2 N9 QN3 IF[#3GE#4]GOTO4
/ s4 w" S1 ^7 F, z( F1 |#3=#3+#4
#4=#3-#4
' A5 I& N3 B! i( x8 R$ [#3=#3-#4
# W$ |' X9 [# wN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
; I& @6 K9 C" E! z; [M0

羅蓋仙

+ q8 ]1 m0 x  b6 A  S5 _9 F, W
法二：使用変変數^^
& i  U  o0 A$ q; t% f#1=1.
#2=4.
- E5 M# _" M) K$ t+ [#3=7.
( ]2 M; \2 R% Q#4=9.
N2 #31=1.
#32=2.
1 s/ u+ h$ Q1 `; qN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
' Y7 L" v4 w8 }' w: M% [( C! Y#[#31]=#[#31]-#[#32]
END1
& U! W! T- Y/ ?! `#31=3.
IF[#2LT#3]]GOTO1
: A; z5 ~( v$ d3 e3 i0 }#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
#32=3.
* W8 }% ?5 V1 @9 K2 {IF[#2LT#3]GOTO1
( `9 S1 e, B0 \: e& cM0

# J) |# |! y" E, l' J* z看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶