數據交換法的使用

羅蓋仙

/ \# ?+ _' R7 i" ~. B+ l
# R9 ]! v& N6 D7 i# n1 f2 E. X% N上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
3 Z' P. n1 v6 o$ j. K3 B% [
1 y8 y2 {$ i" V1 W2 W0 X如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
/ O! W2 g4 I0 A+ J使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
* S: F! E: R6 o# b4 aIF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
. A8 I5 u2 I# O' m# D+ h#1=#1-#2
& h! [! u1 [! J#3=#3+#4
#4=#3-#4
$ l. }2 W$ [7 q: L' B  o#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
/ l4 d0 {0 o/ w#2=#1-#2
5 S; J7 G+ Y2 J1 O#1=#1-#2
1 H" I4 e2 T* ~8 O#3=#3+#4
$ c- w( f$ G& L, T/ N- n#4=#3-#4
0 u8 z( `7 O, N& J% |8 P#3=#3-#4
END1
1 e( U7 ^3 m  C  Z) k......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
; \: F! p4 ?/ W6 g  E
. k5 J, ?# |9 N方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
6 J1 ~) z# b! B- I4 p" S#1=5.
#2=10.
; B# `) `3 Q* A0 O1 W#30=1.
*#31=#[#30+#500MOD2.]
M0
8 A7 u- M* `8 n. R
又想把它這樣寫
*#31=#[#30+#500AND1.]
7 E" `0 Z( Q/ W3 W; dM0

空气中的小鱼

回复 2# 羅蓋仙
, j% K; y9 o' ?7 z0 s/ P你的表达式中没有只是逻辑运算，
" x8 J3 i  T; ~- }只有逻辑判断有些系统版本不支持
. l, G0 W6 }" r  Q& F7 c所以，以上语句可以运行的

羅蓋仙

+ ~: h4 K3 v% _- P
使用數據置換來按大小排列，大→小
6 k7 A/ H" n+ s+ A法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
3 y+ [6 ]; Q; [' |- |% }#1=1.
0 d7 }" \) h0 T, M' O7 f5 v#2=4.
#3=7.
#4=9.
2 G/ A1 \2 F1 O1 cN1WHILE[#1LT#2]DO1
* M6 R/ B2 p: H" Q5 Q5 k" D#1=#1+#2
#2=#1-#2
% e* E7 ~% W. z0 d# [7 w- d#1=#1-#2
$ W1 [+ R& d! ?3 A, IEND1
5 r. N% r; _1 J" x$ Q8 |- J4 FN2WHILE[#2LT#3]DO2
1 `, C+ A& K. N1 b#2=#2+#3
! G. p6 _; @. D2 n$ Y2 `#3=#2-#3
#2=#2-#3
END2
2 Z9 M! R, K2 f# P) O$ b, V' mWHILE[#3LT#4]DO3
' E* g% Z7 U8 g# g  q. R) `#3=#3+#4
#4=#3-#4
4 `0 o3 L3 b* k5 r/ {) \#3=#3-#4
END3
( s% X. E; E: lIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
- i( O/ B0 M/ @/ R) C
/ F5 p$ J% Q1 a" [7 E7 Z5 \
法1-2：使用一般耳熟能詳的IF-GOTO
! A* T& ~7 _* j4 b" V8 H6 g) v#1=A.
( i- F$ N: ]( w% ^) I1 R#2=B.
#3=C.
+ S9 Q4 R' P9 l- s#4=D.
  ?8 f3 T* q0 l" h: X8 _# HN1 IF[#1GE#2]GOTO2
9 p" g) f3 t9 Z- y* d! C# ^3 r5 P#1=#1+#2
#2=#1-#2
- w8 N' x' Y; s4 l  [+ M#1=#1-#2
N2 IF[#2GE#3]GOTO3
- X  U7 w! n3 `( c; U: A- j#2=#2+#3
* E) B! v1 n+ t% _" X% Z' l+ x6 Y2 J#3=#2-#3
. Z( m" k: _0 F- [$ s#2=#2-#3
* e5 k8 |% x7 P" b1 C3 W/ I9 CN3 IF[#3GE#4]GOTO4
8 E" m( S8 V/ k1 G  D' @#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

' t9 A$ u' T; q8 k
法二：使用変変數^^
- i. G  [- J( `' w" X. L. A#1=1.
2 A- P! F$ `# I9 l0 d; B#2=4.
#3=7.
#4=9.
  h  T- Y9 o* xN2 #31=1.
6 {9 y4 A/ G! C0 h' p#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
- l6 ]% T3 s0 g3 S2 Y#[#32]=#[#31]-#[#32]
1 z- `% U% ?( \9 e#[#31]=#[#31]-#[#32]
END1
9 K5 [1 N- l( ?3 ~6 v& o' n#31=3.
" Y  Z6 T' Y/ ]5 ]IF[#2LT#3]]GOTO1
% b: [# z7 I# S! r3 [$ u#32=4.
IF[#3LT#4]OTO1
% y" R# T  B% L! I5 _1 ^4 _9 eIF[#1LT#2]GOTO2
#31=2.
#32=3.
/ W: d5 ^2 o) F; o& Y, fIF[#2LT#3]GOTO1
M0

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

longmeier

好帖子顶