數據交換法的使用

羅蓋仙

0 g8 j7 D3 I) P
# x' G/ o# z0 R9 p% [上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
" y  f) d% _1 o9 F，我看完之後有灵感，
( r0 C" Y5 x7 V1 J# O3 ~! g5 R有人說數據交換法.能用于何處???我來舉個例子
, }9 _; W) \4 r4 {" Q
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
: ^* w+ c; R% _1 w% F3 @使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
; K! @4 ]! o5 l. [4 A, r' t方法A：
! \3 r% `# J  _) UIF[#1GE#2]GOTO5
4 ~3 Z7 I' ^& Y* o2 u8 |  v8 ]: I! `/ o#1=#1+#2
#2=#1-#2
  s8 W3 l5 o4 S7 T2 B4 K8 f) ?# j#1=#1-#2
/ {* c5 B* Q" `. y$ |) y3 ?#3=#3+#4
+ T6 o- J+ C" Y, Z9 e% M) G; H* c#4=#3-#4
! y1 Y3 y/ C/ z# L0 V" V#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
  T5 J( v, b0 E方法B：
WHILE[#1LT#2]DO1
& j* @. Q* O) Q% I7 e/ o( W#1=#1+#2
#2=#1-#2
* b% V6 y% E& [1 }0 L! L#1=#1-#2
1 b; N/ \, e7 I2 c( [#3=#3+#4
#4=#3-#4
" m3 x3 O& D$ w) t0 C$ p0 c  N9 c& j#3=#3-#4
) W5 i3 ?) J3 n1 P* y9 m/ i2 dEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
; s: E4 V5 y1 r7 l/ Y) @#1=5.
4 A* @% K, e+ e7 ]#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
7 Y: W' d" r1 J- ~+ f8 }; SM0

% \7 K6 ?$ k& p" ^$ |7 z5 C& U又想把它這樣寫
*#31=#[#30+#500AND1.]
6 ?! F7 \6 E5 v$ U. g$ c) V. hM0

空气中的小鱼

回复 2# 羅蓋仙
  z0 e! w8 Y+ W2 V, _9 Z( f- D你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
- m! v7 ^; ~4 R9 H/ ?4 c所以，以上语句可以运行的

羅蓋仙

4 ^8 {- N! A$ N- |使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
" Q" @7 _3 W6 I7 m, F" H' _#2=4.
/ a0 o" ~! j" x$ y* g. j& `  ]#3=7.
" z7 s2 e9 Y: e#4=9.
N1WHILE[#1LT#2]DO1
5 @" X2 n; k( ?" w7 A( w8 _* p, ~#1=#1+#2
#2=#1-#2
7 G. v3 n6 `- ?9 @2 b#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
#2=#2-#3
END2
; d# X/ h. w3 a+ n; z% u1 _8 @WHILE[#3LT#4]DO3
' G; d9 E+ K9 a6 L#3=#3+#4
#4=#3-#4
5 v' ~2 a8 K, A, F5 c: A#3=#3-#4
8 `, _& G& K3 ]# kEND3
IF[#1LT#2]GOTO1
6 H7 [) I$ {9 M9 n* QIF[#2LT#3]GOTO2
M0
( Z3 Y0 h' o3 B) X7 d

: ~/ v. h$ \7 z$ t: a- C5 }. N* x* F法1-2：使用一般耳熟能詳的IF-GOTO
+ ~9 W7 a. B) U$ X7 h/ U; _#1=A.
#2=B.
" j$ ~: J! ]0 {% m) m+ B/ S#3=C.
5 @& x# {' [1 M& Q& `1 Z# B#4=D.
N1 IF[#1GE#2]GOTO2
5 j- I* G. z# y& c( E#1=#1+#2
% x* q+ i9 U! \" E+ w3 D+ z#2=#1-#2
#1=#1-#2
, ?7 W: a8 I3 G  ^8 TN2 IF[#2GE#3]GOTO3
#2=#2+#3
8 U: [% B: o3 F" r- e4 C, i#3=#2-#3
! t! I0 p- `  p8 Y" a#2=#2-#3
N3 IF[#3GE#4]GOTO4
$ T1 l: ?, j; w  p3 g#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
& H* X* y" J- f: [$ CM0

羅蓋仙

) Y" `6 R: O7 k+ J8 ^' L: Z6 |
法二：使用変変數^^
#1=1.
' H0 H. v4 X. G( N6 O  D0 k#2=4.
. O, X& e3 U% H$ a" T#3=7.
0 t+ }# Z2 Q! j3 s0 n# ?#4=9.
N2 #31=1.
7 X2 _3 M! L6 c6 U$ q0 U4 T#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
: o1 k" i) C& W0 x, \' _' ~#[#31]=#[#31]+#[#32]
. q# }, L3 P% Z( u1 b0 Z( c#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
" ?" x7 A# U' E" B" GEND1
#31=3.
IF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
" J4 C3 k( n0 i% u#31=2.
#32=3.
8 B, a3 ~. e" z" n+ r; u1 I' V& u+ KIF[#2LT#3]GOTO1
M0
! [' T$ t1 Z8 A; l2 ?1 ?& T9 J, @0 }# U
6 i9 }, ^, l4 U看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶