數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
& L# U. X9 E7 ]9 g* V- U5 G，我看完之後有灵感，
8 ^7 V  M4 f) n, ~: J2 P有人說數據交換法.能用于何處???我來舉個例子
( _' ?* k- ^8 F/ ?; v
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
8 n4 E1 @( M. E/ @# w使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
7 N" M! y- X5 {( ?IF[#1GE#2]GOTO5
#1=#1+#2
# y7 C- D( o& B* Y, `3 `#2=#1-#2
0 _, l7 }8 A8 x. F, x5 }) l  Z#1=#1-#2
( T/ p/ @6 p, z7 l! T#3=#3+#4
#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
2 p  k4 M2 A1 `7 N+ ]; q1 d3 c
6 n" O& `( ?2 c  q我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
4 w2 b) D& S7 c方法B：
5 {0 U+ S4 v) n# XWHILE[#1LT#2]DO1
#1=#1+#2
/ x1 Z" Y6 D! }) y#2=#1-#2
#1=#1-#2
7 j5 y. G7 ^  E#3=#3+#4
#4=#3-#4
  i7 w% W: d2 Z( p% ]5 t6 V7 [#3=#3-#4
END1
+ o( C: l! r, x/ c+ k! A5 L......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
4 e. S1 Z- d4 K
. |% f2 X/ M3 y/ w0 M: m! l1 v方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
/ Q0 ?# a" P3 j1 w/ d3 T- z/ n#1=5.
- k% ~5 x" v. \' P, Q. n- ?, s4 R#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
M0
+ Z9 n" V* U# m6 ^; q5 N/ A
又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

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

羅蓋仙

) X* B+ y( b. a, `5 d) B- }使用數據置換來按大小排列，大→小
; m; c! \* u; N法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
1 y5 E3 w4 Z! l' I$ s  h#1=1.
* O/ ?: F# g* z! C( ~$ {! z#2=4.
% ]: _  n: v/ V" p1 w0 j% ^#3=7.
0 h2 N5 @' ^+ n4 ^3 H#4=9.
) ]5 r( l$ S3 [' c0 H4 ?0 j& XN1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
END1
! q: d5 G; [$ h9 U8 S- qN2WHILE[#2LT#3]DO2
4 j/ Z; X# l" k" d#2=#2+#3
#3=#2-#3
#2=#2-#3
END2
WHILE[#3LT#4]DO3
% M3 x$ K( c2 {. }) t# r#3=#3+#4
#4=#3-#4
2 z5 O" X' _7 p' W4 Y#3=#3-#4
% C# D/ H) ^: d( sEND3
0 R( Q9 H2 ?8 R* XIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
6 f- a5 X1 T' O1 l6 s, H* y* vM0
" A$ q  H5 @% v0 A3 m

6 [! N, w( |8 u, _3 u5 |法1-2：使用一般耳熟能詳的IF-GOTO
. }* q- e' J0 @' u5 }#1=A.
#2=B.
#3=C.
1 @+ g* }$ \( J: h9 u& T7 N#4=D.
7 w* _1 M  s/ yN1 IF[#1GE#2]GOTO2
#1=#1+#2
5 j/ S/ ]- |, e#2=#1-#2
, ^! W/ @& q9 y; [5 d/ p#1=#1-#2
6 v7 ?( M- d0 \3 d7 j3 I$ gN2 IF[#2GE#3]GOTO3
#2=#2+#3
) E5 `0 a; J3 [8 g0 r3 n#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
; n" e! j9 e4 L' R1 E9 _2 Y  m#4=#3-#4
& E/ k8 G) A/ |! N; x  S* N# h#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

5 E+ g* D. t' D
0 o! W; ?6 W: f) Z0 x, c0 T# |法二：使用変変數^^
8 h+ l& Z- [! `) y$ Y4 z#1=1.
4 ?& _4 v& k: y  {4 u% q, s#2=4.
#3=7.
; V  e3 j9 z- a1 ~' n#4=9.
' }4 o6 F3 \% |  o3 _2 YN2 #31=1.
- T; }8 q' h2 _) n9 A#32=2.
& S. j6 o' k7 O( C8 c0 IN1WHILE[#[#31]LT#[#32]]DO1
1 S! P! l8 \+ m2 }$ {% q#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
8 M! A) e  h1 f3 S' a' x5 T$ PEND1
* o3 X7 y) C0 q& h7 g#31=3.
IF[#2LT#3]]GOTO1
  w3 C  T# A; n! b#32=4.
) I1 o( w7 }6 y: k* wIF[#3LT#4]OTO1
7 p5 ^+ h+ L; lIF[#1LT#2]GOTO2
#31=2.
#32=3.
$ ~( x! x9 v3 v* lIF[#2LT#3]GOTO1
M0
  J8 {# d4 D, W) V# B, ]
- h  o+ m/ r6 ]- \3 `  G+ |看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶