數據交換法的使用

羅蓋仙

# n; O' r+ l% m0 Z, j
9 U* b/ G& U6 S上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
/ h* r9 ^2 O8 \/ C2 l- ]/ u& @% K，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
! p% m8 o; U/ p8 q/ a. s8 O
/ p& N* \9 `% m如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
  ]8 y, U7 `  X0 w" [IF[#1GE#2]GOTO5
#1=#1+#2
- a4 r* p) _- U, H#2=#1-#2
#1=#1-#2
# H7 l" B4 k$ C- s#3=#3+#4
7 ^- p& w0 N+ n5 m2 h8 z0 s#4=#3-#4
+ [# }+ m1 r) G* N1 ^- j#3=#3-#4
! i* j* e7 t  @6 j7 ~# t3 TN5......此時#1的值已經置換過來了.#1的值一定比#2大
0 l9 G5 Q1 R$ d) z6 M7 D* T
$ G5 ~9 b$ |) Z/ ^我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
) G% y' t  ?/ m8 Y方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
' Q  [4 c& s; R0 r" N" s) D0 H% V6 q& L#3=#3+#4
  _% K" o( w) H0 M- i4 P9 l4 m#4=#3-#4
#3=#3-#4
END1
9 x0 S$ U0 ~. q6 Z+ w9 r+ v* d+ c......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
  f0 t2 _; H+ b' v
3 L- q+ D; a. ^2 n: t方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
: K3 P  Z& N5 y3 g9 x4 E% d3 M#30=1.
: d. s4 c. ~9 [*#31=#[#30+#500MOD2.]
5 ~% w. B" O. i! n, gM0

又想把它這樣寫
4 p( l" q6 e6 s0 Q; d! E# j" H0 L8 r*#31=#[#30+#500AND1.]
' O4 [6 U1 u7 P  [# uM0

空气中的小鱼

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

羅蓋仙

使用數據置換來按大小排列，大→小
/ _& W' c# d- F法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
% U; D" H6 m$ B! L! \#2=4.
#3=7.
#4=9.
. I8 H  c0 ^% iN1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
. C8 f/ U: i+ M/ v1 B( P* \; DEND1
N2WHILE[#2LT#3]DO2
#2=#2+#3
8 |% y. k, i1 g#3=#2-#3
#2=#2-#3
END2
WHILE[#3LT#4]DO3
5 Y7 p$ K  k6 T' h1 @# K5 p#3=#3+#4
; u8 d: ?% _7 J0 m. R#4=#3-#4
; W9 X/ C9 ]9 n#3=#3-#4
8 z; {( U, F$ p1 f- k1 O" VEND3
IF[#1LT#2]GOTO1
, H. l7 N. R+ h( AIF[#2LT#3]GOTO2
M0
0 r2 I4 X+ e4 k; \# W

, `; J, B  [6 |8 D3 g% `" v3 M. |法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
% \( b6 X: d2 _6 w! a% @. }5 n#2=B.
#3=C.
7 m" f5 K1 K' c# l#4=D.
' ]! s6 [8 Q. w" Y) ZN1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
4 C# `! k7 _# J- A#1=#1-#2
: m9 ^" u2 N' a2 d  ]N2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
3 s% \+ ?$ X! R; T$ ^$ q( D, s#4=#3-#4
5 P6 \: h! H+ P  A- b; l! Q#3=#3-#4
9 D& j5 n5 D% Y+ l! DN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
  \* K9 j9 d. ?/ Q. M" u3 U1 |M0

羅蓋仙

法二：使用変変數^^
#1=1.
* b' k9 F, c; l#2=4.
#3=7.
1 B  F# r$ o: ?2 c#4=9.
N2 #31=1.
5 t9 H( |# E" b* E#32=2.
; N  f& E' Z* B2 ?9 EN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
$ ?$ H! ]' \9 M/ Y+ v#[#31]=#[#31]-#[#32]
, P5 p: b; t3 d; P0 @" r. j& XEND1
#31=3.
7 O9 H. l1 o" A/ \2 CIF[#2LT#3]]GOTO1
( L1 T# e, A& A8 Z#32=4.
IF[#3LT#4]OTO1
, _# T1 e# q3 `' E. A$ {5 i) uIF[#1LT#2]GOTO2
2 |; [8 D% W& ~- }& r#31=2.
# f& z; }& N+ v$ I$ \) b#32=3.
8 r2 c- F) Q% s! T2 j5 xIF[#2LT#3]GOTO1
. K: W8 y  e1 s- vM0

看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶