數據交換法的使用

羅蓋仙

; F9 g+ {) l. g. J: V
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
' K( W% B5 }# B! o, y有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
3 m& y" o% r. S8 ?* F$ cIF[#1GE#2]GOTO5
) x, s- }$ }  G* ]- ~  V/ _9 d#1=#1+#2
1 L3 E- q6 l9 `7 `& P" \+ ^* ~$ X8 X#2=#1-#2
#1=#1-#2
  X2 X+ D$ \0 u; _9 @8 r" I#3=#3+#4
#4=#3-#4
* ~3 g0 y. W( J9 j$ H# Y; {+ c! m0 X#3=#3-#4
0 \3 v7 u0 r! b% i0 KN5......此時#1的值已經置換過來了.#1的值一定比#2大
3 V/ K- G2 c* \
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
% u# C) r7 \5 W方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
: @5 u1 ~3 I. E' t( R9 P+ E. K! a#2=#1-#2
/ h" L$ `0 F4 o- h8 k#1=#1-#2
#3=#3+#4
( B. R% m( N: H0 ^; ^% E5 z" T#4=#3-#4
#3=#3-#4
9 Q4 ?: P9 K/ C, `9 `: E4 S  XEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
# X# N4 j! c6 }; \4 v9 G7 L" k
# c5 a, ^$ F( G: q6 r+ x方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
" f. I- _9 O, X& y% I#1=5.
#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
M0
9 n( t2 d1 U' Z
又想把它這樣寫
& O* h0 q/ h! f, R* f7 K3 ~*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
  \* U. ], w1 g: C你的表达式中没有只是逻辑运算，
/ v# W7 v8 j, F) b只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

7 R, [' F1 W# I使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
5 T4 n6 ~' H  A" j% ~8 M#2=4.
5 Q, R; W7 G0 \+ S: }" l* q#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
  y; U1 ~7 a0 X7 B& E! K' p#2=#1-#2
#1=#1-#2
6 |4 y4 ~4 [8 `' ]END1
N2WHILE[#2LT#3]DO2
#2=#2+#3
3 I3 v  Z* j) K0 \2 |#3=#2-#3
#2=#2-#3
4 o- ?0 ~0 h% E+ z5 PEND2
WHILE[#3LT#4]DO3
#3=#3+#4
# h$ t8 P# K$ D' i: q#4=#3-#4
2 n* e0 x* r! T* u0 f3 F+ U#3=#3-#4
END3
& L0 _( m  A8 |+ Z  pIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
% F" l9 B8 S) X- W+ o3 FM0

: E) Z* G" }  _: ?8 V! y# }" S' h
法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
7 ?" ?. E  J2 h  ]) z( i0 J#2=B.
- T3 N$ [8 q* i+ ?- G#3=C.
1 w/ @) @+ i. H; Q# b. X6 v#4=D.
6 \4 w# k( s6 V% u* AN1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
% G' j4 Q7 H; U8 Y2 y#1=#1-#2
N2 IF[#2GE#3]GOTO3
. q( ~( w* `5 c7 \1 @6 R#2=#2+#3
1 w# J; U: x  p, x/ b0 ^8 _. ]+ o+ }#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
  w  I( X* _+ w3 p1 L#3=#3+#4
#4=#3-#4
# ^  [; C* ?# \6 b$ J" N#3=#3-#4
& Z- [% a7 C( ZN4 IF[#1LT#2]GOTO1
0 R; N+ z% b! W- R5 F2 GIF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
#1=1.
8 m: _) [' D, X. d3 P' m6 \#2=4.
. h( M( o! J. ^$ l- q3 o+ s#3=7.
0 `0 c) a/ U6 w" J( W& ]#4=9.
N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
2 Z" e6 o$ O; x$ C% D& _#[#31]=#[#31]+#[#32]
8 P5 d+ s( ]$ U7 c5 Q5 o  }: r#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
#31=3.
IF[#2LT#3]]GOTO1
9 ]. ?+ k; S. B6 E$ \$ \#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
# s) Y6 `" j' N' ~* P( h  K" W/ c. p" M#31=2.
% A5 a7 C3 X2 O9 I( H2 K) r#32=3.
* J0 R( }7 a( e" M6 ^! MIF[#2LT#3]GOTO1
M0
$ t, y" N! v* F' V
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶