數據交換法的使用

羅蓋仙

* c4 O+ E  j. K上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
, Q9 _# o% @& I& z3 H; g有人說數據交換法.能用于何處???我來舉個例子
  N+ c, Q/ ]6 W( f
  {' z2 U+ G' ~6 i4 G如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
0 ?( Q; f2 V! P9 ^使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
0 i0 _2 A9 N) `, t6 j4 h#1=#1+#2
% D& ?1 t  U& ^#2=#1-#2
; L6 Y1 X/ ~. ^+ _: G#1=#1-#2
#3=#3+#4
" C; v/ M) M  l#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
# a, @" J$ ~# m
( K' U  b; |1 z我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
6 C) ^7 x! g% t& @- @+ n, C方法B：
WHILE[#1LT#2]DO1
( l1 {! K6 J6 a* P; u1 I! W#1=#1+#2
3 q; t/ m' r: y5 `" C  @) Z" G#2=#1-#2
0 P3 F/ ^' o) J4 o, O0 M#1=#1-#2
7 Z' I% r# o; V#3=#3+#4
#4=#3-#4
#3=#3-#4
END1
* y4 ]0 i4 J" j3 y6 h7 h......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
1 e' M" i' U: ]- |3 ~#1=5.
: y! o4 r8 c- n#2=10.
#30=1.
! \" o* u( }7 S3 }- d*#31=#[#30+#500MOD2.]
M0

9 k3 x( l% m" s% R* s# h6 m: t6 O又想把它這樣寫
*#31=#[#30+#500AND1.]
) F0 j. x8 J! R, @+ @- v( H; HM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
3 j, j' x1 g" E% ^只有逻辑判断有些系统版本不支持
. I2 G% _0 P# w* k2 {所以，以上语句可以运行的

羅蓋仙

9 {. ?/ h" [% e
. P) P0 p' V( Q- F0 e! {9 l- i使用數據置換來按大小排列，大→小
# S1 Z* q" y! {" m: ]法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
. B$ |8 K$ [# z8 ^#1=1.
" q9 j" }$ J: f& t$ O' o. f#2=4.
#3=7.
: H# J# D) F. x: o: w#4=9.
, J8 n/ L, O( d9 e' `" o8 q6 LN1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
/ t" T; g' [3 e0 \* I#1=#1-#2
% G  W' A9 r& w4 j0 eEND1
N2WHILE[#2LT#3]DO2
: S$ i& g( ]5 m  A6 l& G#2=#2+#3
0 j! D8 Y7 q( E8 \% P0 W( D3 [#3=#2-#3
#2=#2-#3
9 s$ T+ P: r3 J, fEND2
WHILE[#3LT#4]DO3
#3=#3+#4
2 P0 J4 s2 U% {% `#4=#3-#4
#3=#3-#4
3 ?( C5 G+ R( {3 h  ]END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
9 p# Y% L6 m7 t7 x6 Y* m  ]& P2 i+ w) DM0
* q6 w3 Z% i' g. S4 ]0 Q
  K, J! X+ A% |, V# ^5 c4 g
法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
+ \1 R1 S0 k2 _/ L; x( H0 x: @#2=B.
6 I: j, j8 N& \5 `#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
1 ~; H9 B9 z# p1 C" j; F8 B8 ~#2=#1-#2
#1=#1-#2
: P) e2 L; X9 }3 {1 d# ON2 IF[#2GE#3]GOTO3
#2=#2+#3
2 k: n$ |5 ]9 X# n( h( {1 j1 z) W, l#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
, R. b  \) b; k9 ~) W5 W4 o% [8 ~#3=#3+#4
#4=#3-#4
7 v6 H: L0 R% ~5 h. `' K#3=#3-#4
N4 IF[#1LT#2]GOTO1
" x0 f- ?5 q1 |! rIF[#2LT#3]GOTO2
M0

羅蓋仙

: m( z, Y: Y! c+ I6 [* k1 V法二：使用変変數^^
#1=1.
$ l) U, Y* {/ O  f' m#2=4.
#3=7.
# }6 T3 W4 ~% `" u#4=9.
N2 #31=1.
: F9 c' C! Q9 J& t9 s% ~#32=2.
( s7 L) G) M& b; Y% g, KN1WHILE[#[#31]LT#[#32]]DO1
* o. g: F  X* h/ e' r#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
$ c8 S0 |' G) k- O+ g8 _#31=3.
+ Q) w* F3 g- i. e$ y5 CIF[#2LT#3]]GOTO1
#32=4.
+ F/ F4 g. Y$ H6 z1 _  }IF[#3LT#4]OTO1
& B( ?7 W4 _, \( }# ~: c0 BIF[#1LT#2]GOTO2
( R, d4 G9 d* b/ f#31=2.
#32=3.
IF[#2LT#3]GOTO1
M0
( J5 X5 X( o5 i* P9 z$ Q2 A3 v- s
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶