數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
! M( W3 @9 I  C, Y# \
1 G/ g5 U/ m, t) d- n* u如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
6 b  l: |7 F6 C* R1 g方法A：
( U& Y; q# H, B4 O- b/ OIF[#1GE#2]GOTO5
" p5 n* S) f$ L: K#1=#1+#2
! A, r; T/ u# Y5 y$ l#2=#1-#2
. |; H# p) V. E: f: k8 c- t#1=#1-#2
. \4 ]( W- Z& _; J/ R0 c% f: u$ ^#3=#3+#4
#4=#3-#4
3 C, g4 Z$ B) U* A; `5 b9 N7 {#3=#3-#4
; b% Q, x4 ]. wN5......此時#1的值已經置換過來了.#1的值一定比#2大

! o( _. y) U0 n. n我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
, P% {# H, R- c( EWHILE[#1LT#2]DO1
; f3 N$ w$ H" _" U: M0 x; k/ F#1=#1+#2
#2=#1-#2
# y! r5 b0 K- d# U* o1 g#1=#1-#2
! O- T6 H+ V+ V- y' d3 }$ o#3=#3+#4
#4=#3-#4
#3=#3-#4
4 u, H, G. L& i! t9 x- [$ eEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
( C7 C6 R5 f8 @0 Q! A
( r) U0 j. g4 A方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
3 d2 M# e' K9 M/ G0 Z#1=5.
' ]* O  a- o: p8 a0 C. A  L#2=10.
#30=1.
7 W) e( {* l9 s*#31=#[#30+#500MOD2.]
M0

又想把它這樣寫
' I5 o0 h" @+ R# Z( X" d# H*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
% j  u9 p3 s- G3 u# W4 y( P0 f. i) H你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
6 y: Y9 d! l5 X7 v2 z所以，以上语句可以运行的

羅蓋仙

! l2 G$ }+ c- c' {8 q* _
使用數據置換來按大小排列，大→小
2 y) r+ y& J2 i! s法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
#3=7.
#4=9.
2 E# n8 o( ]6 l& ~: G1 h& m4 ]" uN1WHILE[#1LT#2]DO1
#1=#1+#2
* B* r! O! B7 R. U9 R) D# C#2=#1-#2
#1=#1-#2
END1
% C) J4 q& x9 ?N2WHILE[#2LT#3]DO2
; r: K- m/ l* {7 f; v: P#2=#2+#3
#3=#2-#3
#2=#2-#3
) V  n/ I: b) R/ K: EEND2
+ P# H' ^! c* T# v) nWHILE[#3LT#4]DO3
) u8 \* E5 X& r#3=#3+#4
1 R! Q0 x: h, l& A* H6 h# f+ Q#4=#3-#4
#3=#3-#4
+ T0 E1 G% @/ M% ^, i' e9 T$ KEND3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
6 W- P- s) u  ~0 Z0 Z; t5 ]( N: p+ ^

: s- _8 C# u, d  b: c+ q7 z法1-2：使用一般耳熟能詳的IF-GOTO
0 n6 d6 P2 l( n- t# Z) z% j) v6 c#1=A.
9 {' ]9 C4 U) C: Y% d#2=B.
  c/ a7 u# N' E+ }% {. N- c#3=C.
7 W4 i# s: t! o#4=D.
' l% t8 l: D5 hN1 IF[#1GE#2]GOTO2
#1=#1+#2
9 t/ T, \" q) H5 @% Y8 y6 x#2=#1-#2
8 A) v' v+ {2 A$ q#1=#1-#2
/ J  n* e7 A; s0 [, A/ }5 }N2 IF[#2GE#3]GOTO3
#2=#2+#3
6 Q1 y: [5 D+ b8 ?  m#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
4 Z9 p4 r4 f1 C) v#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
' `# X' f& k( b8 jM0

羅蓋仙

# M8 t6 i( C  r法二：使用変変數^^
#1=1.
3 w' B; `' ~$ ~1 T2 ~0 m#2=4.
#3=7.
% ]7 _% y0 s1 W7 U# N( r" U#4=9.
N2 #31=1.
8 S+ E8 R8 H. {#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
5 h1 g8 I4 P: b5 x' U. `9 ~#31=3.
4 N9 q' u+ y8 Q0 L7 fIF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
1 q5 ^/ S7 n) A) n1 i4 g#32=3.
  Y1 s6 L; _& }! k/ Y) YIF[#2LT#3]GOTO1
" T' b2 B5 X% e# y" {. sM0

% W  W1 H3 f' g4 w* K看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶