數據交換法的使用

羅蓋仙

- j" p* m6 a! H上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
- p' ^) [# w2 |  R5 R，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
& I, I4 @2 |, l2 |0 g
7 u, H/ [- n+ L" m如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
5 W( R+ ?8 S; J  w5 x使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
& a8 z1 n9 X; XIF[#1GE#2]GOTO5
#1=#1+#2
' A* B/ D; J  f4 Q+ w8 `/ h" p' p2 X" L#2=#1-#2
#1=#1-#2
#3=#3+#4
& V- ]& Y/ R* w# p' A#4=#3-#4
#3=#3-#4
. \3 G, p* C  S4 v! e$ D( Y, pN5......此時#1的值已經置換過來了.#1的值一定比#2大

7 E" c' m9 `. M我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
9 Z! l7 {7 v$ I/ Y+ U; o, S' B+ AWHILE[#1LT#2]DO1
#1=#1+#2
# {! |# N3 \. J5 a#2=#1-#2
9 p3 l2 O: m3 `8 O) [! T0 j0 E#1=#1-#2
#3=#3+#4
9 t( H  D4 G, f+ f7 {& s#4=#3-#4
; _* Z7 p! }3 I" o#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
+ a5 m1 _, f& A
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
$ j1 }) M% P5 O#2=10.
#30=1.
* x+ [, C6 B) J( ^4 g' k  o! H*#31=#[#30+#500MOD2.]
M0
; N8 c8 M! }  f
又想把它這樣寫
5 }9 D; l, W5 }$ S" T/ n% A! i*#31=#[#30+#500AND1.]
) s# |; {7 D9 Y8 H& V6 i: h# AM0

空气中的小鱼

回复 2# 羅蓋仙
2 n- {0 d4 q& h( v7 K1 h* M你的表达式中没有只是逻辑运算，
9 q8 \/ E/ Q- m' Y! N* y只有逻辑判断有些系统版本不支持
, m' g' _% G' o5 C1 b所以，以上语句可以运行的

羅蓋仙

, Q) k8 `2 `  K$ k# R* R0 s3 ]* H
9 _! m2 f: Q9 s5 ]: }- z使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
6 Y7 n3 a& L3 S/ A  H: o#1=1.
#2=4.
* p: m3 v0 }" b3 I7 x#3=7.
2 C7 q/ {2 a7 i) p#4=9.
" I% P9 j0 {/ P- HN1WHILE[#1LT#2]DO1
2 e# q" U) u, _) n$ |0 `3 @# [#1=#1+#2
#2=#1-#2
- K1 X& D- w0 ]6 C, X7 x2 _( ^% a#1=#1-#2
END1
$ @9 ]/ z: B% y" r# BN2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
3 D9 j9 |" j3 n& D7 z1 h& h#2=#2-#3
1 F* Z% T. j; W- QEND2
WHILE[#3LT#4]DO3
7 e/ K. b' k* V6 X" u9 K#3=#3+#4
3 l) K. ?5 W9 w( S  I#4=#3-#4
3 h; f+ g1 G7 K5 d$ n6 W#3=#3-#4
* H9 K% U$ w3 ]8 p% R4 B/ WEND3
IF[#1LT#2]GOTO1
+ ?5 ~, [2 h# `; K6 AIF[#2LT#3]GOTO2
M0

7 Q% W0 O$ H1 U
法1-2：使用一般耳熟能詳的IF-GOTO
0 P$ O0 m& S$ e* G% h- p' g& q0 y#1=A.
( j0 u/ A+ y5 o% E7 m0 B. o9 C#2=B.
#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
#1=#1-#2
: N8 q( T  w- |N2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
#2=#2-#3
; x7 k4 y& A5 d. I& a' V& H7 vN3 IF[#3GE#4]GOTO4
' k4 i* L0 t! s; B#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
. i- W1 x+ n9 p3 m2 D& B2 p+ K) QM0

羅蓋仙

. e+ f9 G/ y7 k5 G# Z7 \
* d) h6 m$ |2 A5 S8 c法二：使用変変數^^
#1=1.
#2=4.
#3=7.
#4=9.
N2 #31=1.
#32=2.
' B3 r  s2 G9 {2 x4 Z1 Q: a( d0 Q% Z2 }0 l+ kN1WHILE[#[#31]LT#[#32]]DO1
" L; v& f# @) c! Z#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
) A5 a) \+ c( L#[#31]=#[#31]-#[#32]
! j! O1 v& Z, {/ d# w3 Z0 WEND1
#31=3.
IF[#2LT#3]]GOTO1
#32=4.
- V5 _" f+ b/ D  N" @6 U' D0 dIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
# R( S2 j( M: c) I- B# i) h4 U#31=2.
#32=3.
5 G1 Z+ v6 S& L1 ?3 W. sIF[#2LT#3]GOTO1
  s! k4 w9 O4 R3 M% c- g& ?M0
8 Q5 k: s& }/ g0 T. [+ v: R
9 c1 I" o3 ?5 {3 ~4 [( x看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶