數據交換法的使用

羅蓋仙

8 l! O( e7 ^( C9 @8 t; W( ?上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
+ ~2 ~0 e1 }! _( p& N( H, x1 k，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
( H" I: B# a/ A4 i$ P7 ~5 I
" l; g( i* _9 M5 q4 B如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
! B5 d6 t0 [, J5 s) Z% S方法A：
IF[#1GE#2]GOTO5
! z# R. g) k# H* H2 F4 g#1=#1+#2
! _: P" v3 s' Q$ e#2=#1-#2
#1=#1-#2
. k/ |* g$ N  t#3=#3+#4
3 J  m' Z9 w% {0 k1 C, g- q#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
6 G" ]! C6 l6 O  n% |5 Q5 @
1 u# @) c( b: z& {" J我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
) o+ N. S: i% I/ ~, r" w( u方法B：
WHILE[#1LT#2]DO1
# t( g7 R/ h6 g% P) B#1=#1+#2
#2=#1-#2
: \0 X+ W. R" h0 d$ t#1=#1-#2
#3=#3+#4
1 p4 s3 D2 A6 L6 f7 `#4=#3-#4
% P1 ]# ~7 r6 ~! d" J#3=#3-#4
( q/ Z& s6 |3 q& z0 a) ~2 Y# ]END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
5 X8 W' [" ]# m% R# y#2=10.
" J2 h. Z7 d7 p+ Y5 A3 B#30=1.
( O8 |+ c0 A( q, y6 r$ |*#31=#[#30+#500MOD2.]
# y% z9 h- r( s4 n3 GM0
7 m* O. ?8 x" Q* }% X2 r! r" b
. \4 B- Z4 d: K% i又想把它這樣寫
*#31=#[#30+#500AND1.]
0 Z' W+ w( p3 D& ?# qM0

空气中的小鱼

回复 2# 羅蓋仙
5 `# x# S9 C! \+ s, E: p你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
5 l* u; t2 o& J1 E  b7 {, f. ?所以，以上语句可以运行的

羅蓋仙

, k1 i* k) c  O  m( Q使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
# g; z7 W) G" s  b& R4 z#2=4.
. i8 {( L! G: @! J#3=7.
#4=9.
' v( \  V6 q! ON1WHILE[#1LT#2]DO1
& `' t& K: V; ~8 [+ s/ L#1=#1+#2
#2=#1-#2
$ G' \' V9 i# v! j2 R#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
5 D" H* Y6 K3 r2 ^#2=#2+#3
  q/ a' A/ v  n* L( s$ i#3=#2-#3
0 a. B7 V8 z& J! j#2=#2-#3
END2
WHILE[#3LT#4]DO3
* b! F* T! _4 _+ {! G#3=#3+#4
#4=#3-#4
#3=#3-#4
END3
IF[#1LT#2]GOTO1
2 c" U; J; m* v' S. n# m/ EIF[#2LT#3]GOTO2
1 K4 K" \# i4 @* L. MM0


法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
0 a" w0 f# A  h4 ?6 q#3=C.
8 {7 _  Q6 P( u0 s2 p* @5 r2 y#4=D.
! g% D( r# ^: A) ~. O9 }* O' Y- e! v  qN1 IF[#1GE#2]GOTO2
6 U* L, W" ?) d' e" q$ P9 A, h: @#1=#1+#2
0 t: H  N- j$ p( \#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
( v, c" o4 b5 p' A4 \5 T#2=#2+#3
  ]' `: ?( v2 m. B0 J#3=#2-#3
2 P, l' a7 S/ Z  B$ O  K#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
; P4 u7 X/ @1 y0 V! y" [#3=#3-#4
! H0 X1 J+ }8 i8 m1 v% x$ m; D. jN4 IF[#1LT#2]GOTO1
* B: I, l2 ~+ k& C' c% dIF[#2LT#3]GOTO2
M0

羅蓋仙

. B% Z" y% W2 G; S; Q5 [
法二：使用変変數^^
  s3 m) O% P* B; K7 P3 H#1=1.
' g$ m0 P3 Y8 U, I#2=4.
2 B: _9 ^* ?0 {2 u: T) _- C#3=7.
! h+ q6 ]5 k! G  ]+ t#4=9.
( l1 ]- c4 M  r4 i% n& m  y& }' AN2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
1 @3 U3 B+ G, d! P4 ]( f#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
# v! f) d4 P& F- S+ U9 PEND1
#31=3.
1 l8 C2 K1 _2 r7 f: F5 Z. @IF[#2LT#3]]GOTO1
- ]# a$ j0 `4 n" F7 {#32=4.
$ @% O- ]% l6 p/ q) V6 c6 H! x! kIF[#3LT#4]OTO1
, `) N+ C! F! v# y! `) L% f' jIF[#1LT#2]GOTO2
6 E8 {$ Y: d! q7 N#31=2.
; P5 ?2 S7 r. Z3 l#32=3.
: Z/ s; |# Z# ?' Q) \9 ?- gIF[#2LT#3]GOTO1
+ X; @8 r3 `; p+ Y6 d7 s& r; t# @M0
/ N* r2 s3 F: T7 l% f8 T. ^
; j/ {2 ~& x/ U" p% `看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶