數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

( t* g/ e* A/ t7 `如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
9 \5 s$ E" M) {使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
/ B+ t! T. k, u, u方法A：
6 c( G; M/ l$ z2 zIF[#1GE#2]GOTO5
' f& j9 ?/ @$ g6 W6 x% k" F8 t4 `#1=#1+#2
7 e" b& ?% x' [, T- g#2=#1-#2
#1=#1-#2
0 `% r! d( V2 W$ g9 t0 K#3=#3+#4
: [- u& \* k( {( I- r  j#4=#3-#4
: e! {0 V- b' l8 M0 f3 o6 O#3=#3-#4
) I; \# U8 ]* W4 a5 NN5......此時#1的值已經置換過來了.#1的值一定比#2大

3 e& L+ w' ?! Q+ o$ ]我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
& _. ~. d5 I% v7 W& @# d方法B：
/ }& q: Q; o8 F7 Y' o" b, M  _* xWHILE[#1LT#2]DO1
#1=#1+#2
& g1 q$ i. W3 @. E2 t#2=#1-#2
#1=#1-#2
#3=#3+#4
6 R$ h# K- O, E$ e7 o4 W  R#4=#3-#4
#3=#3-#4
  M% o/ }9 @* c1 ?1 ]/ jEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
2 [! Q! ]$ y$ m( X* [
8 h; {. D. j% i6 L+ Q/ P0 _方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
M0

又想把它這樣寫
. l4 @% @$ G5 W% I& y+ K8 c*#31=#[#30+#500AND1.]
" i7 v! t6 ^$ K/ tM0

空气中的小鱼

回复 2# 羅蓋仙
( N) j3 L7 M0 U. K! t你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
% l: c) X" k+ }! ~; e所以，以上语句可以运行的

羅蓋仙

6 s" r' n9 E! [" J, b! A
使用數據置換來按大小排列，大→小
# h# Q. B2 F$ _. g& n& R: d法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
1 p0 U2 ]; \) T: Z  W$ P#2=4.
#3=7.
8 [8 U/ P/ q- \! o, E6 g#4=9.
N1WHILE[#1LT#2]DO1
9 A, R% ]5 G6 E#1=#1+#2
8 M/ b9 m9 i$ O#2=#1-#2
5 f! U" A+ x5 L# ~. C& v9 I#1=#1-#2
+ Z' Y) ~% A: vEND1
- q1 X. v2 ^% N- q. l9 yN2WHILE[#2LT#3]DO2
#2=#2+#3
3 D7 Y0 O- Y( \, K$ V#3=#2-#3
6 Q' P, N4 C7 j" r- Z+ X#2=#2-#3
END2
8 O. ~6 }+ i8 G/ c5 }) G: @WHILE[#3LT#4]DO3
#3=#3+#4
" I3 q) _; q! G/ U) q( I#4=#3-#4
8 s% }- A  W$ P4 m# H) v) ^) n. d#3=#3-#4
$ d' Z& Y! Q4 c) O: x3 aEND3
IF[#1LT#2]GOTO1
0 {# r+ j- M/ |/ R: I7 ?6 BIF[#2LT#3]GOTO2
- t3 I0 f5 n& k9 r' U3 _1 R# fM0


) u1 D# S7 E2 |2 b5 v法1-2：使用一般耳熟能詳的IF-GOTO
  e9 F' m+ n& r#1=A.
#2=B.
#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
( C! }: x; {. O) b, v#2=#1-#2
#1=#1-#2
9 s! ?" S! A  n6 b6 C- T! l0 VN2 IF[#2GE#3]GOTO3
#2=#2+#3
% u, r/ H: k6 o+ k& \& o& Y#3=#2-#3
#2=#2-#3
7 }# z; z% K# RN3 IF[#3GE#4]GOTO4
#3=#3+#4
" h' S* y+ w. ?+ U8 W: p#4=#3-#4
#3=#3-#4
. R8 R" N2 v8 Y: U) H0 i1 w# K; ^N4 IF[#1LT#2]GOTO1
& u9 T  V. b$ |0 BIF[#2LT#3]GOTO2
8 c9 l2 u# M! ~; f9 ~M0

羅蓋仙

法二：使用変変數^^
/ x+ O* D3 B) a# Z, M. W% [#1=1.
#2=4.
#3=7.
& j4 \) V9 u9 J1 X5 l+ a6 C#4=9.
N2 #31=1.
9 e% g7 }6 C' w& g6 Y( L8 x#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
  |% ?; T, Y7 t' h2 z#[#31]=#[#31]+#[#32]
( V7 z  @4 I5 h2 L5 f#[#32]=#[#31]-#[#32]
5 k9 V2 k  r6 g: `5 p4 W#[#31]=#[#31]-#[#32]
END1
! b9 N# I  V9 c+ x* Q#31=3.
- C5 @/ z( K& g' ~+ {; W2 qIF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
6 H4 `* \7 j8 D7 nIF[#1LT#2]GOTO2
2 j1 h! E* W7 Z% O2 {9 K; h2 G! a& i7 J#31=2.
8 a! Y& I: T; q; [; l) Q#32=3.
  j' N/ g+ r) ~& t  `IF[#2LT#3]GOTO1
- ^8 a% T, k! pM0

7 L# u& G$ f  K- k看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶