數據交換法的使用

羅蓋仙

1 G  [/ w& w) q+ ~上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
+ {4 A( N) b7 H  t8 f+ n，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
# ~$ J$ l8 q; R+ [7 r8 I$ f
) M0 p# n9 l( |8 H如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
$ a" S1 A5 l* e" G. T: p$ Q#1=#1+#2
#2=#1-#2
3 a2 p$ m2 A& r2 F% k#1=#1-#2
& K5 Q/ I% U( T$ y$ h#3=#3+#4
$ |2 g# C$ h; I0 K#4=#3-#4
; A  e& U" q; g4 L$ P0 N7 H5 H#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
8 c, }' B0 u  `) [' Y#1=#1+#2
#2=#1-#2
8 q% r5 q, N9 c/ ^- ~+ ], J5 w#1=#1-#2
# J+ D0 z$ q8 t8 q. U#3=#3+#4
! c9 D6 V# `6 {: V6 ~9 n; t#4=#3-#4
#3=#3-#4
END1
3 `( v/ h2 {$ t! O8 y' z......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
$ k3 A- n' ^  ^& c. `" D* p- F#1=5.
#2=10.
7 B* S1 t! j; N, e, p#30=1.
*#31=#[#30+#500MOD2.]
M0
' s( ~0 f. [8 C: u
5 b3 h! U, k  ]0 b* x1 M又想把它這樣寫
& R& E* y/ c  p" u% R*#31=#[#30+#500AND1.]
7 r5 x6 \) m. e2 \; m5 |, lM0

空气中的小鱼

回复 2# 羅蓋仙
7 b% u9 l% k* v3 {5 _你的表达式中没有只是逻辑运算，
' s2 s# y$ [! ~+ B9 k$ Q只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

. P; i2 Q( i& J0 S3 g' t
3 g- w' s; _# g* s9 m' f% C使用數據置換來按大小排列，大→小
8 G8 K8 ^4 c2 }' c法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
5 x- _2 [# [. o#2=4.
#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
" o& N$ r; `  s$ B#1=#1-#2
$ S  ~1 J8 f9 t2 _' z, P; |END1
N2WHILE[#2LT#3]DO2
4 c- r! M& b( R# m#2=#2+#3
' i; X' t, E2 [* X1 C#3=#2-#3
#2=#2-#3
5 A' j' {8 Z5 a; p. EEND2
+ U! G# U1 S, A# a' oWHILE[#3LT#4]DO3
& f, Y: @0 T. r2 b+ R1 u#3=#3+#4
#4=#3-#4
' r8 K: X: W9 d: u#3=#3-#4
( {& G/ J( k) F8 K" h- FEND3
/ B# S1 x, d7 S* v9 P. ^IF[#1LT#2]GOTO1
9 V0 |; k5 H, ]) M3 }9 g; J) Y+ Q( uIF[#2LT#3]GOTO2
7 V7 V; S3 D- ]2 E5 ]2 L+ NM0

$ ?; |5 W9 q3 e" W
法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
#3=C.
& U; @3 C  l& a7 U; D: G& ?#4=D.
3 m' a% c( ^! \2 {+ Y+ s' H7 w  uN1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
( K+ B( L) g1 W5 Y#1=#1-#2
N2 IF[#2GE#3]GOTO3
+ \+ Z- P0 I+ H! B5 [) X' u- y" ?#2=#2+#3
4 w/ D2 E+ V0 V8 w9 ?# x#3=#2-#3
) m+ P- s! M- H0 T% |$ d! k9 K( j#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
: E5 K  o( b; ?. P% A3 f#3=#3-#4
N4 IF[#1LT#2]GOTO1
- U' u) N" x) Y9 ~- m+ h1 sIF[#2LT#3]GOTO2
M0

羅蓋仙

6 M) _6 L) ^3 l4 Y0 d2 {1 z
法二：使用変変數^^
#1=1.
" x7 z7 f: X  |* K5 W( F% W' u#2=4.
  I! f) f$ c* z#3=7.
" o# H2 z' W1 A; R5 }#4=9.
5 n5 G/ u, P' U% m$ gN2 #31=1.
; D  O' v# B* ]- M1 |; E; `+ h#32=2.
& O+ C1 f* ]/ UN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
: \2 o$ k: l0 j/ n/ z0 ?; J#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
3 q$ n, U' W4 x$ R5 }* {#31=3.
IF[#2LT#3]]GOTO1
, k  K$ f. K* O1 [- E& c#32=4.
+ x8 \7 ~  C; z9 n9 S1 KIF[#3LT#4]OTO1
) y! R( Q- O! J" ZIF[#1LT#2]GOTO2
#31=2.
#32=3.
' j  w" S" c4 mIF[#2LT#3]GOTO1
7 g: `6 B* b* g+ S9 WM0

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

longmeier

好帖子顶