數據交換法的使用

羅蓋仙

; S& L$ `. |7 J9 u
% ?; G% I/ ~8 g上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
, w; V0 X4 q' K; R有人說數據交換法.能用于何處???我來舉個例子

1 m; _7 q9 S1 o1 @6 F. D如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
, r" \: T9 Q2 l# d4 b# Q/ G使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
4 T& a' b& f3 j0 }- p#4=#3-#4
! h& W" o) B: K+ }) Z2 q# K#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
. b4 v/ o8 S1 w1 f  H  H#1=#1+#2
#2=#1-#2
#1=#1-#2
" k: }% O/ W* `0 T: W9 i#3=#3+#4
#4=#3-#4
#3=#3-#4
+ h( w7 ~$ C( e/ y- hEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
& G. v5 k6 V. o
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
% |* R6 {8 y( \  {: v8 c7 U4 ^M0
5 ]4 ]$ f! l. P
: y# l; _- d9 R8 M+ S又想把它這樣寫
*#31=#[#30+#500AND1.]
" x% e7 k+ O5 P7 _3 D  P7 c& b5 KM0

空气中的小鱼

回复 2# 羅蓋仙
; ?2 S5 K/ b- v1 v  J你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

$ e5 E4 S6 n3 E5 l2 s& a使用數據置換來按大小排列，大→小
& F* L. h! M! w法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
! f! l- b/ e' P: l1 R#2=4.
#3=7.
& L0 u+ [/ M1 D3 j# w, M#4=9.
N1WHILE[#1LT#2]DO1
' G  @3 Y) {9 b0 ^#1=#1+#2
#2=#1-#2
1 B, D* }6 u2 Q8 f2 Y: j: A#1=#1-#2
: E; H9 p1 O1 K: Y$ dEND1
N2WHILE[#2LT#3]DO2
! {4 @% s. g% U, d#2=#2+#3
#3=#2-#3
#2=#2-#3
END2
0 A2 O1 Q  s) @0 h9 u# A& n! c( EWHILE[#3LT#4]DO3
#3=#3+#4
3 y/ ~. q. Z/ d3 ~- i5 l* c6 d# F#4=#3-#4
#3=#3-#4
8 k1 V" z" g2 @! A; a* _2 xEND3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
9 Q( T( F* ?- J, |! Y# ?M0
$ v4 o6 w8 \/ {% K

+ Z. f5 {% P: b7 P9 }+ Z- x# u: ?法1-2：使用一般耳熟能詳的IF-GOTO
' P# m3 a% a' v0 G: Z% Z3 _0 w#1=A.
2 {! b. D1 b* i( y% n#2=B.
#3=C.
3 ~' B5 J- N0 H2 W8 l6 Y#4=D.
, g$ u: ^: X6 ]% W/ m/ DN1 IF[#1GE#2]GOTO2
#1=#1+#2
: K8 M! e6 D7 W7 n5 d9 b9 t  g#2=#1-#2
" p2 i! E0 \. Q8 J/ s6 r% A* s2 R% z#1=#1-#2
- ]$ J: R- @$ CN2 IF[#2GE#3]GOTO3
#2=#2+#3
, r3 I, v# J+ a8 E#3=#2-#3
9 q* w$ o( j/ \# E. g; W/ _0 {#2=#2-#3
N3 IF[#3GE#4]GOTO4
) i  i! Q* y# t' F: X( B8 ^: x8 Z" H#3=#3+#4
" v4 W( `2 W! c. [, K#4=#3-#4
. w1 m. `5 k  q: ^6 \) q" ^#3=#3-#4
$ i/ z+ f' X+ M# V6 iN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

9 E0 ?* V. M& `6 D4 e" R法二：使用変変數^^
7 C# H. C: c' U7 L#1=1.
! J! O* G6 b. i#2=4.
% |3 H* K3 [# d$ Y/ b#3=7.
7 D9 g% Q; S& k) r: e5 \- t#4=9.
N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
& C0 Q7 K! u+ v" f+ j9 [- _2 Q#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
/ v& r: ~* h5 G4 `8 U, h#[#31]=#[#31]-#[#32]
END1
6 Q4 M+ @. L' D#31=3.
IF[#2LT#3]]GOTO1
4 L7 @8 t( a* R" m#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
#32=3.
0 |0 v9 o4 s0 D* M/ HIF[#2LT#3]GOTO1
/ y6 x* h" s1 YM0
& ]2 ]* v7 Z: s
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶