數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
+ ^4 l" e( m7 E有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
) J$ e% ?0 F: V+ @% e- xIF[#1GE#2]GOTO5
#1=#1+#2
4 i/ ?$ N" C" S6 Q! q#2=#1-#2
8 y& B5 }7 z! H: ^3 o4 Z#1=#1-#2
#3=#3+#4
9 k8 f' `# _# x* l3 t/ ]#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

6 F2 B9 ?. l! {% ]9 {! C! i% k+ P我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
/ E3 _7 W6 {9 B9 s& j) V方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
/ u' m' G$ y, K+ R#2=#1-#2
" w2 z. D$ m$ ^/ G& m#1=#1-#2
#3=#3+#4
#4=#3-#4
( B( k" d$ C8 P5 a( f* d9 L  N4 {#3=#3-#4
5 }  {& V) M& y2 e, G+ Z& q+ b$ nEND1
! R5 X  Q# ]+ ^; V: O4 `......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
) k( r/ x. T  H1 g: j& ?4 L! _
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
2 J9 f2 E' G) ^( }# ~2 s# o  v5 [2 r#1=5.
8 }  [: Q& m) `/ C' x, }# b4 R#2=10.
  a6 ~" \& J9 j6 T- g/ N" D8 A7 n1 r7 I+ i#30=1.
*#31=#[#30+#500MOD2.]
M0

' @9 B/ B6 k- L- U7 G- ~又想把它這樣寫
8 \! |& q# ]3 ^9 `. E+ P  N5 O*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
$ k, ~- j! t9 v+ E你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
- d, v/ u9 X$ h* h法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
* `1 c+ k% A: P$ W% N  O( A( A! V#2=4.
0 e9 E8 |1 v; o6 C7 j#3=7.
5 z6 i; h: [3 s8 _# F# c$ z9 l: \4 j#4=9.
7 ^- G9 }- c( T" R0 Y( z6 e6 vN1WHILE[#1LT#2]DO1
2 p: v. ?, k7 D- L2 L* m: E#1=#1+#2
#2=#1-#2
#1=#1-#2
( \6 r2 B, w+ J  Y% O* e' ]+ N1 t3 Q1 DEND1
N2WHILE[#2LT#3]DO2
#2=#2+#3
9 P& Y0 X& h) l" r6 c#3=#2-#3
#2=#2-#3
5 d9 Y" i1 q: l" O3 yEND2
* s- ]  y# X2 Y9 J# [* ?WHILE[#3LT#4]DO3
7 L' e( V0 ~+ b1 c6 H; w4 h. [#3=#3+#4
#4=#3-#4
#3=#3-#4
- K2 n9 Q0 w2 g0 b# w0 E; w4 LEND3
- I1 Y6 o3 J/ g/ I! MIF[#1LT#2]GOTO1
0 R6 f& A( |" |) w% D( b& MIF[#2LT#3]GOTO2
M0

' }% e; @. a. _- z" T
法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
' x# _& @3 G4 [; y+ C( t) x* ^/ I#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
7 s8 X! o9 [, T; K5 s+ B- y#1=#1+#2
1 t) Z5 z: [/ N- u9 R& `8 r#2=#1-#2
#1=#1-#2
9 `; Y, I3 i  x* a4 v- F; |N2 IF[#2GE#3]GOTO3
#2=#2+#3
$ ]) Y- Z8 e3 F4 L#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
) {# ~' L! i4 Z4 |6 \' ~#4=#3-#4
) _4 K& ?* V; y#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
( _" {# ~+ h) Q8 O* bM0

羅蓋仙

7 J: a! v: n; j
法二：使用変変數^^
8 g9 K/ [8 H. V) ]0 B( t1 c- q#1=1.
#2=4.
$ v- _, V. z8 x8 ~+ t#3=7.
#4=9.
- O& F+ ]. F  Z- k, GN2 #31=1.
" h* b# L3 l0 s7 \#32=2.
) y; V. W+ \; n/ b0 lN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
8 o5 \) f& @0 h% z. r#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
7 q. E% v  B" a' ]" w7 M$ ?END1
& `9 n4 t( t1 M7 [1 d' L#31=3.
IF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
" I% y! p3 C: R+ T; O5 VIF[#1LT#2]GOTO2
#31=2.
0 w% o4 C# s  V  f9 f; K1 I! G( g#32=3.
, m3 U* j  P5 |& @# G) C7 ]IF[#2LT#3]GOTO1
; F  g) b, ~! `0 ^M0

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

longmeier

好帖子顶