數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
. S( q4 m% f: E，我看完之後有灵感，
5 L; ]2 @$ H: @3 t有人說數據交換法.能用于何處???我來舉個例子
9 {: o! S7 R& u7 [3 C8 D3 D9 {
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
: y  m- H: P1 A% s方法A：
IF[#1GE#2]GOTO5
% `5 t$ c5 s( T/ I( E$ I% C* D# B' @#1=#1+#2
#2=#1-#2
#1=#1-#2
# L# s8 _. ^+ z#3=#3+#4
9 ~& g* G& u2 M#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

7 c6 c2 x- y7 r& F& [3 Y. y8 ^8 h我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
1 F# F. s$ ^7 `6 G0 [( v方法B：
WHILE[#1LT#2]DO1
9 F& c6 z7 j( M; f#1=#1+#2
0 k* U2 o5 K$ b#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
8 @: \5 q7 W3 ^$ @' e
  u+ r. c) W/ S* x方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
: P. |' R: s: U) H3 _5 |9 l#1=5.
0 w0 r2 d* `4 A! `1 U- k9 z#2=10.
#30=1.
3 V: I) t8 U1 m0 T*#31=#[#30+#500MOD2.]
$ d! r& ]  c  `0 \* B# I. bM0

+ g' l; J! ^' Y8 H% i# S. d又想把它這樣寫
$ I1 f$ g2 D8 b; c*#31=#[#30+#500AND1.]
+ V. G* z; A# g+ }/ M( s7 z0 l7 ^M0

空气中的小鱼

回复 2# 羅蓋仙
  e3 k  k' A6 t& f! @1 n, k% o  {你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
5 ]( K, B6 ^* E" b& q所以，以上语句可以运行的

羅蓋仙

& c3 q; O) e$ G- n
! I6 l7 b4 C% F$ G* z使用數據置換來按大小排列，大→小
# l- ]" h- N* I9 n- o! n  K法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
4 F0 G3 b6 W7 X2 c& R#1=1.
, R3 p- |4 t; ^: T#2=4.
3 k& ?& p$ Y: j; b6 y! e7 R#3=7.
#4=9.
1 `% S8 C7 F, j1 M* BN1WHILE[#1LT#2]DO1
#1=#1+#2
0 ^2 W) Q) [" T#2=#1-#2
#1=#1-#2
END1
+ x) M+ H$ r" e  }. H4 R5 X1 NN2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
#2=#2-#3
* V1 C! J) N2 j6 SEND2
WHILE[#3LT#4]DO3
. |2 H7 K  F* A( e3 X#3=#3+#4
. P. u$ X9 p7 L! Z: ?" Y#4=#3-#4
#3=#3-#4
END3
1 A8 z' P4 N; F: C7 qIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

+ q) e: z( C9 |& K; j2 q
/ ^4 o2 q( ^3 D& n. S6 G6 a法1-2：使用一般耳熟能詳的IF-GOTO
' L. q1 M* U6 q! b) I#1=A.
#2=B.
#3=C.
; D% ]2 C) ]  G4 O#4=D.
3 U2 _, S7 m2 a& {0 g6 L; AN1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
) ~& j/ ]  F. R$ F- t$ q6 l, R7 R#1=#1-#2
N2 IF[#2GE#3]GOTO3
; e  k  x- o2 S+ f& V( m6 s9 \! k8 F#2=#2+#3
#3=#2-#3
  [! g: _2 h# X# h1 V0 T#2=#2-#3
9 e, X$ u+ B% d9 x( G% `1 G4 U4 ^" `N3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
5 A) ^: B$ x, b3 Q#3=#3-#4
* \: q6 Z: o/ ?& s4 `# {N4 IF[#1LT#2]GOTO1
- h& d) D' H3 t8 }4 H9 YIF[#2LT#3]GOTO2
M0

羅蓋仙

& x# N$ ^% L! z# U& q" @
* ]6 ~! Y2 T/ e% G+ P/ V法二：使用変変數^^
#1=1.
#2=4.
#3=7.
#4=9.
3 s& j4 f( F3 \+ _N2 #31=1.
$ X) f2 K. j; u4 T) Z' {1 B#32=2.
8 J2 V+ \1 F. {N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
7 G3 x) d* s/ D6 a#[#31]=#[#31]-#[#32]
$ G: D2 G5 ^! Y" D+ cEND1
#31=3.
IF[#2LT#3]]GOTO1
#32=4.
( F) M, ?  @9 O5 t1 K; P' e9 q8 ?( @0 FIF[#3LT#4]OTO1
2 f1 T& x% t/ h. r/ d. n( H; LIF[#1LT#2]GOTO2
#31=2.
" D( t+ R# L! J" f#32=3.
$ }' `& j: i5 i# A6 m% jIF[#2LT#3]GOTO1
M0

' o1 H* |. N! W2 y# O) G看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶