數據交換法的使用

羅蓋仙

  z( s. p# G0 l3 |2 O. T7 C
  D0 `0 y0 D1 H! i. ]) b3 Y. N上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
* d( ~$ p' s, h5 \7 L! `
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
, L4 p9 N, W" [# |. U# ?) J使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
' `/ ?" e! S+ g# ^6 [) F# F方法A：
IF[#1GE#2]GOTO5
) {; ~( D2 A/ C# s#1=#1+#2
#2=#1-#2
1 A! ~" Y) b' K: u5 O% w' g* G3 K; ~#1=#1-#2
#3=#3+#4
#4=#3-#4
3 i7 S* C6 a" Y# k: K#3=#3-#4
+ w  O/ v! I- K8 ]3 X0 k5 zN5......此時#1的值已經置換過來了.#1的值一定比#2大
0 H3 E' g  U# h1 k
8 B$ S& u# e9 _6 {1 w. W! N% {我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
( T) ]0 V# W3 K4 u, u' J" s4 L3 v# {#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
0 F( x, g/ d/ c  ^+ A#4=#3-#4
" H1 p+ n% I8 W5 |% R#3=#3-#4
$ n4 K! S* T/ H' i5 k! ?2 QEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
& t8 f: o" x* b5 e/ P4 a
+ G: s6 W' j& X( V( j8 r. V/ Y: W- v方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
1 i) S$ k- e3 i1 O8 S' U#1=5.
#2=10.
0 T1 U  a: a# t+ Z#30=1.
*#31=#[#30+#500MOD2.]
; E4 Q! r9 z/ e' }M0
& Q3 R7 ^" c) k, g3 w0 R+ g
又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

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

羅蓋仙

0 U$ n& |- `) @$ J' Q0 F使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
% o% f. K. h; q: N#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
: e8 {  X5 o9 p3 Q7 k#1=#1+#2
#2=#1-#2
; s- B* d- i  i9 c! F2 z* ~" v4 ^#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
5 P# f% v$ U5 n  k8 y* e* O  Y$ a#2=#2+#3
#3=#2-#3
#2=#2-#3
END2
% i5 p) d  V  @5 R) z' R, }WHILE[#3LT#4]DO3
) V' Q. g2 b/ o#3=#3+#4
% T3 z, }0 s6 Z! n2 s1 G6 d#4=#3-#4
#3=#3-#4
/ R0 ?  c6 t& [# G" [% wEND3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
$ P0 X5 u2 x# V2 @' O
7 D8 ?! T/ l9 \) [
法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
#3=C.
#4=D.
+ \. b' v# C" F7 W" X/ W/ ?+ SN1 IF[#1GE#2]GOTO2
, r" v' k- Q& ^  }# P1 r' `4 H#1=#1+#2
# H; S3 x, F' p8 W$ |2 E0 U#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
3 ?" o! T+ D2 X- k( ^0 E#2=#2+#3
" C- c1 y$ @# C8 _! @( S#3=#2-#3
  g/ Q3 R) D2 y( R#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
8 j: p+ ]$ t. Y6 M; |$ T0 L* R4 e5 `#4=#3-#4
#3=#3-#4
) `& A8 _; G- l9 |3 K6 Y$ dN4 IF[#1LT#2]GOTO1
6 G! k' `- k+ [$ f7 r% uIF[#2LT#3]GOTO2
M0

羅蓋仙

# `4 z( j+ W0 m+ \法二：使用変変數^^
. }) O3 v# O* ^5 m  W* ?0 h) t; q#1=1.
#2=4.
/ Q  [9 A5 V/ R; i. b( {7 c! D6 X" J#3=7.
#4=9.
; q6 b- e' I; X2 H) {! ?N2 #31=1.
#32=2.
; G7 J+ U2 W5 S) _1 j; ~3 TN1WHILE[#[#31]LT#[#32]]DO1
% W, R! y" w2 r" R( t( Y9 t#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
0 g  n( l4 ], U3 dEND1
#31=3.
+ _7 D% F& ]2 E1 G& f8 OIF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
6 n# C9 r& F3 U5 BIF[#1LT#2]GOTO2
- @  w$ q  _# o4 u* D, @9 u4 S% {#31=2.
4 {# u+ u) [5 |# B9 u" L#32=3.
IF[#2LT#3]GOTO1
M0

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

longmeier

好帖子顶