數據交換法的使用

羅蓋仙

1 Y8 Y' w) i9 K1 ~% a# v) t
: C4 r" z/ K7 @上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
* d6 w" |- v# F# q，我看完之後有灵感，
7 E; S+ n7 b5 Z( t( Q有人說數據交換法.能用于何處???我來舉個例子
- z; A2 X& ?/ X8 s1 R9 S( V8 \
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
3 @+ W! ]( }4 |! t6 ]#1=#1+#2
3 `  M  H& n* R#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
/ Q/ U0 f0 T$ r6 n#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
* o% h8 N" X1 K7 V  a8 |" t! l, m
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
  y0 F0 x9 H  f2 [, o& H方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
' ]' _. H% o0 Z, K4 d8 I#2=#1-#2
/ k9 w5 j8 V5 _1 |#1=#1-#2
#3=#3+#4
# {3 q9 P# y0 C1 `7 v, R- E( c#4=#3-#4
/ x+ [2 u1 R; w5 V# j#3=#3-#4
  }3 m- P: U6 `- E$ ?+ `END1
6 M2 s' v1 a( ~. u4 @2 D3 U6 O6 `......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
  ]$ e  e! \. Q% T% e! {
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
* R* J! a0 t" I0 Q" S+ `#2=10.
& r; R& D7 n2 r& v#30=1.
*#31=#[#30+#500MOD2.]
M0
3 F5 J% Q( [% n% {
又想把它這樣寫
*#31=#[#30+#500AND1.]
  {4 h9 @) z& ?( U, I* JM0

空气中的小鱼

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

羅蓋仙

6 Y/ t8 D3 G2 W9 ^5 u) x, O# k4 `使用數據置換來按大小排列，大→小
: P- j2 o4 [+ b" E# Z法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
1 Q) N7 H% s0 e$ J" e#1=1.
#2=4.
9 P% \; b5 Q. X#3=7.
& P+ k& k1 F+ e4 l" S#4=9.
; n: R: `# K; j' e! e+ mN1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
* ]2 ?: Z5 z5 yEND1
N2WHILE[#2LT#3]DO2
8 h5 @/ G# t' @" x# T#2=#2+#3
3 x5 b9 \; m4 Z: B#3=#2-#3
5 E8 ~' c. r/ p% c8 _" t+ _#2=#2-#3
END2
& z# m. i1 S- dWHILE[#3LT#4]DO3
#3=#3+#4
; h+ P9 N- b/ w- w* Y2 r9 l% I& d#4=#3-#4
2 y, {) U3 i' G0 G4 H#3=#3-#4
END3
IF[#1LT#2]GOTO1
. z* G6 ]! T+ K2 X! ^7 EIF[#2LT#3]GOTO2
M0
! A/ L/ `; m; s6 |7 R

法1-2：使用一般耳熟能詳的IF-GOTO
8 w: Z, Y5 M. J#1=A.
#2=B.
#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
" z' x; h& T: D: E! p2 N" n#1=#1-#2
4 x! n4 T# B. R7 t8 r0 N, q$ UN2 IF[#2GE#3]GOTO3
9 V: ~) c% P  |# g& `#2=#2+#3
2 W# Z7 w( O5 {7 A' q( \#3=#2-#3
) C) W% G; c- T9 R& T#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
$ @0 n  ]8 L7 z$ w#4=#3-#4
# m1 T4 Q' p( q$ y! E#3=#3-#4
0 L4 Y8 s/ }6 Y- |N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
; s! Q/ z3 X2 A& bM0

羅蓋仙

# C- B! @; H7 a法二：使用変変數^^
#1=1.
#2=4.
" y, M6 o+ w0 h+ o  v#3=7.
#4=9.
5 m7 a1 |3 z5 ?$ e/ _1 X1 d9 fN2 #31=1.
#32=2.
0 ?6 P! C3 T0 Y; i& QN1WHILE[#[#31]LT#[#32]]DO1
8 ]6 V3 b( J) ]#[#31]=#[#31]+#[#32]
. S2 C2 b- a! N& ]#[#32]=#[#31]-#[#32]
# I0 j+ c: d7 y1 C+ T#[#31]=#[#31]-#[#32]
END1
; y9 N' W$ q+ A) d! V#31=3.
IF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
& j7 B0 F! ~/ a* o' p: h#31=2.
#32=3.
IF[#2LT#3]GOTO1
M0

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

longmeier

好帖子顶