數據交換法的使用

羅蓋仙

$ R/ q  J  p6 H6 ~3 O
1 o4 r; w+ C# F上次某個大大發：「編寫加工中心優秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有靈感，
有人說數據交換法.能用于何處???我來舉個例子
1 b3 o) \( D; ]3 {
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
- k0 E( {$ I  j" v; d: |使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
' t$ @. E3 T4 Q方法A：
3 k# t% y6 l- N) A! mIF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
#1=#1-#2
+ `7 Z3 |: Y# S! D, r5 N3 n* J#3=#3+#4
#4=#3-#4
- G' i# R( h- j8 P, U  c#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
. w# V4 X8 S+ K! x* i" F
" P8 `$ `# `, R9 r; ?8 h9 a5 F: K我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
( C) n2 [* j1 [0 Y( A方法B：
' ~% H% A# @0 m5 {7 ZWHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
5 p/ a5 d6 C0 u#1=#1-#2
3 T, y; f* h6 ?- B#3=#3+#4
#4=#3-#4
#3=#3-#4
END1
6 X( n8 O8 `8 c......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
3 y7 L+ {8 E0 T3 i; V" Q
6 v) `) Z: ]5 o3 \方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
9 J6 S  T0 m5 Q& g$ `& F#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
+ `; T' a7 S# T3 J: DM0
, n( S5 b5 {6 @0 \+ }
, V% J( n3 ]4 o9 w2 A# X$ G- C又想把它這樣寫
4 j; I) G% }- O7 _, S4 M8 I*#31=#[#30+#500AND1.]
6 f- [" T5 N- FM0

空氣中的小魚

回復 2# 羅蓋仙
% P5 i6 l. t# c7 S8 ]( F你的表達式中沒有只是邏輯運算，
0 Z% R' a# ?. m& x( j只有邏輯判斷有些系統版本不支持
所以，以上語句可以運行的

羅蓋仙

" P) m) t$ j5 k" l% _& h使用數據置換來按大小排列，大→小
$ t0 P9 G9 U$ p+ I法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈從大到小排列完成
#1=1.
#2=4.
' ?' l* U# |: b2 v3 r#3=7.
#4=9.
, d6 U/ y' J# b, `' `N1WHILE[#1LT#2]DO1
#1=#1+#2
$ c9 C( n; t3 ?' [#2=#1-#2
, K4 M0 V2 _# p7 G1 F# N! L# a: Q# S#1=#1-#2
0 h* H* F7 u2 wEND1
4 W( g+ D$ A3 Q% a# nN2WHILE[#2LT#3]DO2
9 |3 y% X0 d( ]: Z# ?#2=#2+#3
+ t& p6 V5 e5 u#3=#2-#3
+ E2 {* a7 \: M% k$ M#2=#2-#3
END2
# u- U/ q, @  s) \7 ^9 I0 [WHILE[#3LT#4]DO3
#3=#3+#4
$ t2 e* j% k* T  s9 \; j#4=#3-#4
2 q0 l+ l9 f2 W/ s$ }: q/ d* P' _#3=#3-#4
( Q7 n) G6 R/ e$ ~3 KEND3
IF[#1LT#2]GOTO1
, q" n) E0 S* j9 h( R7 @) x7 AIF[#2LT#3]GOTO2
M0


- ]# ]+ i7 _$ D+ m( w- Z法1-2：使用一般耳熟能詳的IF-GOTO
! t/ b8 N) k& ]: y#1=A.
# p8 j2 Y7 x3 \#2=B.
# J; {9 A3 m, z$ r" W, M, }#3=C.
: t9 N0 u" N2 U#4=D.
# Q- [6 z, J+ p9 QN1 IF[#1GE#2]GOTO2
#1=#1+#2
3 [6 j3 \, m3 r#2=#1-#2
; {5 B2 P) S5 D: y7 h% p0 S#1=#1-#2
7 [# Z( N/ U% I: NN2 IF[#2GE#3]GOTO3
+ I: Z7 V8 c3 T$ e$ d# f7 s! ~#2=#2+#3
3 l. G0 {& b: X#3=#2-#3
( ~  `6 z1 _3 J" r' E  ~. s* N- _4 Q#2=#2-#3
/ ?: K% R9 N7 O2 tN3 IF[#3GE#4]GOTO4
) [  {/ O- E: r#3=#3+#4
) E/ u$ x& b7 P8 c+ g  B0 P2 U7 X#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
( e7 u& v# Y/ w5 F" L% l- oIF[#2LT#3]GOTO2
M0

羅蓋仙

3 j0 E; U9 }) s& W# Y法二：使用変変數^^
& x; M+ _8 ~/ ]8 B! F2 G#1=1.
#2=4.
#3=7.
- r+ Z7 j! `: w* [& q* Z#4=9.
. l% ]% [9 q) a8 Q5 m2 m0 aN2 #31=1.
0 {% }1 o1 W$ H4 F#32=2.
7 }! a2 Z- [; a0 S7 `1 b% xN1WHILE[#[#31]LT#[#32]]DO1
2 i% O# ^" ^1 _3 H# I#[#31]=#[#31]+#[#32]
* N3 ?9 e! o4 ?- Q! Z, e#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
3 P& U9 p0 }" KEND1
#31=3.
IF[#2LT#3]]GOTO1
9 D9 X- \& u' I8 i, C9 Q#32=4.
5 u$ w* k" w4 HIF[#3LT#4]OTO1
, c% o/ |& I& f  s) M0 `IF[#1LT#2]GOTO2
#31=2.
4 b  M( g! A) f1 ]) z/ z5 v#32=3.
3 e  Q  K/ h( TIF[#2LT#3]GOTO1
M0
/ w% C/ [- w, `4 T; ?/ M
1 O6 z# j' c% s. u' _" c看你習慣用那一種，其實還有其他的方法

longmeier

好帖子頂