數據交換法的使用

羅蓋仙

+ O# z6 K  s# g) J& @: Y2 L
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
) b; k+ _- O3 A' j6 U9 H3 g, W，我看完之後有灵感，
( d8 x/ B  v, q1 b- T0 t有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
$ M. i. f6 a& G2 V方法A：
IF[#1GE#2]GOTO5
7 m; @/ T* s6 e/ E7 j8 n; U#1=#1+#2
4 J6 x( N" H1 K# O' a' b#2=#1-#2
#1=#1-#2
" o) K$ D# k4 p9 ?#3=#3+#4
. o+ h+ G( ^2 e4 y#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

3 M/ X& Z* G" |2 r) E; Z我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
: w+ ?3 o- Q' V+ y#1=#1+#2
2 o- i" ~1 O' b+ c8 i& u#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
END1
5 e, |& ^$ R/ m- o8 @3 T9 I) i! ^......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
- O( K0 f# n' r# |#1=5.
( S3 J# H0 ?8 ~, F% t#2=10.
& P( }4 ^) H2 N0 `7 j7 n+ [% `#30=1.
*#31=#[#30+#500MOD2.]
. M  R- @& `0 Q) ^% [' |# pM0
0 e4 G# h' C% e) O
又想把它這樣寫
1 |4 ^/ S* J$ G# B0 Q) t6 B*#31=#[#30+#500AND1.]
. {. e$ K" j0 T) }5 _/ B4 {0 e, ]M0

空气中的小鱼

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

羅蓋仙

+ r8 \3 Y* @# m. g( F* F3 K使用數據置換來按大小排列，大→小
- h8 t" V* ^" b9 c& T法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
' d/ q/ ^1 Y# W/ ~: F# \: F9 I#1=1.
; I! Y& S! o8 C, n( g" p& P+ C#2=4.
#3=7.
% a/ s5 O; ?2 i) ?' g#4=9.
N1WHILE[#1LT#2]DO1
4 `4 o- U! k4 b/ H  `7 n#1=#1+#2
#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
$ I7 b# A7 B. D; i' e2 o" |#2=#2+#3
#3=#2-#3
#2=#2-#3
END2
WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
#3=#3-#4
: v* @/ J- ^5 n' u$ dEND3
0 I* S- i& o" U, S( g6 {2 q5 ?& vIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
; S  k4 z8 u; c) }2 b$ ]  ]( SM0

+ m4 K7 \8 l1 y* Q* O" v+ `+ _
4 Y' l- T2 N- a1 y; T法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
# \& c- x9 X, P#2=B.
1 c6 {+ v  B: Q) z#3=C.
#4=D.
8 m  K- w. N0 ^2 v* ~% `7 RN1 IF[#1GE#2]GOTO2
#1=#1+#2
5 t! i. _' G( H% M0 c; C: f# s; B#2=#1-#2
#1=#1-#2
  ?1 A& S7 B& g" V2 D0 t$ n* T; oN2 IF[#2GE#3]GOTO3
#2=#2+#3
3 T4 L. j1 a, ?: ^& ]#3=#2-#3
#2=#2-#3
* o6 O' Y3 n, x" ]- X$ R5 NN3 IF[#3GE#4]GOTO4
#3=#3+#4
) P  e5 n+ V+ x; K" V9 ]#4=#3-#4
#3=#3-#4
2 q4 ?5 w- V$ \* x9 r' p/ SN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
: l( e2 X3 i  E+ D  nM0

羅蓋仙

1 M( g  l2 H6 }' R& b法二：使用変変數^^
#1=1.
#2=4.
#3=7.
#4=9.
6 g$ ]# v  m8 R$ _" {N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
; t4 G* Z) G! i3 p#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
- _6 p6 \! n/ N8 F! b5 s8 g/ R#31=3.
IF[#2LT#3]]GOTO1
#32=4.
) K7 q5 q( Q* g# k: r6 s" W6 HIF[#3LT#4]OTO1
; W# X1 I3 i4 O+ X, OIF[#1LT#2]GOTO2
#31=2.
/ H! {7 w/ W  k; Y; U/ y/ g; Y) H#32=3.
IF[#2LT#3]GOTO1
M0

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

longmeier

好帖子顶