數據交換法的使用

羅蓋仙

: d  j; p# l1 L; V# X
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

5 ]+ S% V8 ~: f如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
# m: H/ J$ X  D$ O7 k7 B+ j4 p方法A：
" f; ?( _6 S% T9 y' ]" MIF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
* I' d  B3 c1 ?5 j$ g+ Q8 e; d9 r/ G+ W#1=#1-#2
, u& H/ e9 c1 I9 ^0 n#3=#3+#4
% Q- K) l8 Y5 U& w) P0 c  ~7 i) ?#4=#3-#4
9 _7 C2 R8 w6 D9 W2 v#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
" P3 g) y: w- jWHILE[#1LT#2]DO1
#1=#1+#2
/ z% P3 b& }' }" G, l/ v$ D; H#2=#1-#2
4 q/ B3 T7 ?( F9 p: @, b  X#1=#1-#2
* x6 X) ]' _: o$ q' G% ]#3=#3+#4
+ Z3 @; y0 A1 {3 o. @3 J#4=#3-#4
#3=#3-#4
( F$ u4 R6 Y% q2 Z  v. f4 ~  VEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
  c% l. v! E' V8 U( G9 ]/ e
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
6 i9 f$ N" z/ P. T. A#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
M0

又想把它這樣寫
*#31=#[#30+#500AND1.]
7 c$ ]0 `" n& n' `  {( Q, N, aM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
: b- q  d" ]* f& M! B只有逻辑判断有些系统版本不支持
  {4 ]9 t7 R" H! ^( [" _( O7 ~所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
2 w% o) M& i4 m1 `: X9 w5 c/ k1 S法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
9 v4 q3 G: z, p4 t% S* B- `2 p#1=1.
#2=4.
#3=7.
  i/ l  m6 V8 W9 G( @' m6 K#4=9.
* z( W/ |9 d+ S; ]( |8 z3 Z' mN1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
END1
" r1 K# b" P! kN2WHILE[#2LT#3]DO2
#2=#2+#3
$ K3 U& ^* P# `( @#3=#2-#3
#2=#2-#3
END2
WHILE[#3LT#4]DO3
#3=#3+#4
! Q! k) F- S  O5 p#4=#3-#4
#3=#3-#4
END3
& b% n- O: d  i; x3 T9 `IF[#1LT#2]GOTO1
1 g+ C7 G5 Q) h  qIF[#2LT#3]GOTO2
9 [8 S1 z. y6 o& ?3 b) U( T8 ~8 Z0 oM0

, b4 \& [3 G, z* v. n2 r
法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
#3=C.
) x7 p4 N6 Y" o2 v+ R7 `6 g( [$ i2 X! a#4=D.
N1 IF[#1GE#2]GOTO2
. I; _* M. Q% O5 H/ {#1=#1+#2
#2=#1-#2
2 l8 [7 }. Y- d" }#1=#1-#2
3 x9 i; g9 D* _/ C3 h( }1 ~" AN2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
8 q# l( u  u) z) s  j* G6 {#2=#2-#3
N3 IF[#3GE#4]GOTO4
3 ~! C- d9 Q" Z: S: M% E0 Q#3=#3+#4
+ w& s1 s: \; |0 n, l1 \. _1 }+ R#4=#3-#4
#3=#3-#4
5 S5 H" m7 c- PN4 IF[#1LT#2]GOTO1
5 [; D9 m4 I! g* f3 u8 rIF[#2LT#3]GOTO2
. e& e6 M) F2 F3 a$ H. i7 dM0

羅蓋仙

' J$ O1 {/ d9 w! X9 X: G法二：使用変変數^^
' z; t" A8 q8 }4 \" W% E#1=1.
; \+ l& w0 c# a; x1 }#2=4.
#3=7.
$ t- ^# A* u4 ^7 {3 \- B3 s#4=9.
  B3 ~; s- U" L) L- h7 F+ EN2 #31=1.
: S- g' }1 v& m- W, O#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
5 {  h/ [  d) D' x2 t#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
& Y% J: [/ e+ y4 ]: M( [6 z' _# r2 L#31=3.
" p/ z) r1 f( R! D$ ~IF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
5 x: e  e& D8 ?  dIF[#1LT#2]GOTO2
#31=2.
#32=3.
IF[#2LT#3]GOTO1
  W  B# m9 F7 i4 d3 V0 L7 ~M0

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

longmeier

好帖子顶