數據交換法的使用

羅蓋仙

7 U, _! c. G9 p. m
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

2 a3 v  }  p, `& Q/ z  T# Q如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
1 J  M: M$ D0 V, U/ CIF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
#1=#1-#2
5 L% o7 d/ Y9 Q#3=#3+#4
+ W6 _" g2 ?8 M#4=#3-#4
#3=#3-#4
2 O) t$ A" q/ v+ A# rN5......此時#1的值已經置換過來了.#1的值一定比#2大
- }0 X9 D' `' y2 I( X2 [- j! S# a
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
% T5 Y4 C! t+ [& |" F: s5 iWHILE[#1LT#2]DO1
4 A! B1 [; q; G- c8 Z/ y3 D5 V#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
END1
' J; O8 A! ^' o* b......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
2 w- ^: E2 N5 Q% q3 ]+ S  P; D2 }5 Y#1=5.
% F+ P( [8 ~* R; U# z. C#2=10.
#30=1.
9 h3 w, N: J: v/ p/ }4 Q, k*#31=#[#30+#500MOD2.]
' v' r3 [' j9 T5 P0 {& a. TM0
: t, j, v+ ]6 P$ Y7 X! J* \
3 G% {5 P9 Q" P! {* y" J又想把它這樣寫
*#31=#[#30+#500AND1.]
1 w6 d& y0 ?' b$ O- l$ {M0

空气中的小鱼

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

羅蓋仙

; A, A8 p8 ~$ F6 K. ~: L
7 E' d# A3 |7 G7 M0 A/ N2 @9 Q$ ^9 W使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
3 @* Z; a: `$ M, \1 r( t1 |, O#1=1.
4 V- y& C( n5 p. R" j( {#2=4.
#3=7.
2 d" I& e+ Y! |/ q2 M#4=9.
N1WHILE[#1LT#2]DO1
* I! `3 i7 V; f  r. l#1=#1+#2
#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
0 ?" D" |3 r; L5 {#2=#2+#3
#3=#2-#3
#2=#2-#3
4 l, M/ D2 e2 Q' I2 }* GEND2
WHILE[#3LT#4]DO3
3 C# q9 j( D8 [#3=#3+#4
#4=#3-#4
#3=#3-#4
& I: {! P1 i' k, X0 A1 OEND3
3 P6 ^5 Q6 a1 UIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

, k! l# x9 c. M
! L; ~& N9 }( s& U5 _: m法1-2：使用一般耳熟能詳的IF-GOTO
0 \) v: v/ ?. t2 z& x' h9 v6 L#1=A.
2 w* ], k8 X3 d! C  F# ^+ Q#2=B.
8 b5 _$ f4 o! O% t9 I6 q0 Z: a#3=C.
9 L! k6 a8 q/ i' G. [#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
$ }& `% }, Y2 X: I#2=#1-#2
5 K9 T& ?6 _0 s, P3 K, Q2 h#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
4 n$ N; Q0 J, i8 W#2=#2-#3
* I% z4 X# v. b) IN3 IF[#3GE#4]GOTO4
  D' l5 C0 V& i0 A. ]1 E& q/ a8 v$ ^#3=#3+#4
* }$ |8 Y5 r, H. c& b8 x- q#4=#3-#4
#3=#3-#4
' M% c+ r/ J1 m7 ZN4 IF[#1LT#2]GOTO1
. [4 K4 W  S+ u$ ^IF[#2LT#3]GOTO2
M0

羅蓋仙

) u3 T( W1 w+ U! q3 Y6 Q$ g
/ ?$ G. a. U- R* K. E# F- H法二：使用変変數^^
#1=1.
#2=4.
" D4 Z8 p0 F# ~. o! ?#3=7.
: v: r8 w2 @8 T7 Y4 h. g* |5 C7 i#4=9.
: n1 ?3 ~2 S! AN2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
: {: M0 ^$ p6 X/ T' k#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
9 w. w, o/ N) W) o% |2 k# g& M# h#31=3.
! a- z: V. k6 j" V2 y- YIF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
: `/ ^/ d3 y! z" h$ J#32=3.
IF[#2LT#3]GOTO1
8 ^; y* B: ^4 j0 b, f+ aM0

) Y  b8 g, W. V8 T4 ~看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶