數據交換法的使用

羅蓋仙

: j( H- U* I: X0 T7 k+ e, f
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
) P% s& c4 M4 t，我看完之後有灵感，
  x$ Z9 y4 w$ y7 q8 @+ M9 x* E有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
- s# g- o8 a0 ~. p. S9 g6 O方法A：
% Y) t& _( ?, z7 U5 K) w8 uIF[#1GE#2]GOTO5
#1=#1+#2
! A( }1 n! m/ [0 \* p% t$ g#2=#1-#2
2 z$ s8 Z$ o9 V( I+ B2 E1 T3 t  g#1=#1-#2
: D5 G# T; `1 ]3 b7 v#3=#3+#4
5 {( @- ^% n' z: g#4=#3-#4
7 `. T7 Q- m' s! h+ U9 T6 C" k3 s#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
) j! r6 Z0 Z8 @: Z1 N2 r7 N
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
" u' f9 ~/ |, `1 @WHILE[#1LT#2]DO1
#1=#1+#2
+ i5 n7 E2 w6 G$ z#2=#1-#2
#1=#1-#2
* \9 g. I2 [1 v8 x9 c#3=#3+#4
#4=#3-#4
#3=#3-#4
; B6 E2 [7 ]( y: C2 ?9 DEND1
5 D+ V  j& u) h* l......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
# {# g8 e6 D2 [7 ], X7 T% i; K#1=5.
4 U' G  u" _, E) P! f$ l' j. _* J#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
, B' R7 e: }) s" f9 gM0

又想把它這樣寫
6 K* ~+ w9 X$ \*#31=#[#30+#500AND1.]
$ q4 j9 O' @  H- h! K$ A1 FM0

空气中的小鱼

回复 2# 羅蓋仙
  @2 V2 I* a& n你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
5 V$ m1 C" t  }2 M$ r所以，以上语句可以运行的

羅蓋仙

% V( t5 O2 P1 K" D0 T
使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
) i) w% d, k0 l9 i#1=1.
#2=4.
; U. Y6 O* w: c#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
2 r/ s2 t* u) n#1=#1+#2
#2=#1-#2
* w$ j5 w6 r+ d/ Q, H9 Y6 F#1=#1-#2
1 v: z* f1 i1 O$ |/ u* d3 zEND1
N2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
1 L- ^: c! c  D; H7 P" O#2=#2-#3
END2
WHILE[#3LT#4]DO3
" {, ]3 i) I: ~# n4 s7 _#3=#3+#4
# ?/ N- A- j1 S( y$ l8 o#4=#3-#4
+ b1 A, p8 O" E2 `- m#3=#3-#4
END3
0 i9 B- [9 C9 j  U7 {1 u1 {IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
2 d& H) H2 k% i6 YM0
& ?! U6 l4 T6 V' v4 P0 k
" x* F9 K& V  O1 F: x
+ k9 |3 Y3 c. D法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
" }3 _$ k' Z/ |% D#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
: r  L: N7 z( O4 t; n#1=#1+#2
#2=#1-#2
6 \) t" t% k/ T#1=#1-#2
N2 IF[#2GE#3]GOTO3
9 {8 \' n9 o' O( i# A4 a7 h2 K#2=#2+#3
# ]7 X8 @% r7 h+ ~6 p. @8 k! I0 f: |#3=#2-#3
5 Q/ B0 I' Z$ w  e# H#2=#2-#3
  Y1 r4 u# Q8 W8 h3 yN3 IF[#3GE#4]GOTO4
+ i8 {7 ~7 G1 j#3=#3+#4
, G* q* l* ]& q! l% K#4=#3-#4
#3=#3-#4
5 F6 I) Z9 i3 r7 Y  C7 TN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

2 @4 ]7 U% x2 C4 a
法二：使用変変數^^
8 l, ?$ p( F+ _3 h. H1 F5 y& v2 p#1=1.
#2=4.
( t5 L9 \% [+ u( C, A) w#3=7.
$ }( |; @9 o- s' S3 D8 _#4=9.
6 V/ C3 s6 s# y* p" e" uN2 #31=1.
0 G  n" V8 k# i#32=2.
+ @6 c. T2 L! PN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
/ X$ d5 r/ m! Q- n' y/ [#[#31]=#[#31]-#[#32]
9 K, j4 G7 p( u! _  eEND1
#31=3.
/ C% |5 E, O7 e; X: p' d( aIF[#2LT#3]]GOTO1
! X  e, ~4 b! e7 d#32=4.
) p. V  \4 q: \& gIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
- T1 t+ |5 [: `#32=3.
IF[#2LT#3]GOTO1
$ F8 `, B7 w  v  R4 _; m6 J+ Z% T" qM0

9 y, Q: A6 J: V, j9 Y+ d! T看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶