數據交換法的使用

羅蓋仙

' T% q) e9 E+ j0 }0 z) e上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
+ Z. G% s9 }: f1 \1 x5 H( R有人說數據交換法.能用于何處???我來舉個例子

. k# A: Y- p: D8 |! ]如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
8 {5 Q; n* {& b, l3 ]方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
& y& k; B( y, {  x#2=#1-#2
9 G; u+ t# z& I4 T#1=#1-#2
4 z1 X. b, w3 L& N. m" v#3=#3+#4
+ x" ^  G. P3 O6 Z$ `#4=#3-#4
; z+ J. T# d. A6 [+ T#3=#3-#4
. w7 d" g5 u4 Z; h& E' t3 c) FN5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
- U* F5 c1 ^0 u# ]+ r" {方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
$ y1 A+ U/ H7 b! |#4=#3-#4
& u5 {5 S; a5 e+ P" T, U: Q1 D#3=#3-#4
0 \6 y# m( d, b' C  wEND1
9 t& ]+ p6 V0 M( d$ s2 Q1 ?* E......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
9 O% E3 N3 H7 ?- h
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
, I+ v6 k9 s% V2 d4 D; p#1=5.
! S( k( z1 V9 w: i5 i9 I* k#2=10.
6 y6 |9 a# h+ R3 a#30=1.
, K4 c. L. y& l*#31=#[#30+#500MOD2.]
M0

: ~& T; a2 f/ u& M5 B3 a又想把它這樣寫
+ D* ]! W" }& F6 V) U) H*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
* X/ P0 R- R3 `4 z只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

- H9 D  [' q5 E, b- V$ M+ J( f! v: U使用數據置換來按大小排列，大→小
9 ]# R# v% m2 s$ w法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
/ C3 ]$ Y# q2 E7 y# W  M$ l# L#1=#1+#2
#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
#2=#2+#3
4 s$ T$ o: F8 n% `#3=#2-#3
. d% y* b/ o- Q$ J8 Z#2=#2-#3
END2
WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
$ i4 p2 s" W0 k2 k5 I; U- M; ~#3=#3-#4
) x$ Q0 w7 [- K3 D9 v& c7 fEND3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
# O- o1 D3 N- A
% K; A; S" s% f7 ~2 v  ?) m
! E# {! f7 @: C8 u* v+ Y  d法1-2：使用一般耳熟能詳的IF-GOTO
6 ]/ e. p8 A! U- a#1=A.
#2=B.
#3=C.
#4=D.
7 ~; f5 ^' [% h' _N1 IF[#1GE#2]GOTO2
& H! @7 ~7 x# G3 v+ u3 Z0 v#1=#1+#2
* {3 y  [6 \7 n#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
) {! Y5 v7 y( X3 L: S3 a/ F. w: z#3=#2-#3
: \. ?! X& p9 }, ~#2=#2-#3
; ~) E) q2 w1 M) u2 i$ FN3 IF[#3GE#4]GOTO4
#3=#3+#4
# X% \" C5 _* r* m' x* R) w#4=#3-#4
0 Z3 V+ C. x6 Q! p#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
. @0 r' k5 x2 l7 b, W2 |M0

羅蓋仙

! ~3 ]* E. ?* `( ]4 }! V! Z$ n
6 F, {6 d: z2 W) ]5 O法二：使用変変數^^
0 s! F# D: }/ x) o$ K#1=1.
#2=4.
' k. N2 v  s" j8 v5 I4 \3 t9 H#3=7.
" S, z! f& r. t$ T; x* V& g#4=9.
9 v0 B& L8 f2 Y1 D0 k2 [N2 #31=1.
6 }' L6 j9 s3 H! |#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
( P. v6 j/ J  U5 d#[#31]=#[#31]+#[#32]
; ~: {" _( i  X8 f3 y# R& y& l#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
! K$ C3 O, [! [4 QEND1
#31=3.
0 t: ?7 ^) y' E1 X9 f% |8 M& u5 qIF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
" }7 E: X8 i% J! m1 e#32=3.
IF[#2LT#3]GOTO1
2 u5 ^8 s8 k1 RM0
! P# F; D7 {& ^+ o  x
4 U) l& b5 ]% h4 z看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶