數據交換法的使用

羅蓋仙

4 |4 V5 I( k( _
- ~1 ]' E9 M- B7 Q, @6 ]上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
3 P  C% t+ p" ~) T
, S' }1 N. C* g) x$ \" V" i# S如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
; N0 G4 E: {1 X8 n! F4 a: a使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
- P  p1 P) u! [$ Z9 C方法A：
4 N% n* v* y' P0 Q2 Z6 y" OIF[#1GE#2]GOTO5
; d* q  P8 i0 b" I8 M! e" F#1=#1+#2
#2=#1-#2
5 N  Q$ V" a8 R+ p, G#1=#1-#2
" [& z; Y7 C) k- G2 h#3=#3+#4
#4=#3-#4
. k2 Y% B1 X9 ]* W$ @/ T#3=#3-#4
: I! i# T' Z) e( o* aN5......此時#1的值已經置換過來了.#1的值一定比#2大
4 p# r0 K( ^- b3 I2 Z+ t
+ C  e, V! d1 G+ i. Q3 Z! N  g我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
* m% C* f& t, |; B- H方法B：
WHILE[#1LT#2]DO1
% Y$ Y* s( b& d9 N9 h' J5 Y#1=#1+#2
1 n4 A/ {+ t  }: w* ]8 n. W6 B#2=#1-#2
#1=#1-#2
' F8 v: `1 x3 C4 b  U" A( M#3=#3+#4
6 }+ C. ?. l  ]- T#4=#3-#4
9 I  W0 L$ X- n* p#3=#3-#4
" c! |9 s' t; s# c6 uEND1
; T2 F2 L8 ]: _......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
( E- e7 W6 e1 X  A8 f3 O#30=1.
! g4 M0 v! ^  u1 S: x0 E- z*#31=#[#30+#500MOD2.]
6 W4 l- B" G* IM0
4 b+ ^; L  {# H* Y5 j, K! b
又想把它這樣寫
1 c/ j  E7 |  ~+ z. _*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
/ V8 i2 D5 h5 T0 V你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
$ X! x3 k$ ?8 L. {所以，以上语句可以运行的

羅蓋仙

& F' b+ o, H& h; |* L. g5 }' `
使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
( w# h# X9 Z! |7 K#1=1.
1 h: e1 V/ L( f9 E#2=4.
4 I- I% |* |" Q8 k" D8 E#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
( i' z8 }) |4 A" \#1=#1+#2
8 j( ]9 [- M- h3 J0 [% P+ W. n#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
* B5 M" `; \6 q( V#2=#2+#3
#3=#2-#3
" @0 p& v, [; D#2=#2-#3
END2
WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
#3=#3-#4
END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
3 g" V  y3 U) A+ m! y6 YM0

) c5 F9 p! F8 I5 E! H! |
法1-2：使用一般耳熟能詳的IF-GOTO
* M' u- {; g  |3 [4 R#1=A.
#2=B.
#3=C.
#4=D.
$ X' }0 [. r4 v7 qN1 IF[#1GE#2]GOTO2
#1=#1+#2
) e/ }; C6 I* B- n9 F; }' a#2=#1-#2
#1=#1-#2
4 s& n% L9 K* B& i/ |# [( bN2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
6 G1 U9 f" ^8 M#2=#2-#3
. T9 e; J! |2 o+ I3 t1 }: \+ `N3 IF[#3GE#4]GOTO4
#3=#3+#4
" c* {- ]) R' D0 I$ D& R) k( V#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

7 K5 p; W/ u/ D- c3 T, }$ C2 ]
0 |4 ^5 V4 Y$ \# B  v2 L9 G法二：使用変変數^^
* q. m9 Z  F1 o: ]6 i, A#1=1.
- P8 ^9 J& B( m8 e4 z! q#2=4.
#3=7.
4 N; U  V+ {8 c  X2 _$ M. y#4=9.
: t# y/ N; b; G3 mN2 #31=1.
#32=2.
! ^  K, f4 ?( |+ O/ N- jN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
( k$ w5 y6 U0 k+ s* d#[#31]=#[#31]-#[#32]
/ p4 Y. [' a- F' Z- g* |END1
#31=3.
IF[#2LT#3]]GOTO1
# T$ A, V: ~; B+ ]% S: m5 K% Z4 ]  X#32=4.
IF[#3LT#4]OTO1
' n8 c: ?) J& z& iIF[#1LT#2]GOTO2
% q, N$ S: C4 ^#31=2.
# B6 B1 f" L+ ~- y! e+ {( L3 {#32=3.
IF[#2LT#3]GOTO1
% L4 K5 K- p, x1 ~M0
1 _  Y# V; O4 Y% M" x( v
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶