數據交換法的使用

羅蓋仙

: r5 c) X9 ]5 o, d# M
" [' F9 Q5 A( h. i0 s上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
* ~+ ^. y" j, {- m1 C5 _5 }有人說數據交換法.能用于何處???我來舉個例子

0 l6 I0 U/ l. P: s! p如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
+ V( h1 J, q/ A6 w; X使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
, x( c/ Y! ^' R: ^! N/ e方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
9 [3 ~, f% }3 n5 u7 [# _) G#1=#1-#2
#3=#3+#4
5 m: ^7 S9 v1 {* Y+ v) O#4=#3-#4
6 @# f( H. G$ i' x4 G7 y8 h, R+ Z# Q$ K#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

, r3 T0 y, F4 i8 G, ^9 v我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
3 n; U3 H4 P# p1 V9 c" T! U6 b5 EWHILE[#1LT#2]DO1
, [1 q) P( z. ]8 }& x$ Q#1=#1+#2
4 ~3 Z' [: i) r/ A' I  x% `#2=#1-#2
; M0 E4 }& k; n#1=#1-#2
#3=#3+#4
#4=#3-#4
. `- {5 I; a4 S0 Q- `) F5 |#3=#3-#4
8 j1 I6 K  D' a# D4 R2 T! A4 wEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
; }- d" P- N" S- \#1=5.
% r) j$ N( ~7 R, h1 M% z, R#2=10.
0 }* i8 Q1 z9 u#30=1.
1 z: E- Q! q/ B9 i% C6 O( X) @*#31=#[#30+#500MOD2.]
M0
9 v' Q, y" \3 D* T) K# K
又想把它這樣寫
, q! m( g$ C8 S) J3 x  u+ b1 T*#31=#[#30+#500AND1.]
& S* w& q/ M+ o% W" a& n5 A  |1 BM0

空气中的小鱼

回复 2# 羅蓋仙
% ~! a/ ?! B5 z( U5 G你的表达式中没有只是逻辑运算，
+ A3 J) j; N& \' ?  h7 P只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

; [5 s$ b9 \5 O& ~0 X/ G
4 V+ J. d# m' M' u; N使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
+ p! U. Q4 G& _$ B#2=4.
; [( f2 b4 i2 P' x#3=7.
& T2 w. N4 o+ D4 V" F& J#4=9.
- j- U* z! Y, w8 Q% MN1WHILE[#1LT#2]DO1
0 E$ P) v! l1 t2 c7 H& D# Y#1=#1+#2
#2=#1-#2
7 |9 t4 u& w1 H#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
#2=#2-#3
: R+ S* L, ~( _END2
! }( A# X4 t3 n  V- KWHILE[#3LT#4]DO3
#3=#3+#4
% c4 R: B+ _. d8 L0 d! y/ Q#4=#3-#4
7 l! `, t# }, Z% i#3=#3-#4
4 Q% O2 _, \' v( K  i& JEND3
& N6 y- A! k" x- `& }IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0


法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
#3=C.
4 s! ]4 N9 d  L- E#4=D.
7 I- h( k' k( H# c- x2 Q5 xN1 IF[#1GE#2]GOTO2
/ N0 U  k; R& u" A" W#1=#1+#2
#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
. R0 W' V+ D5 f- z+ m- Q#2=#2-#3
" L6 u7 A& |5 g! fN3 IF[#3GE#4]GOTO4
#3=#3+#4
2 ?0 h+ Y3 @, q) q; @/ X#4=#3-#4
#3=#3-#4
2 @$ S' x$ X# n4 N& oN4 IF[#1LT#2]GOTO1
. H+ E8 h4 E3 A2 o% SIF[#2LT#3]GOTO2
$ B' a; k$ `+ w+ @M0

羅蓋仙

法二：使用変変數^^
4 p- I7 Z4 y8 t' s#1=1.
#2=4.
$ T( s8 @- X& E0 ]$ c0 _4 \7 @#3=7.
#4=9.
, m+ m3 X# m5 |3 JN2 #31=1.
#32=2.
0 H1 a8 o% V$ u8 D2 ~1 dN1WHILE[#[#31]LT#[#32]]DO1
" d, J( w% s, Q% j#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
4 [# {" O& b2 HEND1
#31=3.
IF[#2LT#3]]GOTO1
6 b2 ]# K1 y# ]& e& {7 {! ]! F#32=4.
" `9 l' }, }9 u; o% X) h- XIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
# @- C, O, O; Q$ X+ e#32=3.
IF[#2LT#3]GOTO1
* s, E: \! A& \8 ]M0

( d( U6 d4 t' Z' z$ w; z看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶