數據交換法的使用

羅蓋仙

9 Z$ K- \9 `" I5 d. I$ W
9 C2 o2 P' V$ {2 l# [7 I上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
& G+ L, y( Z. J1 f7 I，我看完之後有灵感，
! i5 ^4 s. K/ p9 x* V7 K+ U5 c有人說數據交換法.能用于何處???我來舉個例子
$ q0 ]& @- t. b6 Q0 y% q' C
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
/ m$ L% Z2 a. F' _- ^* o1 b- c! v#1=#1+#2
#2=#1-#2
. Z9 ?6 N; ]/ _8 `4 x4 W#1=#1-#2
#3=#3+#4
/ a9 B( y  t( Z! W#4=#3-#4
! x* f  x# a. m$ Z4 D1 `8 s* K#3=#3-#4
2 F5 N' m+ E" H" {8 G; }: O  tN5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
9 a+ a- l0 d) u0 CWHILE[#1LT#2]DO1
+ i3 r4 f( e* j5 g: l5 `9 N#1=#1+#2
, B6 e5 W) a6 y7 q+ h4 h  d#2=#1-#2
#1=#1-#2
- \3 U' x8 a0 y#3=#3+#4
#4=#3-#4
% P$ g" ]0 T2 M* x#3=#3-#4
END1
+ ~& l! a) o  |2 C; m9 d% n......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
7 U5 e, \+ Z+ F( T
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
1 \- E# ?& x' u/ _#1=5.
# @1 S9 {" N8 x( L5 n* Y#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
( [5 d5 b4 i6 H8 W2 I- tM0
- W2 _, {: {1 K* a7 J
4 T. j* w( i" ^# P8 a5 Q又想把它這樣寫
! E2 N0 s4 q$ i. j*#31=#[#30+#500AND1.]
7 M% F( y/ m1 J9 Q- jM0

空气中的小鱼

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

羅蓋仙

5 E  ^4 L) G- \& ]0 n
7 t" U1 o* L' N! J5 {1 j( k7 @$ U使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
* b( u. [4 K& ~, Q/ a, G+ _#1=1.
#2=4.
#3=7.
8 N8 T2 l5 |; E+ F+ |9 ^6 I6 Z" H! t#4=9.
N1WHILE[#1LT#2]DO1
6 W5 Q2 f8 V* Y: V1 ~1 g#1=#1+#2
#2=#1-#2
#1=#1-#2
8 G$ O: V( v0 p, ], REND1
6 e' t  p7 G; ZN2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
7 |' Y8 f1 ~! f; l2 }8 N: `#2=#2-#3
5 f9 L; P$ Y6 m: Q1 l( NEND2
WHILE[#3LT#4]DO3
- c$ z$ r* p" f" x#3=#3+#4
#4=#3-#4
#3=#3-#4
END3
IF[#1LT#2]GOTO1
* p/ r% m( b$ e8 O4 Q* ^* HIF[#2LT#3]GOTO2
M0
( a: [" x; _; g' t2 X0 y$ j) ?

法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
3 o' K  V: b' E% S5 ?8 F#3=C.
! _, @- s. g2 l5 ~  B5 s#4=D.
& v9 t- J% }) r4 MN1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
7 |& x8 ^+ f8 ]' k  I+ t5 L#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
, F' A- s/ j+ i8 w0 N3 B#2=#2-#3
8 D& G& ?4 V$ i& rN3 IF[#3GE#4]GOTO4
#3=#3+#4
' M9 }. H9 o+ B  i#4=#3-#4
6 N+ @' f( e: l0 c#3=#3-#4
" i" f5 H4 o5 _! |6 Z% D* TN4 IF[#1LT#2]GOTO1
7 T  m+ L% M; w' @# FIF[#2LT#3]GOTO2
M0

羅蓋仙

3 V+ f9 c" r0 ?& ?
& D( _8 n* h* N& y* f法二：使用変変數^^
6 q/ e* M2 C5 {3 T) }#1=1.
" A% _/ ?  p7 b2 s, Z* }8 @#2=4.
#3=7.
#4=9.
2 Z- g3 o8 I+ y6 |9 x; E$ ^2 `N2 #31=1.
4 e# l3 {' C8 C/ M2 _#32=2.
* F1 S+ h9 X8 l4 KN1WHILE[#[#31]LT#[#32]]DO1
+ S$ i. S$ g1 j#[#31]=#[#31]+#[#32]
0 o8 z- j! n5 ~# f# ?* k#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
#31=3.
IF[#2LT#3]]GOTO1
3 f- Y  k3 z$ D+ i  [#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
#32=3.
/ `% _# x7 Y9 f! E. Z7 QIF[#2LT#3]GOTO1
' Z3 g" F9 @0 t" S8 `M0

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

longmeier

好帖子顶