數據交換法的使用

羅蓋仙

$ @! ^4 t) z& f. j( T) C上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
. k5 q2 D2 l% R4 X0 D方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
5 V* Q! G  W1 n' `#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
( V* Q& N' E/ ?  _0 D#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
$ {9 s+ {+ _) B$ d
3 g6 Q* f) v- ~我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
( g1 m5 b! ]) r0 z" L# C8 L' b方法B：
4 E; Q  \4 J; }) F5 u. j5 K6 nWHILE[#1LT#2]DO1
4 N. _) N4 l, w" U' c; Q#1=#1+#2
#2=#1-#2
4 ^) P2 l  S/ A  n#1=#1-#2
6 y  U+ v2 x3 y( ^5 N9 D#3=#3+#4
6 c( i1 e+ L' V#4=#3-#4
#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
% D) I4 S' ^; Z  ]0 H3 q7 {' a#1=5.
#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
M0
* _  g+ J$ `+ H8 H0 X# Y9 I
0 t# n% q4 t: ]又想把它這樣寫
*#31=#[#30+#500AND1.]
4 E. _3 o; ]+ p2 {* f$ vM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
" c$ g: C  O' q9 u- q& W只有逻辑判断有些系统版本不支持
, l' z; n/ ^" A) t9 j6 u所以，以上语句可以运行的

羅蓋仙

$ R* Y, A& s- S: L$ a/ O2 o' j
使用數據置換來按大小排列，大→小
* o* |1 T6 Q* ^2 X6 }/ y4 S法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
5 ~2 Y5 _- q) l' }; J7 r#1=1.
#2=4.
#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
5 m4 O7 u" l* f: L# Y#1=#1-#2
7 Q# q3 D# K' u. O) u8 z# jEND1
7 K' j/ _1 p6 B( RN2WHILE[#2LT#3]DO2
2 Y1 _3 v8 ?$ Z& M/ @2 t3 x& \#2=#2+#3
#3=#2-#3
2 U  F$ R6 Y8 c; ?& o! M5 r#2=#2-#3
& F/ h& [1 j. `4 N& mEND2
1 i; p) ^4 ~+ CWHILE[#3LT#4]DO3
( c. _0 Y  Y* ^- A8 n9 n: f& m#3=#3+#4
" g3 A  }5 \- l. R% T* F2 b#4=#3-#4
$ g% U9 q2 ]9 j, ?. F8 u#3=#3-#4
END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
$ F$ j8 X( A" e+ b' b2 pM0


* o% j1 z* M4 Y$ [+ ?+ [法1-2：使用一般耳熟能詳的IF-GOTO
1 z8 q6 B. |: ~7 o9 U. T#1=A.
#2=B.
0 ?1 M' A4 y$ W$ k, H- j* d4 p1 G+ I+ Q#3=C.
$ C! d2 \5 u& L( ?/ L, V* Q#4=D.
/ `8 {  H: ?3 N! P: iN1 IF[#1GE#2]GOTO2
#1=#1+#2
& g" q: O& u4 u! [- U2 y4 z9 D#2=#1-#2
#1=#1-#2
5 g' p7 \6 {0 [1 MN2 IF[#2GE#3]GOTO3
" E7 A/ R( g, r#2=#2+#3
#3=#2-#3
* c8 }" S2 A9 t! M- q. C/ N#2=#2-#3
# j' j; s) |, J; h0 O( PN3 IF[#3GE#4]GOTO4
#3=#3+#4
2 A: {* I. u9 Z; U( e7 e' c#4=#3-#4
#3=#3-#4
, c0 [" O) m' l4 ?N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
6 _8 n8 q, s9 A7 U: v4 U3 lM0

羅蓋仙

3 b$ O9 l; g% T1 i+ z. }
法二：使用変変數^^
#1=1.
/ }* W( J; E) {0 ~& Y#2=4.
2 }5 c# O+ @/ O6 V#3=7.
# O8 U7 [  V$ N. m& F3 ]! ]& y/ K) d#4=9.
9 M5 g. {; M7 i$ U  FN2 #31=1.
( N$ \* ~  @6 v0 _. L# [1 N#32=2.
% I, x! l8 `% `* M' t/ wN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
, l4 S  y! _) j, r* I' ]. [#[#31]=#[#31]-#[#32]
  S% c; p+ M  ]END1
- a8 P8 _9 Y! I* z8 w#31=3.
% j1 g6 q8 N& y7 x  S. GIF[#2LT#3]]GOTO1
) l+ W0 g5 W. `( G! D#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
" ?* P. u7 n, r1 o#32=3.
IF[#2LT#3]GOTO1
' v5 I5 b% |9 {; Z! h9 yM0

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

longmeier

好帖子顶