數據交換法的使用

羅蓋仙

% `) W$ K/ u+ m4 B4 v3 @
2 e  p1 k( }1 @; s& j5 s# b上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
4 A9 P) J  D( v: q0 T! {$ w7 E有人說數據交換法.能用于何處???我來舉個例子

' p/ ], \# s" L# |如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
* Y5 V6 E0 V) Y. j使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
& o) D, C& K1 r2 N1 v#2=#1-#2
6 j7 d. W" U8 G" @- |#1=#1-#2
$ k5 b5 d  t, w- r' x; k) C#3=#3+#4
/ Y4 u+ \) A( P7 S1 I#4=#3-#4
' ]( u, ]' ]& c% V#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
9 J4 e0 @: O6 a- t方法B：
0 T2 q7 F2 z! [2 hWHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
6 I" e2 i$ \$ d6 Z. C) |( g/ d; U#4=#3-#4
( ~6 e7 f0 y. ^" k#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
6 `7 ~% l5 F, A! D
% A6 X0 O" s9 n. T0 P' J方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
/ O( v# }& I7 A#1=5.
#2=10.
#30=1.
/ V, j6 C4 L8 r3 T3 `& A) d5 O*#31=#[#30+#500MOD2.]
M0

又想把它這樣寫
*#31=#[#30+#500AND1.]
0 [5 U# V8 v, k1 Q" lM0

空气中的小鱼

回复 2# 羅蓋仙
( o0 B+ V: I. \7 g你的表达式中没有只是逻辑运算，
( M9 l# e  j2 }2 J3 Y只有逻辑判断有些系统版本不支持
' Q, J- {* E( X所以，以上语句可以运行的

羅蓋仙

2 S: n% q# ]7 B4 K1 Z2 r使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
* M/ N8 [( z$ Z  U#1=1.
( [1 g' E8 [1 ^#2=4.
#3=7.
- |; ?. a  b9 X# ?, X6 P1 v#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
; }* s1 U& p6 I; F' v. w#2=#1-#2
#1=#1-#2
END1
! F! z3 |9 C. K# G  T7 QN2WHILE[#2LT#3]DO2
1 B( ~, f. X1 x8 W/ z, I#2=#2+#3
3 V! W  k- c) n. x/ B( d1 e* ^#3=#2-#3
$ q4 _' U7 _$ |  \) u#2=#2-#3
END2
WHILE[#3LT#4]DO3
3 i. M) f# n8 R3 a. L' @8 y, X- w#3=#3+#4
; F* V$ e- m* T8 H#4=#3-#4
#3=#3-#4
/ b9 |4 h8 X7 e" F7 {. eEND3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
8 B- ]3 b& _5 `2 S* Q* ~  y1 CM0


法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
#3=C.
#4=D.
$ h1 `; O1 j" q$ {0 l! tN1 IF[#1GE#2]GOTO2
. U. }, E, G+ O0 e( `1 f#1=#1+#2
1 t4 T9 u3 X; _: ^+ E" Z#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
#2=#2-#3
3 @* F: O$ ~. E5 GN3 IF[#3GE#4]GOTO4
#3=#3+#4
" c: o2 g8 O8 y#4=#3-#4
( G& @' F' L5 U#3=#3-#4
N4 IF[#1LT#2]GOTO1
; s0 Y3 `( b' w. D" v1 d' _IF[#2LT#3]GOTO2
5 M: m8 r* _' [- W) l+ K  [: xM0

羅蓋仙

1 N% h" J: `9 v; Q* d/ t) r
法二：使用変変數^^
& d9 o* y* Z" B+ q#1=1.
#2=4.
#3=7.
#4=9.
N2 #31=1.
8 `& c. o: _5 w: C7 }9 D& X4 P3 y) y#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
8 y* u8 N' v: u7 e1 N  {#[#32]=#[#31]-#[#32]
- B. A0 F, \8 C#[#31]=#[#31]-#[#32]
END1
#31=3.
0 B5 [! }( h4 e3 Q5 u  f( xIF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
  [3 G) g6 r8 [#31=2.
#32=3.
: D( Q  s7 Q6 C  W& IIF[#2LT#3]GOTO1
M0
2 ], a" ^1 _9 p) [4 ?' ?3 n
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶