數據交換法的使用

羅蓋仙

; I" i- ?3 G, W- ~9 Y; N' ^
! ]; f, G  N) t) t上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
/ Q) D: I! F, b/ N有人說數據交換法.能用于何處???我來舉個例子

. i' ]& J  w2 ^; {' P如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
% [# \) X+ v# `9 J. H使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
( q# [6 y; [0 n: A. sIF[#1GE#2]GOTO5
2 F/ B- ^$ H; q6 O# Q4 ?8 H, O) h#1=#1+#2
#2=#1-#2
4 x6 S/ r% Z; `3 I7 f+ w#1=#1-#2
#3=#3+#4
- J, q) l0 Z- P6 M  u9 p! m#4=#3-#4
% z; P" j. o& p& N6 Z4 }8 l# c0 i#3=#3-#4
: s) o1 M- W' D- F) p. H3 [N5......此時#1的值已經置換過來了.#1的值一定比#2大
$ m8 t; K0 y8 x5 `6 Q* {" R5 Z
; ]* V5 @1 j. F, j  u& F! l; W我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
1 j4 U/ o( c9 D; a9 m#3=#3+#4
#4=#3-#4
2 v; a$ t" t- \) K/ _$ k( ~#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
3 e& C: W5 P+ j: w6 ~  `3 E
+ ^; _8 h$ d, ~' x6 m( F5 `方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
" l; U9 ]4 g, P$ S7 M#2=10.
/ E+ w7 ?- U1 D# f& Y#30=1.
% w  E" m: |/ n$ f' Y" }*#31=#[#30+#500MOD2.]
3 q; b5 C" Q! AM0
  r+ L0 H! a; a0 J; v, f5 q
3 o' o& p! Q  X$ F0 W8 l- O/ G又想把它這樣寫
( J  v% d  \* o% R0 T+ O, @*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
$ Z( ~" Z: V! K, W你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
# H4 Y1 q6 N  ~9 U" S" `8 S所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
8 `  c8 C$ p" Z8 _4 Z& l8 M7 \4 ^) m法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
* r- B9 I- [/ s. |3 x2 x4 m4 _0 o#2=4.
% D  t- A: n: i#3=7.
#4=9.
: p, Y6 z5 R/ m; O3 wN1WHILE[#1LT#2]DO1
/ Q+ _, `2 b; d1 B: ?: C#1=#1+#2
' K: b- ~& w6 {; a! ?( ^#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
0 {  }5 J) K4 \$ X4 z! v/ F4 m#2=#2+#3
#3=#2-#3
+ y1 w" Y$ A9 y6 y* X8 [( `% x5 T#2=#2-#3
6 h) O1 a; v, p1 X3 NEND2
1 v/ s" B$ v6 _- z* ^$ {/ J0 YWHILE[#3LT#4]DO3
#3=#3+#4
0 i4 A8 O: A0 `2 k& O" h+ P/ y/ u#4=#3-#4
#3=#3-#4
END3
& s8 T. K  T1 x; A& {8 V5 g  qIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

) {$ p2 X) ~1 d  q1 X  y
8 n5 L$ r' }/ @! m0 u& x! @; y9 l6 U法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
9 B% i4 |" u! D; l" G#3=C.
! H! G" w, \3 \! i5 q1 F6 }( w#4=D.
+ c3 F8 e2 R0 V$ \, T6 gN1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
- o: Y+ Y" n# A- g' \7 L#1=#1-#2
/ b7 [# g% N7 w) z, [% _5 CN2 IF[#2GE#3]GOTO3
+ V2 k% J* R& l0 P& q+ l#2=#2+#3
#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
9 W' B2 f2 _. U3 t#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
0 ?( x2 D* \* M' a/ h. }6 hIF[#2LT#3]GOTO2
M0

羅蓋仙

9 l  a+ z1 w6 L7 s法二：使用変変數^^
7 g: I8 e2 S" P) j7 y3 ?7 z9 Y* I#1=1.
#2=4.
#3=7.
# `+ y8 }5 L$ Y. O8 F#4=9.
N2 #31=1.
#32=2.
; N# A# m  o/ D* m" Y3 E: S( c2 X$ `N1WHILE[#[#31]LT#[#32]]DO1
3 p0 o( f' K! K" B" n#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
/ ]- q" w$ W/ Y- J+ u' jEND1
% h( f. U3 ]8 _: K. F# y#31=3.
. S2 a4 h( b8 J) i3 ~6 QIF[#2LT#3]]GOTO1
/ R* w7 o+ P+ _' l4 x7 d  h#32=4.
4 V1 T6 g* P% }* I' RIF[#3LT#4]OTO1
6 k0 `3 O' }! I- L& S% BIF[#1LT#2]GOTO2
9 @* W* u' e2 F7 k#31=2.
# P/ A- @, K4 r) @; a3 i% \#32=3.
IF[#2LT#3]GOTO1
M0
$ A4 v+ @: B8 i- Y
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶