數據交換法的使用

羅蓋仙

# w+ z- e2 b+ w7 s; O
+ m4 y( D6 t+ V) ^上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
7 d6 T7 h3 b* `# h, N，我看完之後有灵感，
4 A5 q, M: l, g. g! i有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
& e  @/ H5 X5 O使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
, k& S2 L' k- e3 h6 V; K* V& SIF[#1GE#2]GOTO5
6 A% Q( D( k& v6 W; {% f) ]: c  `#1=#1+#2
& `7 `; \2 N  Y#2=#1-#2
#1=#1-#2
7 B7 v! L; [$ c- b#3=#3+#4
#4=#3-#4
#3=#3-#4
# r9 R( l0 j/ N+ |N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
, {6 M7 A: }9 J# ^方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
' l8 P. A# ~7 u& X/ Q#1=#1-#2
* C# i% _; A' y0 k+ Q" B  t+ d#3=#3+#4
1 D9 o3 ]# t) F$ O#4=#3-#4
4 V: V8 N1 P. k, W- I#3=#3-#4
END1
( v5 g. |) j+ u4 @6 A; ^+ E1 I......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
5 N2 o% |3 Q% }5 h& L6 m3 e#1=5.
  S  t: j9 l( s#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
/ F5 c* m! l- D" e# k3 eM0
, I7 E# F* o/ R! C: q' I
又想把它這樣寫
*#31=#[#30+#500AND1.]
* G' X4 Y" [" K  [M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
  e$ c( e9 M3 W' Q0 j7 M只有逻辑判断有些系统版本不支持
3 A: m- \  t! t% X, E! k  l9 o所以，以上语句可以运行的

羅蓋仙

8 M5 g7 k1 p9 _) _* ^# g
! D# \3 F! K  O1 u3 _* `% ^使用數據置換來按大小排列，大→小
8 X/ W9 \3 b) ?! I/ W) J法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
/ U" v/ o  T7 @9 y) j#1=1.
: y! {( Z* u# d. [* M" Q7 C  ~#2=4.
5 S" I+ c  o0 n) q" E#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
' g) B( e4 ~! G, t* ]; W#1=#1+#2
#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
#2=#2+#3
# a- @, m% n3 }4 e. o7 @#3=#2-#3
#2=#2-#3
, v4 M4 V( K6 |8 `# I+ H; KEND2
8 }7 G: p" o6 B5 Q0 r8 QWHILE[#3LT#4]DO3
& ]$ P& d0 Y+ \* c#3=#3+#4
#4=#3-#4
#3=#3-#4
7 N5 O- `9 W% n- u- FEND3
& k  r5 X5 V- K# |8 ~0 }IF[#1LT#2]GOTO1
) Z% b9 }# j7 `' xIF[#2LT#3]GOTO2
1 e1 N+ A  q: o" A, p% \M0


法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
#3=C.
# x3 b7 Q" D2 f; E, [$ Z#4=D.
' D1 M+ M9 h3 {- D% }$ WN1 IF[#1GE#2]GOTO2
#1=#1+#2
- C% J' L9 O5 D#2=#1-#2
#1=#1-#2
' Q9 q: E$ ^& q0 R3 mN2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
# [( L" o7 s$ Y0 E#2=#2-#3
7 |) X. E9 ^) M. n+ |0 G& hN3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
. o* ~3 k, ?4 B% F: s#3=#3-#4
N4 IF[#1LT#2]GOTO1
5 D" d& h3 ~0 R+ Z. X9 y! pIF[#2LT#3]GOTO2
' o( r! A; m% x# ZM0

羅蓋仙

/ }- s0 ]) M/ L; k& n/ f
法二：使用変変數^^
9 x6 d# `3 r5 o8 A+ _#1=1.
#2=4.
#3=7.
#4=9.
$ V5 F  X" @5 W1 B% |+ S/ NN2 #31=1.
#32=2.
6 T, y, w- J: N6 e0 [( KN1WHILE[#[#31]LT#[#32]]DO1
5 F; ~3 j& N. ~8 d#[#31]=#[#31]+#[#32]
  Z% K+ |! F; p9 {#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
# E& s( e& {9 w7 x7 W* u' [#31=3.
IF[#2LT#3]]GOTO1
4 b9 E$ Z- Y/ @6 Z4 o  z#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
8 v3 _' ^2 h: {- w7 e! G#31=2.
#32=3.
7 a* }" u7 Q& k5 q  @IF[#2LT#3]GOTO1
M0

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

longmeier

好帖子顶