數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
5 {( n5 p% C* d& B5 @，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
/ R2 t) N$ E! u+ G" h
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
8 j4 g9 p" P5 ~5 |IF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
- j& \9 e% b' F& h% q#4=#3-#4
#3=#3-#4
/ B5 d) I' y: l" O- J' pN5......此時#1的值已經置換過來了.#1的值一定比#2大

/ D$ n0 C1 v. M9 `! A. |! i我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
( R; E& q. j7 ?3 h9 ~方法B：
7 F+ H/ ^8 E& m% UWHILE[#1LT#2]DO1
4 x0 Z& P7 M6 P( z# M#1=#1+#2
) g3 Q2 z. |  L/ m6 k( y#2=#1-#2
& [  }$ A0 ?% b* @, E8 u! P) z#1=#1-#2
/ _. H3 N% R3 h- U4 p#3=#3+#4
$ G& N4 T( f* I* ~#4=#3-#4
9 k2 V1 O( Z9 }+ }* X#3=#3-#4
END1
% U, Q; c/ p; N......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
: x/ i$ N( J# W5 r( g
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
+ M# r% x4 V$ q% ?#1=5.
  O" c# G$ ]) H' k, z#2=10.
9 \. ]5 w1 o  k#30=1.
- `5 h# f6 \1 f* u% T*#31=#[#30+#500MOD2.]
M0
% v" p  _) N4 ~( F
5 |# n& H8 ^2 i$ }; x# L( k+ Z又想把它這樣寫
$ ?0 M0 V, }- ^% h*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
% S* W3 m2 m" P8 k/ J" g9 Y你的表达式中没有只是逻辑运算，
2 Z& P& W2 h% I1 i只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

- q9 ~' W% b7 p: q! [  K
使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
# V& B5 N/ l8 |" T  ?0 x" s- z#2=4.
#3=7.
#4=9.
. @1 X1 I- t. Y: d+ ^N1WHILE[#1LT#2]DO1
8 @0 n6 o1 ?# c#1=#1+#2
#2=#1-#2
' l, i" j2 q" {, f# O) ~#1=#1-#2
( J$ V7 U( J/ D! J* c6 r4 OEND1
N2WHILE[#2LT#3]DO2
  R7 \8 C3 k; u7 V5 c. m! @#2=#2+#3
) i6 n2 e' ~1 g' j7 t& \#3=#2-#3
#2=#2-#3
2 J( n' T, n% ~# rEND2
% [2 w( K9 ~" U6 H; mWHILE[#3LT#4]DO3
$ J4 I: A1 `) m: Y1 a& D$ [: x8 l#3=#3+#4
0 _& F# J3 m( H% Z/ S#4=#3-#4
#3=#3-#4
END3
' n9 [( J* D  I. yIF[#1LT#2]GOTO1
9 P# x. A/ ~. u: x' g9 FIF[#2LT#3]GOTO2
M0
! m0 l1 M9 u1 b) }* r

4 [% z1 c  @/ ?" `6 I. F' X" T( N法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
& Y# p& Q) Y+ O& [#2=B.
1 Q3 }. {& A, Y9 i#3=C.
) y2 n: }( t5 P; f  i. I#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
( \# y  O* U9 t#2=#1-#2
/ x& a: A  f' o* o/ u7 G0 W) J2 U#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
#2=#2-#3
5 c4 [0 _3 \. J, q% C) o+ tN3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
#3=#3-#4
. V+ `  N2 E2 h/ C& V$ wN4 IF[#1LT#2]GOTO1
" b: G- |& k0 f: H, X2 DIF[#2LT#3]GOTO2
M0

羅蓋仙

: N7 Y: u  T/ W法二：使用変変數^^
#1=1.
/ h# b* v  g9 I2 O  X+ w#2=4.
#3=7.
#4=9.
, c+ b' T8 ]* N9 q( g* h# eN2 #31=1.
: }. [+ [  J- L. X#32=2.
; h/ X$ a% f9 H3 L' T. lN1WHILE[#[#31]LT#[#32]]DO1
$ s& ?! `! M( m5 H( U#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
+ a$ O3 J$ z# H5 D$ t: q0 z  ]3 l#[#31]=#[#31]-#[#32]
) u% h. w  I; h/ U3 _& |4 J& J( kEND1
& B3 s6 q" d, t) I" _& k#31=3.
6 S8 f" e9 m  f" B2 uIF[#2LT#3]]GOTO1
1 S" E8 `: M: q+ \( k0 j( e#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
2 Z' E# C. q/ ~  f/ G2 D#32=3.
IF[#2LT#3]GOTO1
) E) u% {! I& H* ]* k+ }& wM0
2 t. ?0 x7 {/ [* A! M, X0 v7 E, O
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶