數據交換法的使用

羅蓋仙

7 ]( z9 x3 n$ X0 }) |2 s( e% t' e
* [6 b; |1 ~  @. z3 x! S上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
" y2 m* P  `+ v( x' l0 `/ p，我看完之後有灵感，
' L; E, R% d+ |" u有人說數據交換法.能用于何處???我來舉個例子
( E6 i- c# v4 `/ e' ^! k! b7 U
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
& G1 w( Q. ?8 o* {8 k1 b使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
/ @& T0 O/ M; ]7 \8 e/ W#1=#1+#2
#2=#1-#2
1 V  P& j" y# U0 ^* _1 D* Z' T4 V#1=#1-#2
. Z' S4 j3 Z% V! ~#3=#3+#4
( u: w1 _' U$ M#4=#3-#4
6 j+ J7 E6 K' I- g0 k#3=#3-#4
) I6 S/ d, j1 g" _( h1 Y/ WN5......此時#1的值已經置換過來了.#1的值一定比#2大
6 @3 R8 g, j% N- V7 C
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
2 _3 M0 O6 c9 L方法B：
3 c0 Z4 n7 j: Y7 i& A) |1 m1 MWHILE[#1LT#2]DO1
. U% h* z9 q  O+ @7 r#1=#1+#2
#2=#1-#2
#1=#1-#2
% i8 I+ @! E2 I( z' A2 C* |  R#3=#3+#4
#4=#3-#4
#3=#3-#4
. L7 c+ o9 A* F, _; {5 U2 ]END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
4 Q, D( ]8 C$ D# j2 I1 o& ]
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
#30=1.
: M; ~- x: S! M% G5 F% S*#31=#[#30+#500MOD2.]
& ^  }8 I* i) X/ M$ U$ n; y5 ]  sM0

又想把它這樣寫
*#31=#[#30+#500AND1.]
. P: j1 \5 i- N8 Q4 ^4 }8 eM0

空气中的小鱼

回复 2# 羅蓋仙
( o) b) a; \$ L* u- G你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

* g# l: L) V$ e: Z5 ~* e, Q) ^
  `0 g' Z: y# p- s6 w使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
1 L1 O& ?8 z7 @. L6 u% _9 R#2=4.
9 G; F; f1 o2 V6 T#3=7.
#4=9.
' M( }: W& Z. O2 @N1WHILE[#1LT#2]DO1
#1=#1+#2
7 N0 Y3 W' x2 o#2=#1-#2
#1=#1-#2
0 Q$ k! a% n: r% `& HEND1
N2WHILE[#2LT#3]DO2
#2=#2+#3
8 Q5 S7 J( q; F& e#3=#2-#3
#2=#2-#3
' U/ I$ u' K2 @4 Z5 a& z2 hEND2
8 |3 `1 \7 W9 X5 S0 v5 BWHILE[#3LT#4]DO3
#3=#3+#4
% B: ~9 ~6 A) v#4=#3-#4
3 _3 y2 a% h; W#3=#3-#4
END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0


/ G& r* a3 u) Y法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
/ h& @: ?4 ~6 X6 V2 \* L0 y" E$ j#2=B.
" N' s. S& T' q1 h; o3 d#3=C.
6 t, K3 P  t6 S5 L" f7 {# ?#4=D.
1 x* b( s! N. q4 M; b1 d& AN1 IF[#1GE#2]GOTO2
% B/ W5 `/ I- X3 m8 q6 Z% ~#1=#1+#2
" S2 l) e3 ?3 J$ H* g$ A) p; k4 E' l#2=#1-#2
) l& `# a$ v# h4 h/ f#1=#1-#2
3 L7 }7 B4 @0 q7 m, GN2 IF[#2GE#3]GOTO3
#2=#2+#3
' M. X4 M& e7 Z$ s4 p#3=#2-#3
#2=#2-#3
( v- V9 j6 U3 u0 LN3 IF[#3GE#4]GOTO4
0 i5 k' i9 y3 {* A. h$ Y#3=#3+#4
, ^) g- _/ N- ?% H9 z3 D#4=#3-#4
#3=#3-#4
; p5 n8 G% [/ a8 D1 ?& MN4 IF[#1LT#2]GOTO1
% P( S0 P8 f+ c) t9 U4 B1 U% A3 \: }IF[#2LT#3]GOTO2
6 Z2 c  v0 l5 e% U, l# F( HM0

羅蓋仙

6 ^6 M2 g) D" P" ?- ~法二：使用変変數^^
#1=1.
5 T$ X9 g7 r: d4 W#2=4.
! @0 t# P* L; D1 z9 U0 p; g#3=7.
. N# x/ ?) z3 T% V; O+ n' o$ R, i#4=9.
N2 #31=1.
#32=2.
$ t3 X: q7 G; vN1WHILE[#[#31]LT#[#32]]DO1
- D$ ^5 Y0 O* O% O0 r$ G#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
% R. |. ~. ^4 \) j& L; W#[#31]=#[#31]-#[#32]
& i* Z0 @7 O8 Y- x" }) U, ^; nEND1
#31=3.
IF[#2LT#3]]GOTO1
/ s9 r8 s3 M  u5 j4 W& `5 |#32=4.
IF[#3LT#4]OTO1
6 I9 p  s1 ?" ZIF[#1LT#2]GOTO2
#31=2.
#32=3.
8 X& N' I$ k7 m4 e  tIF[#2LT#3]GOTO1
M0

看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶