數據交換法的使用

羅蓋仙

/ T- o2 F, P$ B4 B9 w0 i
- Z0 }# C2 z9 E# {上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
5 b$ j7 K# T% N
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
; L' q  f- M( M/ B7 m' R, d使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
' k- H5 w3 d7 a+ b方法A：
, [- W- G, h/ o: y* H# A1 GIF[#1GE#2]GOTO5
#1=#1+#2
0 V, B# |5 O5 e3 e; i) j#2=#1-#2
#1=#1-#2
+ _! d) R* d' A6 m4 y3 [4 ]; |#3=#3+#4
#4=#3-#4
) T# j! v& y! `6 ~$ W; ~#3=#3-#4
2 \. n9 w1 Z& \! V9 eN5......此時#1的值已經置換過來了.#1的值一定比#2大
9 u# y- _" ^( e) f3 c
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
3 L* [, k' V" C) o, i. _( w#1=#1+#2
#2=#1-#2
, r7 {1 O8 d- e; J#1=#1-#2
#3=#3+#4
#4=#3-#4
! @* _0 K. J- S/ n" a#3=#3-#4
END1
' N* @0 G6 d: R0 [$ S4 ?/ M% B......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
" ^0 u1 S: p! r! ?- o
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
* G# V; m5 i2 k- |#1=5.
#2=10.
' ~- T) l9 {4 x1 P+ f8 ?#30=1.
*#31=#[#30+#500MOD2.]
M0
$ U1 }3 G  i2 m1 ^% `" K
又想把它這樣寫
# \5 L( |' E, ]- ~*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
2 |' a( I- L3 N你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
. m9 n6 W' P- @4 H3 v& ?$ k所以，以上语句可以运行的

羅蓋仙

+ x( z. \  Z8 }% G- j) K& T8 z3 o使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
$ T' H) w4 P5 m6 [$ L: f#2=4.
# k  {+ x/ j/ [" b! a! ~! ]: u- K#3=7.
9 h7 X9 L9 J' p, I$ I0 J#4=9.
N1WHILE[#1LT#2]DO1
7 o5 X( j8 f6 W/ _1 L' M4 t#1=#1+#2
/ \! A7 ^' @# Y# A. Z# W9 l. R9 F#2=#1-#2
  N- ?, ^: `! O" h#1=#1-#2
- V, F) n  J) L& `3 h; j  hEND1
N2WHILE[#2LT#3]DO2
1 _% G* Z0 ^8 R  `0 j$ q2 N#2=#2+#3
#3=#2-#3
9 P+ T0 d* i4 A6 n#2=#2-#3
% G: o% e1 t- ?) D  q0 {END2
3 m9 E' d4 Z) R; ^8 y- @! ZWHILE[#3LT#4]DO3
1 N" ^3 K5 D* ~: G#3=#3+#4
#4=#3-#4
#3=#3-#4
" c  }8 J9 M9 A, G0 P4 yEND3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
' K8 s; d/ \; V# W% W, G
/ o' F% _+ f6 S) ~
9 z$ o) f- T: z法1-2：使用一般耳熟能詳的IF-GOTO
5 c% F) x) G$ y( w" a3 a#1=A.
( Q4 G" V$ o7 F- S) K#2=B.
#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
8 B* e! B7 q8 ]4 B& {' I#1=#1+#2
- K- a' P* b" ^. |, T, o#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
#2=#2-#3
- `6 N! ~. x2 V8 p. UN3 IF[#3GE#4]GOTO4
1 b: t  U% r8 w#3=#3+#4
#4=#3-#4
#3=#3-#4
  ]9 a* P9 A2 C/ @N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

5 N8 N- }9 v0 a法二：使用変変數^^
#1=1.
#2=4.
5 `4 _# u' L' S1 r; [#3=7.
#4=9.
( |" O! h: b" _' w$ A' VN2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
6 V" U; [; Q4 }# C#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
8 s! A6 g3 o! ]3 y( J#31=3.
IF[#2LT#3]]GOTO1
#32=4.
0 M3 A- V7 ^5 {% ?- O4 s2 T3 u) qIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
6 X8 A7 Y( T, w5 R. x: |#32=3.
: |% m! C2 a4 _1 @2 jIF[#2LT#3]GOTO1
M0

0 r7 d5 N: g0 Q/ v# K4 F! |看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶