數據交換法的使用

羅蓋仙

7 a: Z$ I9 X5 ^" @, f1 k2 T
$ p' Z6 s: r, t上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
  X, }8 L3 O7 {6 X/ q有人說數據交換法.能用于何處???我來舉個例子

& J3 d6 r7 N1 ~如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
- s. i; t& X6 u0 G8 q- u使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
; `7 P) |2 m4 B& n: b#1=#1+#2
( W' {7 y0 I' E- g" D1 R- v#2=#1-#2
& L8 Y% t$ W/ ^/ Y#1=#1-#2
#3=#3+#4
#4=#3-#4
/ [5 r! C8 f  b/ F1 Y& c0 b#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
" L2 ]* z1 l2 k$ i! x: i) Y3 H8 K
# }+ x/ t  `- \( B, W& G  L$ ?我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
0 f$ I% ?2 a( `: P- i) k! d4 x方法B：
- l7 T9 z' g7 b- \! K% f: B' o; SWHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
+ I, J7 _. Q6 K) }) L* p4 Q#1=#1-#2
; S7 C  _) j! Q#3=#3+#4
#4=#3-#4
# W! M6 U7 q/ ?4 w& O6 g1 T#3=#3-#4
8 x6 h1 l% p3 j1 w4 m0 vEND1
4 W8 o. `) e8 d/ B; V1 ^......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
3 S" v+ u7 f: f* s7 \7 m9 F4 i. U
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
6 _0 c0 N3 C2 N6 j#1=5.
. P3 L8 p' D! v8 `; Z#2=10.
0 J9 A* p# X6 Y2 B3 J7 X#30=1.
*#31=#[#30+#500MOD2.]
M0
2 g, r1 l, m) Y6 v$ ^( E: ^' Z! b! |
2 \( F6 A; Z7 E7 N又想把它這樣寫
$ K$ E9 C& r2 I5 `) B5 G: d*#31=#[#30+#500AND1.]
! e  [: L! k/ o+ {9 wM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
- z! d* l5 g  E  L) b0 B( d- D所以，以上语句可以运行的

羅蓋仙

6 D; {/ M6 Q% ]4 v2 T3 z6 e
使用數據置換來按大小排列，大→小
. Q0 a/ Y9 E/ j1 N/ }( j* a9 q法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
3 A+ d; u# G. L# B# i#1=1.
+ s& B0 W' V  J2 C- W4 {$ o- d- H#2=4.
: G- K% E" J9 W0 p#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
( Y/ x, W) \0 ~/ u#1=#1+#2
- O" I2 w0 V6 \2 b#2=#1-#2
#1=#1-#2
END1
, T: K; w+ m0 m% F  GN2WHILE[#2LT#3]DO2
& u1 T$ n4 {" e1 C' n1 J#2=#2+#3
2 j1 p) v' n. Q0 v9 f- X#3=#2-#3
! B3 s+ _+ Y$ \#2=#2-#3
/ W" A6 F+ E4 F9 JEND2
WHILE[#3LT#4]DO3
+ g7 L6 g( t8 F2 Y6 \#3=#3+#4
#4=#3-#4
1 ~) Z5 \: P2 |0 _8 C* q#3=#3-#4
" Q/ Y# `: m4 N3 y8 ?0 HEND3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
0 l2 U8 P0 u) y: x0 rM0

/ E  i! b' v5 f* O7 ]+ V$ ?
; A, A. u+ m1 n# @+ E0 n法1-2：使用一般耳熟能詳的IF-GOTO
& X7 c& t7 d: Q% X#1=A.
3 |( O, ~) Z& j! M#2=B.
#3=C.
#4=D.
$ y* z6 l) C4 \& W7 o  g% c3 MN1 IF[#1GE#2]GOTO2
; p/ M* _" b" T/ S9 p6 B# P3 N7 M#1=#1+#2
7 U/ P2 {1 R" `& n#2=#1-#2
2 m: y1 m7 I; ~( ?9 W1 }2 H#1=#1-#2
N2 IF[#2GE#3]GOTO3
) x5 P9 j% R2 k* g0 w: H5 p# x8 n+ A#2=#2+#3
3 u# |1 q6 u' v3 b#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
! F5 Z% d# _' j( U3 y, I* |8 r) Q#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
/ k- @( X/ {; M2 C; A' _$ F" QIF[#2LT#3]GOTO2
M0

羅蓋仙

3 z( r' v2 f: |) B( j
! p2 }( l5 I4 I- C; ^) z9 }法二：使用変変數^^
/ w2 }3 B: m: E3 ~) E& x5 z#1=1.
6 J" J. W' H: q. x; D0 d+ w#2=4.
6 t: J+ N: ^% y# u7 d! ]6 y#3=7.
9 s  ?1 ]. g- ]$ [7 G#4=9.
N2 #31=1.
7 r, _) {; L* h0 z#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
3 Z1 |1 s% a: K  z" PEND1
#31=3.
IF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
' J% {: C3 B8 NIF[#1LT#2]GOTO2
* P3 z2 q8 J+ {1 ]- V#31=2.
#32=3.
IF[#2LT#3]GOTO1
# E" @- D2 p# G! J! B% l9 _M0
% \/ j! r5 m7 @# \( Q$ j8 i
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶