數據交換法的使用

羅蓋仙

0 x# e$ n' t6 ?/ y6 E. @: l; s  b上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
  V$ ?$ m( o: E3 g$ t7 e有人說數據交換法.能用于何處???我來舉個例子

4 J( F! S  ?) b如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
, }- Z/ z) [# `  a0 _方法A：
IF[#1GE#2]GOTO5
5 @6 T. X' P1 v#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
$ p3 p* L+ `0 t  u: a#3=#3-#4
6 A3 y) Z( m7 M6 ]' _N5......此時#1的值已經置換過來了.#1的值一定比#2大
7 `& N( k* D: P! v& h- O
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
; ^; c* ?: D. eWHILE[#1LT#2]DO1
  i  N. S* u7 F9 o) T1 K! o# n#1=#1+#2
" \& o4 J6 n, e. |5 x#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
" P" n* d+ U- ~8 S" r8 C#3=#3-#4
END1
' y% x. G  `7 E, h2 B7 P" V......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
1 _' F& Q$ |+ G. g- ?( GM0

又想把它這樣寫
, U  d8 i# ?4 Y7 w2 m& [; r8 |*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
! u' y) w) u0 X你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
! c# B0 q5 N( s, k所以，以上语句可以运行的

羅蓋仙

5 n- y; x- a: z/ i+ k) p8 X$ A* t
$ E; }9 @) i* u" g% ~  B使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
- j( }" Q: ^- a9 p  e#1=1.
( b4 a# i. e6 F4 h( U/ |#2=4.
0 B: G0 |: T" @# h#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
END1
5 m7 S, `1 Z8 o% b5 W  EN2WHILE[#2LT#3]DO2
#2=#2+#3
5 s' U5 a3 o9 D#3=#2-#3
7 b+ ^+ ]& @/ s7 A+ i" y#2=#2-#3
' \- i! z1 u+ w, W2 eEND2
& x) h  N# ^, X3 _WHILE[#3LT#4]DO3
6 D2 Y; C- q8 g% d4 Z#3=#3+#4
: D, ^6 |% {8 _8 v, t#4=#3-#4
#3=#3-#4
& f2 G0 |  h2 S. }0 p& b. N+ s* ?END3
IF[#1LT#2]GOTO1
' S# _! |) _: @, ?1 G8 OIF[#2LT#3]GOTO2
8 I' y$ ~0 y. m; L8 B6 t  QM0
* C7 n# j% k2 p8 h) i
! r9 P+ }# _/ s. x! q1 O6 r* z; Q
法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
2 [  N- w: Z% E7 D1 l8 [#2=B.
' q$ B) }1 _  U+ v# ~) o) ]" q#3=C.
9 J2 c1 [9 S% v1 I3 a#4=D.
3 [+ L: F$ b- U1 \7 ^3 U  XN1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
+ k3 S7 j& ^7 W6 F" u1 @6 ^#1=#1-#2
8 M( G$ H$ Y3 O8 BN2 IF[#2GE#3]GOTO3
0 h& h9 x: K: G8 O7 C#2=#2+#3
8 ?5 U5 l  d( ^3 l; X#3=#2-#3
* N& u8 q7 _# b* _#2=#2-#3
9 a& {9 `+ M! K: W, s( VN3 IF[#3GE#4]GOTO4
4 J4 `% }/ s4 V3 x#3=#3+#4
#4=#3-#4
#3=#3-#4
8 z! u9 Q$ d  S2 G" J" n' X2 H6 EN4 IF[#1LT#2]GOTO1
. @' t, m0 o; @7 L5 `7 `7 DIF[#2LT#3]GOTO2
3 p$ J- e8 f! f- U7 `0 lM0

羅蓋仙

  F1 e+ G- b- F4 L" w
- G+ Y% k" D/ J" a# _0 _$ B法二：使用変変數^^
#1=1.
2 z2 M) r6 j! V2 Y3 H: q#2=4.
#3=7.
3 C1 D# U1 j4 _9 W) R4 [" \#4=9.
% B3 `0 N. t% W. G  TN2 #31=1.
* M; F7 f' g/ l4 m' S' \#32=2.
2 a! D1 t+ E  C% {% L; T! e8 V" G5 w4 uN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
. b# V2 `2 o* P! l. h0 E1 U0 X#[#32]=#[#31]-#[#32]
% g3 V' m8 K' P  n8 Y- O#[#31]=#[#31]-#[#32]
END1
#31=3.
' b2 K; U9 v! K" N0 UIF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
; p5 s% C# D  x, Q* U; kIF[#1LT#2]GOTO2
#31=2.
#32=3.
IF[#2LT#3]GOTO1
* l# ?0 ]! @1 K% ?* M! c3 }' vM0
5 l' X" I( C- g: s* r
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶