數據交換法的使用

羅蓋仙

  _7 w, s8 v9 x* d1 g
& u6 h4 r7 v/ Z/ W  x+ B0 y上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
4 `/ s4 _1 `  y" l3 x4 A使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
# z3 S1 |8 i7 X1 w, s& h: ^#2=#1-#2
#1=#1-#2
#3=#3+#4
' C9 M9 j9 c1 o4 b2 y- R#4=#3-#4
$ t# p5 x+ v. w4 s#3=#3-#4
$ J$ p0 o: N3 B3 y; JN5......此時#1的值已經置換過來了.#1的值一定比#2大

6 S6 u# J+ a- m. T" y. l! |我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
4 W9 T; R( P7 `8 |WHILE[#1LT#2]DO1
#1=#1+#2
7 u* w2 C+ v: F% A4 \: C$ v#2=#1-#2
+ {4 s1 T7 h6 A& K( _" n+ l) H& N- p#1=#1-#2
0 t7 Q1 e& p  ]+ X$ c+ T#3=#3+#4
#4=#3-#4
, T8 l1 {/ V4 k2 N5 o! _#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
9 Y7 T  T/ }. Y8 X$ r- B
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
" g) |5 W7 r1 d) a0 U, s( D+ k#2=10.
7 ?# W0 j* @: W9 a( s& q1 q" W" {#30=1.
*#31=#[#30+#500MOD2.]
M0

又想把它這樣寫
*#31=#[#30+#500AND1.]
5 U9 X- D8 \- x% q+ H5 R: ~& FM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
: C3 K  o/ S8 ?法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
8 T7 U$ S! }* L#1=1.
#2=4.
) _2 p( D6 [; O& a$ c; h#3=7.
. y' W( M: |& J# M+ r7 Q#4=9.
N1WHILE[#1LT#2]DO1
' _& V5 h5 x$ a* g& _$ T#1=#1+#2
- O" r* k* D  w5 f2 C8 G#2=#1-#2
, u: s. l6 \* b: @# b* l#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
#2=#2+#3
$ m5 l+ a* v& C/ H#3=#2-#3
$ n- G' S+ l6 g/ T#2=#2-#3
2 e- e0 z1 j6 V, F, R3 @END2
7 r: J, v3 f6 M8 `2 VWHILE[#3LT#4]DO3
& w5 `9 N5 d) ?$ m# C#3=#3+#4
3 ~/ {  B6 g( H' K#4=#3-#4
#3=#3-#4
END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
: K, F) o  |# H$ h* p) Y
4 I) g4 P1 M% K* K7 {  Y
+ e: f/ s- P# b8 _法1-2：使用一般耳熟能詳的IF-GOTO
$ k  Z0 A3 D7 O  h* W/ N2 v. m6 V#1=A.
0 A& X6 Y: v3 u. R; ~- X9 X( p) x% i#2=B.
#3=C.
#4=D.
- l0 f+ }* j) r* hN1 IF[#1GE#2]GOTO2
#1=#1+#2
' S  Y; U3 T5 F3 o9 l#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
#2=#2-#3
: O2 B& s/ m9 g' v$ `7 Q9 iN3 IF[#3GE#4]GOTO4
" K: ?" L$ k0 D( E#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
. q- R. D4 L( K; R/ @; E8 `: S  RIF[#2LT#3]GOTO2
8 a& R1 L- `2 I0 dM0

羅蓋仙

6 s, D% [, c3 a) V! }
# Z% W. `4 W! R! x: r法二：使用変変數^^
" C9 \* c9 |& G* @( N#1=1.
  Q0 w: P  Z& u' \( }, p- U+ Y  s#2=4.
$ {: Q8 j, \6 d5 U+ j- W- F3 y#3=7.
" l. {9 o% [( F8 n#4=9.
9 @5 }) a: N, j1 k# ON2 #31=1.
. d8 K" }! r  P5 L8 A0 Q3 O% L- U#32=2.
2 P  {1 K' B1 N) xN1WHILE[#[#31]LT#[#32]]DO1
8 [6 W, k+ L4 k' x0 v#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
1 j/ c0 n! Z( ^" ]/ ]; E#[#31]=#[#31]-#[#32]
END1
#31=3.
7 U! @; c: z; F8 Q6 TIF[#2LT#3]]GOTO1
#32=4.
8 G& a' Q$ }/ N" N: X+ d2 ~4 mIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
( W5 d; x8 @# h* S, {#32=3.
. R9 D  h+ W* lIF[#2LT#3]GOTO1
M0

4 u. o  E+ Z0 C" z看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶