數據交換法的使用

羅蓋仙

  ]( d8 l7 ^( z: }9 ]- D上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
( J4 e! M- O. {! x2 ]有人說數據交換法.能用于何處???我來舉個例子
' p% D9 l  L0 ~2 I; i6 w$ X
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
( e8 Y6 A  m# R7 |2 E) C4 C方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
; S' r$ k; j9 L- @4 U7 p#2=#1-#2
" a1 U1 p  s! j#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
* |+ C! Q: N& T' Z& ON5......此時#1的值已經置換過來了.#1的值一定比#2大
( v9 a% U6 V" E2 F* z7 V1 A8 m! ^
4 p$ v0 Y, s( O% y3 J) Y6 w+ _. C我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
  I% x6 e8 D+ t2 J#3=#3+#4
#4=#3-#4
( V( o/ t0 H, L# b#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
8 P/ _$ m; M) c* w0 y6 t
8 |5 R$ M9 @, l0 x方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
5 m4 a2 ~  T* R# m  `- Z#1=5.
7 D& h3 x8 \4 R& j! Y& X+ ~% S* z) q#2=10.
, Q+ I6 D/ Y# ^% q7 R/ x#30=1.
*#31=#[#30+#500MOD2.]
M0
4 V4 T) Q, d# Z1 L5 x
7 V- }; a( [# b/ I又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
$ d9 |: _3 o9 t* L0 h只有逻辑判断有些系统版本不支持
) }) p8 w6 t  w& R3 V所以，以上语句可以运行的

羅蓋仙

1 t4 L# _2 w$ W  m7 Z% B8 M
) T7 f" x" B. E; I1 `: v使用數據置換來按大小排列，大→小
* m) Y3 V7 Q2 U& n7 b- \法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
* @. d  U8 t) j' K% R#1=1.
  j+ ]: ~* B# F# x; V3 p0 j#2=4.
#3=7.
' T) o: B. A# P#4=9.
* @% G1 ]' p  E' s: r- UN1WHILE[#1LT#2]DO1
#1=#1+#2
0 u: H9 N5 @- A4 `  X0 I#2=#1-#2
#1=#1-#2
6 \/ E: l3 b$ k0 s' \) UEND1
8 R% L5 {8 ]  x6 a7 r7 iN2WHILE[#2LT#3]DO2
; R) E/ R/ [6 V8 i3 o  m#2=#2+#3
$ V/ d0 N. S# y, r4 Z#3=#2-#3
3 s' N3 }! x" Z" i. W: h/ Z/ |( N#2=#2-#3
8 Z! v, ?2 w# s; L7 jEND2
/ P, w- b( y: s6 {% G2 RWHILE[#3LT#4]DO3
0 I! ~3 {' i9 L& `#3=#3+#4
. s0 P( ~! e. k% f#4=#3-#4
2 F: a2 ~- D4 n  L#3=#3-#4
END3
- \# r: v: m8 l, n! [3 O6 eIF[#1LT#2]GOTO1
. j. o1 n* `5 ^2 [IF[#2LT#3]GOTO2
M0


法1-2：使用一般耳熟能詳的IF-GOTO
% v6 e1 \/ E4 ^+ y" y! D3 q# c* @#1=A.
#2=B.
+ q9 N  x, ?5 t2 I#3=C.
( H  U) a( _2 z#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
9 C9 d; z/ R+ O1 l$ P#2=#2+#3
#3=#2-#3
#2=#2-#3
* \9 s6 L) |1 M5 ^N3 IF[#3GE#4]GOTO4
8 ~: k! P3 ~  e2 A#3=#3+#4
3 \/ {& M" n. u2 K2 Y#4=#3-#4
/ H0 j, Q' ]( V: R2 e- s#3=#3-#4
N4 IF[#1LT#2]GOTO1
( g- _5 i% O2 V0 F& tIF[#2LT#3]GOTO2
1 M# b2 i3 Z1 |8 ]M0

羅蓋仙

; v6 t  P$ `2 U; l2 o5 z
法二：使用変変數^^
#1=1.
#2=4.
5 W+ W5 Z5 i2 g9 A( {. ?. w#3=7.
#4=9.
N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
4 c5 x$ i/ z+ U5 L% _' }#[#31]=#[#31]+#[#32]
/ S: ]) b" A/ L8 a0 l. ?#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
9 ]0 E  b1 z, l#31=3.
2 ]  e- \0 E2 T0 TIF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
  d% k, l6 O2 ~* \4 kIF[#1LT#2]GOTO2
% _1 L: a+ @- H. U, c# `7 i; |#31=2.
#32=3.
IF[#2LT#3]GOTO1
) \$ o# y; U+ e2 Y  Z+ }' R6 cM0
4 }- i* V5 {% w6 f/ }6 @9 f  ^
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶