數據交換法的使用

羅蓋仙

3 V" H# ^1 Z1 V上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
" A, J: T7 ?" Q4 b* \' K3 m有人說數據交換法.能用于何處???我來舉個例子
. @& n5 Q2 I. {/ p1 B3 f* K5 y* }
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
# F4 P% z, c8 c: G方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
. J* n1 h' o3 q: e#2=#1-#2
  ]) Q9 M( {3 l& U8 j7 @* b9 s$ y#1=#1-#2
1 {5 G/ |7 i8 [#3=#3+#4
#4=#3-#4
  p- S4 b) O* b8 b) F#3=#3-#4
9 r* T/ d) n* c8 Q3 a1 u# s$ u$ GN5......此時#1的值已經置換過來了.#1的值一定比#2大
' ]1 o1 t3 U. z
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
# i3 W5 [0 s2 O+ X' B' S  _- f8 E( D#1=#1+#2
#2=#1-#2
6 |/ `% @( Z) c! W  X#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
% b# x" o, x3 h$ g# }
( Z& e/ ~: w/ M2 i7 r* q2 x% F方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
' |7 Y6 {" M9 H. }# G9 x% m1 R#1=5.
#2=10.
6 j. f" q& e4 L1 m; M9 F+ O#30=1.
*#31=#[#30+#500MOD2.]
) u; C9 u! C" n' @M0

又想把它這樣寫
5 O7 X  ^) F; ?*#31=#[#30+#500AND1.]
M0

空气中的小鱼

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

羅蓋仙

2 A, l; \2 X5 r% {( A, S9 _  B
1 F9 X8 f- a1 ~) ]3 ]0 J% x使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
" {) ?+ V" o, X#1=1.
#2=4.
8 z, A- [# T; j4 p- S+ ]#3=7.
$ _, }% O6 r  c6 s#4=9.
& b2 n: Z* {  Z, ON1WHILE[#1LT#2]DO1
0 _# r/ Z, c& V: r( x/ l#1=#1+#2
#2=#1-#2
2 Y. \  o; R" d* _' z#1=#1-#2
5 v% L! W5 b& U: J6 J- }END1
N2WHILE[#2LT#3]DO2
#2=#2+#3
5 W4 E& d. K$ E6 g; i+ G; _/ v  U5 y#3=#2-#3
#2=#2-#3
2 n! B  L; j3 t5 k7 a1 K" f( cEND2
WHILE[#3LT#4]DO3
6 @: |) `2 B* }) j; L- c) g* J#3=#3+#4
. d$ ^  @) h6 u#4=#3-#4
#3=#3-#4
# W: N6 }: @; T, @' ~END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
- g: q4 v/ N# [+ n* i5 YM0
2 _8 r3 H- b' H6 I2 M

法1-2：使用一般耳熟能詳的IF-GOTO
  @; W+ C- g2 K" d#1=A.
" |, a1 R2 y0 a#2=B.
2 @# b; C: h, L8 i- l# B#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
2 @4 C! |8 z3 s8 A/ j0 ~6 C#1=#1+#2
#2=#1-#2
#1=#1-#2
8 P4 o' r: {4 k! E9 B; P) ]2 hN2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
#2=#2-#3
) g% j, F0 h5 @; v) kN3 IF[#3GE#4]GOTO4
#3=#3+#4
2 q1 p2 S* }$ H8 d$ f& l#4=#3-#4
/ {, m0 L# @" P5 T$ }#3=#3-#4
8 x; x8 h) ]6 K+ K3 T  ON4 IF[#1LT#2]GOTO1
0 ]) K: ]4 l% T/ a! L7 K7 c8 \IF[#2LT#3]GOTO2
  R9 o+ \1 \+ p3 @M0

羅蓋仙

法二：使用変変數^^
#1=1.
#2=4.
#3=7.
#4=9.
* c& j1 O1 y* R$ D+ bN2 #31=1.
$ _! _0 l! c! r0 \# T# \$ C#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
$ C+ g) V" p# M- P#[#32]=#[#31]-#[#32]
6 A- O3 \; P/ {' `#[#31]=#[#31]-#[#32]
END1
#31=3.
) ?" t, e9 ^# [6 ^+ }# N8 e' Y2 ]IF[#2LT#3]]GOTO1
#32=4.
  i& _" c- ^- PIF[#3LT#4]OTO1
' c' Y" i2 K7 q6 P! l; l& IIF[#1LT#2]GOTO2
#31=2.
1 t* F' s* d5 s1 d* K#32=3.
! l6 U0 `, {! a% F2 d* F2 fIF[#2LT#3]GOTO1
M0

/ H0 [' k9 M' Z, S$ C/ a  A# |看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶