數據交換法的使用

羅蓋仙

" `: ^9 h6 r" G5 \- B; L
% j0 t" Y! s" x% X5 J0 v上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
( [) ?1 l9 e. }% F有人說數據交換法.能用于何處???我來舉個例子
! h4 k& `" l6 c, \* i
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
+ p, S8 D! x' a' v使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
0 M5 {$ V  S) V. Z9 l3 ?/ j#1=#1+#2
#2=#1-#2
- L- F7 J3 Q5 H% s! `#1=#1-#2
, H* h8 r6 |5 J/ _4 b#3=#3+#4
- Q- B6 T- O3 U. q6 n2 E0 F#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
; C+ J% T9 B* r/ V* V( t8 l: W4 H
! R: o. ?  @+ X* y我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
$ g7 Q3 S, ?2 Z# q% T#1=#1+#2
2 r. H& u. a; M: h, v#2=#1-#2
#1=#1-#2
- g  w6 m$ J, d5 C5 x/ L. o9 h; m8 v#3=#3+#4
( Q% X- K. W1 v' z4 @9 O& Q#4=#3-#4
4 m6 _; i( \0 a' E: [0 @8 J#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
  c' e$ g/ o& v) @5 w- M: }. j# j9 ]
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
" M7 S8 U' A, Q  X#1=5.
0 j' ]; e) {0 X) A  k$ H; Z#2=10.
#30=1.
7 {& ~5 b0 q" [8 f*#31=#[#30+#500MOD2.]
9 U1 x% o1 P: O) EM0

又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

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

羅蓋仙

- [4 D! b, T. L+ y+ r9 j, h
) ?7 d; b2 j0 _# s9 u" I+ }使用數據置換來按大小排列，大→小
) \! W2 G2 {9 T# w" Y% K法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
5 N" q+ K% F- K" B! n6 {#2=4.
. N- w7 P* U1 d( G2 y" p5 [5 s. E#3=7.
0 q. p6 M: P, m% j#4=9.
% T4 O+ o' h  |% |& ~9 t" vN1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
7 T: f( J" e( C7 E) i( d#1=#1-#2
END1
3 a( j2 H, u0 B2 o% w) {8 N, BN2WHILE[#2LT#3]DO2
8 M8 M: p* }  X/ m. k+ w6 X7 Q9 A#2=#2+#3
#3=#2-#3
6 b5 a. S; ]2 r9 ^8 N" y" y2 F#2=#2-#3
0 F4 Y; ^7 D6 N9 q( C0 ^  \0 aEND2
WHILE[#3LT#4]DO3
#3=#3+#4
8 Y" x" r' x2 u8 P6 z#4=#3-#4
( U! U/ S( U2 ?! R5 u#3=#3-#4
END3
. i9 @6 L! I7 }& d" T( H- HIF[#1LT#2]GOTO1
' L2 A: B; _1 ?! A$ B% `IF[#2LT#3]GOTO2
M0


6 Q; L/ S! V+ y2 x法1-2：使用一般耳熟能詳的IF-GOTO
7 g6 \( c3 ]- l, a# i- I#1=A.
#2=B.
$ k& a+ E- |' B. D+ n7 f1 x7 |#3=C.
#4=D.
# k1 E2 P/ G7 H* r3 u& k' V. QN1 IF[#1GE#2]GOTO2
#1=#1+#2
. @  j7 A/ q% O#2=#1-#2
1 C/ A# n' d; J3 Q# s, I; e#1=#1-#2
: |6 g8 \; L0 V5 {$ l/ y0 H2 l  MN2 IF[#2GE#3]GOTO3
0 E; `$ w' Y0 z! R: M4 k; Z0 X#2=#2+#3
#3=#2-#3
( {* B8 D6 d$ f, V* d; l0 x+ L/ A6 T#2=#2-#3
N3 IF[#3GE#4]GOTO4
+ B( \2 C# A" m; Q% Y#3=#3+#4
5 S0 n& a* o0 F+ Z, t#4=#3-#4
' J/ U$ M; Z- [9 o' A& t; w#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

% F6 e# c8 N8 C! t: C法二：使用変変數^^
' Q! a: t9 h+ E0 m* e% M' ^#1=1.
#2=4.
#3=7.
#4=9.
N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
3 D, `5 i: z2 w1 \0 p0 _#[#31]=#[#31]-#[#32]
% S4 A. O' N, U1 ?7 [) ?END1
/ l0 m2 F# s) m0 I& l4 N#31=3.
+ n: N8 ^/ t" d$ O8 R$ X2 B( zIF[#2LT#3]]GOTO1
  |0 G- h: Y% X4 k5 a#32=4.
IF[#3LT#4]OTO1
' z/ ~! [# a' ^IF[#1LT#2]GOTO2
6 I# z, j. C, U0 t2 l#31=2.
#32=3.
IF[#2LT#3]GOTO1
M0
* K0 v; ?9 e% P* A
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶