數據交換法的使用

羅蓋仙

7 u% {0 J4 |3 O+ D. G' @
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
  ^7 L* o$ C: [，我看完之後有灵感，
% f2 G( T2 k" t4 @$ H有人說數據交換法.能用于何處???我來舉個例子
  Y5 e+ x; [3 o) ?1 b3 Z. L& p
0 N& ]. S! i# @5 ]! W: _+ o如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
" `- i; t3 g6 |4 ^2 D使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
& B7 w  H# F# G2 E* }" o$ t" n  Y#1=#1+#2
#2=#1-#2
; R# k% L# }8 p$ a7 X  ^#1=#1-#2
0 {0 D6 P5 F6 d5 D) S#3=#3+#4
( A% ]9 H! W; n! I; l9 L9 I+ F$ |, {, [#4=#3-#4
#3=#3-#4
% y4 y3 d7 J3 Z" \N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
) I1 B7 |6 J2 u2 m( }方法B：
; ?/ u9 h' y. H- RWHILE[#1LT#2]DO1
4 q+ A' I3 @: I/ a* b/ y#1=#1+#2
" W3 Q" a) c/ D3 A$ D' w#2=#1-#2
. y9 Q7 R/ ]# A( f# J#1=#1-#2
  a4 B  }" a" d3 W3 }! f/ A#3=#3+#4
/ |) q# Z0 K3 n* m# E#4=#3-#4
#3=#3-#4
; W" X4 ?/ }2 T; s2 ?END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

9 g6 q6 A( l5 b, _5 o7 j4 c( w- z% \方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
; J! |! o: U' g#2=10.
8 s$ P/ {9 b8 f$ A" h# a#30=1.
*#31=#[#30+#500MOD2.]
' t/ m! b0 t# N& w$ KM0
; o: w8 h  B9 U  M) Z  c: L: g
5 O. y7 M. k. i6 y8 ^又想把它這樣寫
*#31=#[#30+#500AND1.]
% R7 P( v3 Z* k9 d) x1 ?: F. QM0

空气中的小鱼

回复 2# 羅蓋仙
# `3 q% M& ?8 x! E. Y& \1 b3 W你的表达式中没有只是逻辑运算，
1 o1 `/ [$ O$ i- p) _& t只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

2 Z  m$ ~1 j5 g" _) a+ a
% i. {0 n8 T  h( P  B" Q使用數據置換來按大小排列，大→小
$ u& @7 c9 s- C# Y7 G. i法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
/ z6 a7 x! D  x" v: G' ~2 Z#1=1.
#2=4.
#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
- D9 {% W  F4 \! t+ m#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
#2=#2+#3
0 j  ]( Q5 l: T7 _; N5 N#3=#2-#3
#2=#2-#3
END2
) D+ D5 S3 [. P& A; @WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
: q3 M  d: [0 Q#3=#3-#4
" Z! T. _5 q) I9 I7 W( mEND3
3 E# D/ V, k* m0 s: HIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
( E- Y8 a/ l; g4 H- `* \

! R/ I! T* r' p% l6 D) {法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
& M. o; ^  S9 ?  |  O1 K9 _#2=B.
#3=C.
#4=D.
* w9 [% `9 b" w; @; |1 @* cN1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
  g. [8 F! k8 ]- G7 \#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
& k+ |- ?! ~* }#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
2 z5 n7 y6 F! R#3=#3-#4
; v  X1 S4 V2 r4 p8 m0 TN4 IF[#1LT#2]GOTO1
- ~% a* Q: \. p% i. N% A& tIF[#2LT#3]GOTO2
! k. W+ o1 q8 t4 D, @- L" M) }M0

羅蓋仙

, o7 i! [7 T) M8 P- l4 K+ M2 u
法二：使用変変數^^
#1=1.
#2=4.
#3=7.
, X2 z% `1 a. G7 m  m8 e8 r. h#4=9.
* {  L9 \1 n0 v# JN2 #31=1.
# H2 `: R; P, ^+ C! N#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
0 N9 q: [4 |8 R' I8 \#[#31]=#[#31]+#[#32]
8 a: X' ]: U+ D1 l8 U5 y& w( |#[#32]=#[#31]-#[#32]
+ d$ E' N* n9 O: A( H/ K#[#31]=#[#31]-#[#32]
9 k! c" I0 `, {8 w* D- LEND1
/ `* B3 K$ x- G* V' a3 c) x$ h5 G8 \#31=3.
IF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
% H0 \, U2 [+ d6 Q& a) D- |#32=3.
IF[#2LT#3]GOTO1
5 ]5 s1 X6 v: ~- jM0

- t6 T% L6 l5 m$ T, ]0 ]! ~看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶