數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
* f# a* L9 U; {4 m6 t8 l，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
# y+ n9 ]  F0 G. ~% ?
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
6 S0 d$ ?$ V5 q- C" f! ?- N" }方法A：
! o$ _3 i. L$ d6 L( ]IF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
0 |% Q8 l6 A1 S1 [#1=#1-#2
5 y6 Y4 f4 T  H# y' T2 H: Z#3=#3+#4
0 N$ \, I9 `) G: z#4=#3-#4
8 j) j* j9 C, j% f#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
, ]; t7 B. D1 g7 r4 ]! F: i* D) j1 z
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
' ~. ?, y4 t3 j" ~; r3 kWHILE[#1LT#2]DO1
#1=#1+#2
  a+ y1 J7 Y# P" U5 r. x1 j#2=#1-#2
/ E# `1 A' _1 B8 {#1=#1-#2
- z9 a+ y9 K* B* M8 {8 C4 |0 Y#3=#3+#4
4 ?" e* A# d2 Q& D/ z8 X- S#4=#3-#4
#3=#3-#4
8 R; e5 W# n8 oEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
. t6 j( ~* G+ B& n5 [9 B
% z/ A3 z& c) w; e# R方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
- S  w$ [$ i* r9 Q; g7 j4 [% O#2=10.
/ e' B3 r- v6 `) G; E6 p# J1 a0 Y2 P#30=1.
*#31=#[#30+#500MOD2.]
M0
  E2 T" T" \5 y4 f2 f2 \1 T
又想把它這樣寫
' z  ]8 u0 F- M, W*#31=#[#30+#500AND1.]
! w/ G% l8 t2 L' I  E0 {, L, zM0

空气中的小鱼

回复 2# 羅蓋仙
* k+ W! J: s4 p  z6 f6 {4 T' z0 m/ D% X你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

0 v8 Y7 F1 H/ A# u) k
使用數據置換來按大小排列，大→小
3 l6 n1 E3 ^1 i; Y法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
#3=7.
#4=9.
7 L+ L; q( x; s3 e% B9 ^N1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
5 M% D3 B. c0 C#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
#2=#2+#3
3 e/ x9 x7 \3 W! x0 a# b#3=#2-#3
- K1 K4 Y* h/ |( L8 J% i7 _" K9 i#2=#2-#3
1 N. h/ I& E5 KEND2
WHILE[#3LT#4]DO3
; E- ^4 Q1 ~! H5 ^3 b/ U#3=#3+#4
#4=#3-#4
#3=#3-#4
END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

5 ~2 a- y9 I3 g0 X4 @
: s( R+ h7 L, V3 F( e2 R- y法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
+ B' D4 t- B0 t7 n9 S7 h' W#2=B.
8 I+ R3 u" l) J' y#3=C.
4 S, ^) P" j  d3 ^# a; g#4=D.
N1 IF[#1GE#2]GOTO2
( {. H6 m( ?" w( T6 }#1=#1+#2
# j0 l, N+ z9 M3 s) l' N9 O#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
0 L! w* o* m8 p- H% O" e8 J; l#2=#2+#3
/ z* |" W7 ?- m#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
2 o/ Z/ ^: b, ~/ q. R#4=#3-#4
: q2 N/ P) l' n; l#3=#3-#4
8 Y! j- q6 j/ j2 xN4 IF[#1LT#2]GOTO1
4 f5 U( J$ m+ m2 q' wIF[#2LT#3]GOTO2
3 Z( k6 Y; v& a) W& l) V, TM0

羅蓋仙

法二：使用変変數^^
#1=1.
0 l" S% C5 f# D. k& {0 z: ]2 K#2=4.
6 G$ ~( l  _* \: ^9 D1 ]% E& q, j#3=7.
& P7 p2 @9 o! Q. m1 G% _#4=9.
N2 #31=1.
6 l. s+ }$ W3 Y) t; V4 y#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
$ [: E7 B: `" H#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
6 H" Q7 _; \! s: _" ^! _8 p5 PEND1
" a5 @& w- _/ n#31=3.
$ W' e: G& X$ m' f. P' cIF[#2LT#3]]GOTO1
8 b+ L. t  Q) f6 y" g6 y! g8 i! P#32=4.
! N0 h( N+ P: gIF[#3LT#4]OTO1
% w5 R' ^( }4 P. Z$ l- l8 Y4 KIF[#1LT#2]GOTO2
#31=2.
3 z+ T, J/ b! ~% @+ H8 l0 e#32=3.
IF[#2LT#3]GOTO1
M0
8 c# t; }$ b# M" g' X$ O
) _4 _8 [2 h' o看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶