數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
  A# ?$ Y; f) k有人說數據交換法.能用于何處???我來舉個例子

: g. @" l. e1 k) O3 g, \7 _; X如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
8 f7 F! G7 x' B使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
: X  t: F! i- n9 S9 `6 b- wIF[#1GE#2]GOTO5
#1=#1+#2
- J( [$ w8 I7 X! ^#2=#1-#2
#1=#1-#2
#3=#3+#4
1 ^& p+ _, A% T#4=#3-#4
4 a8 v& {7 X% X3 m2 j, d# @#3=#3-#4
1 c! c- ~0 ^0 U% M2 pN5......此時#1的值已經置換過來了.#1的值一定比#2大
  ~. j7 g: `" j1 u
5 S- b" g8 D- _/ n. D6 n( h; ~" R9 K- w我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
) O. K( D/ l4 u2 {0 {5 T! x方法B：
. W# x  R3 q6 J+ x# D7 h8 HWHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
, F% f0 Z( }/ b, t) ~& IEND1
: L# S1 d' f# V6 `( C0 S) C; [......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
7 o0 o3 s  q) @5 i: q$ O: N
% h& B1 p6 O: a方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
+ [2 }4 I; ~& N* z#2=10.
#30=1.
) ?) f! N5 T" D$ `: ^/ {/ A; j*#31=#[#30+#500MOD2.]
: \/ O* M" ?, [' {M0

0 b3 K) T- L" l又想把它這樣寫
$ |! N3 `) a) l# ?; V*#31=#[#30+#500AND1.]
4 m0 M- P1 }- u# m8 X6 TM0

空气中的小鱼

回复 2# 羅蓋仙
% m7 g, S* E: g4 X4 K你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

- `1 {2 f% N3 D0 T
使用數據置換來按大小排列，大→小
4 A' ^  N! e* ^法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
% X3 `9 U! `8 J& C5 o& U#1=1.
#2=4.
#3=7.
#4=9.
  V8 w! R3 i* n' J+ uN1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
% v6 f& I, Z3 Z5 U( aEND1
8 w+ s. F! ]6 |" S) HN2WHILE[#2LT#3]DO2
#2=#2+#3
8 O% r( j1 i$ B6 q#3=#2-#3
#2=#2-#3
- o  ~3 o+ S% e. a$ R% S- uEND2
) d2 V4 m1 w* F% R$ ~" hWHILE[#3LT#4]DO3
; L/ @( w: v6 _' m" n/ o8 c#3=#3+#4
#4=#3-#4
+ g/ o4 l2 G' s2 z- Q: i#3=#3-#4
END3
* [( f. x, ~! V5 G" z$ ZIF[#1LT#2]GOTO1
7 X; o% d  u4 E3 ?- ]0 MIF[#2LT#3]GOTO2
M0


* h  b6 f* g! `4 C+ C+ J; C法1-2：使用一般耳熟能詳的IF-GOTO
0 Z- H6 t8 C9 r% v$ h#1=A.
#2=B.
+ C6 p8 Y( r& M9 i- B# N8 W#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
! [% M# ~" ]3 x- ~' s#2=#1-#2
8 o: E7 i) i' M7 F- U( e% E: a- R#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
#2=#2-#3
: s" Y! t# d3 v) q7 hN3 IF[#3GE#4]GOTO4
5 ?2 E3 k6 m' ?& G#3=#3+#4
#4=#3-#4
#3=#3-#4
8 B# j; v+ U/ j! k/ E! \N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
1 Q9 J2 e* M0 y$ c0 `( VM0

羅蓋仙

) D3 L$ l; j; C/ a- e; t法二：使用変変數^^
#1=1.
! y3 X0 L- r) l9 {; C#2=4.
! x$ N! n2 @- W$ N( `" O1 s& A#3=7.
% I. z5 G1 S) T- q#4=9.
N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
* g3 V3 m5 b! Q1 e, _9 j#[#32]=#[#31]-#[#32]
) i8 ~+ r: F  T7 x6 o" U6 t! a#[#31]=#[#31]-#[#32]
END1
. d; Y2 ]6 ?! O/ y- h#31=3.
IF[#2LT#3]]GOTO1
% o7 M3 W6 c; \. x2 s. Q#32=4.
  U+ o7 @! i# ^1 g% p+ a  C* t9 R" gIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
3 @3 ^) u8 \: }' J8 V: t: l#31=2.
#32=3.
IF[#2LT#3]GOTO1
M0
. ?2 Y- l" |  p6 u0 p6 r4 ?5 B
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶