數據交換法的使用

羅蓋仙

& h; D* Z% _0 q8 R3 {
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
$ y: \7 u+ g6 i4 m# }7 m, j有人說數據交換法.能用于何處???我來舉個例子
- s  i" Z. G- }1 V
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
0 O& z' p- F# @5 f' g$ \使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
+ ~0 [3 L, N7 o) A#2=#1-#2
1 B& }. c$ }" F9 C#1=#1-#2
, r  y) d; O6 n) Q8 R# d( m#3=#3+#4
) _5 ~% k1 t; c; v/ m, r#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

- H9 @' ]9 W9 q" s' c我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
9 r) s$ M6 I( w# S% d: A方法B：
WHILE[#1LT#2]DO1
  n* L! I4 ?3 G5 ?6 Z+ k; H, W( c#1=#1+#2
0 L- J4 M- g% F7 l#2=#1-#2
6 w+ O5 {0 v2 |$ D#1=#1-#2
#3=#3+#4
#4=#3-#4
  g; @( O4 s  _% U0 ~% Z5 S, |#3=#3-#4
7 f! a" B  n/ W4 m7 P  K; p; \END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
7 G4 V; y; i9 d6 c+ l#30=1.
( B, u2 G6 M* j8 B" k9 b*#31=#[#30+#500MOD2.]
, O  z: C, n0 |7 K5 ^9 |1 LM0

又想把它這樣寫
6 |: Q0 K1 l3 a3 x1 Z% t/ e- `*#31=#[#30+#500AND1.]
M0

空气中的小鱼

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

羅蓋仙

1 J: D/ [& M# [: w& Z使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
, z, b/ d! o  S) ]4 u3 f#1=#1+#2
. H5 w3 O* U- S+ E' s+ B  N#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
#2=#2+#3
2 ?6 w* A; f2 f! U' D* {#3=#2-#3
#2=#2-#3
END2
" P  J/ K$ o' M; W) L0 {3 _! F  y4 H& nWHILE[#3LT#4]DO3
#3=#3+#4
2 q* b  m! q3 |. T#4=#3-#4
#3=#3-#4
. v/ O: Q" y4 e! K! ^! rEND3
8 _8 e, \. q5 L3 j5 c% U3 ]: gIF[#1LT#2]GOTO1
# N; c: b" R* [3 x$ i! eIF[#2LT#3]GOTO2
M0
. w# y7 j+ V) L
- e' K3 J" r1 J4 ?& n( c  p
9 P! a3 T# m/ O: k) e% C: `法1-2：使用一般耳熟能詳的IF-GOTO
8 g2 g0 r& e1 F9 P+ e; B6 H#1=A.
#2=B.
0 e* o* e/ Z% a. h#3=C.
9 G  D$ G& w9 i- Z8 L+ ?- E; ~) E#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
#1=#1-#2
; ^" w7 ?% Q' s7 N: q7 l7 E  n$ ?' bN2 IF[#2GE#3]GOTO3
#2=#2+#3
7 y. z5 z6 B5 `, [#3=#2-#3
#2=#2-#3
- U: r- o" ~% _3 r3 z# F+ ?+ hN3 IF[#3GE#4]GOTO4
#3=#3+#4
5 }* _* F5 l2 O8 [. u* |' ?$ M3 Y#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
" E7 \; N  U) i4 l& FM0

羅蓋仙

/ q7 C( }1 E% }" O$ J: T法二：使用変変數^^
( `9 ?& E4 P5 j4 z& Z0 k7 U$ {#1=1.
& j/ T; L( V4 Y- ~#2=4.
. Q6 y4 z" L! R$ M; e% T$ L#3=7.
0 U2 H' m4 R7 J* G5 w( p#4=9.
$ H; k( f( R3 {0 d1 Y/ WN2 #31=1.
& I$ A; Y5 a4 e7 z5 Y# E% f1 m#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
' `) N( O  p. R0 u. \# M#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
. E) Q2 j8 E* y+ s2 L5 t#31=3.
. ]4 x- `: X! W' EIF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
#32=3.
IF[#2LT#3]GOTO1
M0

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

longmeier

好帖子顶