數據交換法的使用

羅蓋仙

( z9 G. t; B# R, G: S0 {/ t
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
7 M2 l  s6 G+ O/ m5 ]/ |有人說數據交換法.能用于何處???我來舉個例子
- g! `. _) @  r* V
7 d" ^5 E% \/ Q' d3 l( a0 E+ a  u如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
) j" y! @9 ]4 Z5 J5 |IF[#1GE#2]GOTO5
- h4 @* W' v+ f2 Q! z* Y3 X#1=#1+#2
% `: X" J* T8 C: X+ h6 T#2=#1-#2
' P# V) `% H, X6 ?- K' K' f#1=#1-#2
0 S7 B2 L% f! `( Z- i#3=#3+#4
#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
) M  E, Z1 H% u+ Q/ j2 t. _$ t9 t+ r方法B：
WHILE[#1LT#2]DO1
. V# I/ S$ T1 ?, F9 d4 P#1=#1+#2
( ~2 {  P# _# B$ U3 s* [#2=#1-#2
2 A. B8 O0 t5 t#1=#1-#2
; n# V0 H! H: x9 _0 M( s$ w) y1 X#3=#3+#4
4 r6 e& W9 W1 Y9 r#4=#3-#4
$ u* _% c4 V3 e9 x#3=#3-#4
6 S, w, w! }; w# Z( o$ ~% dEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
/ Z" O$ \% J. F% H9 z" D
2 \& {9 D* @' k3 P# ?% ?/ Z6 N: ~方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
4 \; \6 E9 h7 L8 z#1=5.
; T! ]% Q& Z) Q3 I4 A% D#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
  k8 t1 G! m0 K( J/ S9 {M0

又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

% G1 m, @. V$ s
使用數據置換來按大小排列，大→小
" r: D' T" A! a5 `法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
4 z" ]+ T, z5 {% w# \: L  \% A0 N#1=1.
#2=4.
+ p9 L  a) L5 s#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
; V8 a3 U+ i% b$ t9 bEND1
N2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
8 f+ l( ?% G6 r1 C- X0 E4 }6 |( F#2=#2-#3
END2
& Z" p6 m' _  E1 O5 dWHILE[#3LT#4]DO3
1 @9 W" m0 B7 [* o8 s' w#3=#3+#4
! }7 w# q* s% T4 U# z2 f#4=#3-#4
6 r! K, ?8 D, U) M, N+ ?/ b- }#3=#3-#4
END3
, ]; H( m: [( l9 ]- M3 I+ qIF[#1LT#2]GOTO1
5 i6 g* x1 G1 d( y. SIF[#2LT#3]GOTO2
M0


法1-2：使用一般耳熟能詳的IF-GOTO
6 L: e+ L1 P# c" S- O  L4 B#1=A.
#2=B.
! r; K9 W8 e1 h( E& b! l#3=C.
#4=D.
- E) \2 w  U- [N1 IF[#1GE#2]GOTO2
, u* O& N' ]; ?  [$ g: U#1=#1+#2
#2=#1-#2
7 v$ B3 Y9 o. H' n  b$ D4 i7 [7 d#1=#1-#2
N2 IF[#2GE#3]GOTO3
+ w' O- }7 U$ x- ^& R9 L#2=#2+#3
5 e" r7 J1 w0 h  B; ]#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
9 p+ `2 t4 ^) J! Q#3=#3+#4
#4=#3-#4
#3=#3-#4
! {# x+ |" j  o9 H2 uN4 IF[#1LT#2]GOTO1
" A$ w, D: a% J9 A1 K- sIF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
5 }3 t/ \5 l  G. ~: g#1=1.
6 \2 f+ Z) p* w+ u! x7 Z- l* _  k6 D#2=4.
0 p" \' o+ n+ T' P" O, b! t9 F% B#3=7.
* X: K* L7 D1 E: n# P3 w#4=9.
N2 #31=1.
$ u* H8 N$ U6 B. e#32=2.
  \' g2 u. n# c6 a* `* h  eN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
( m# G. ^) D0 s+ k2 ?- A$ X#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
2 g8 g+ V2 n# f; R6 _END1
#31=3.
4 @' N( D1 ~/ _, n3 HIF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
#32=3.
IF[#2LT#3]GOTO1
1 C3 j% m% i! L' ^, rM0

看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶