數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
; g& u! h  j3 n" X有人說數據交換法.能用于何處???我來舉個例子
/ b/ _. T+ l& ~
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
. o/ F6 [& s8 x/ G: q6 V- o8 F方法A：
IF[#1GE#2]GOTO5
; n" n8 d2 B6 l# {* I1 b#1=#1+#2
6 k3 m$ O7 r% V" [4 P0 }' D#2=#1-#2
& I# S0 d$ Y+ H% [7 O#1=#1-#2
* Y0 d, ^/ F/ I" T3 G4 w. N) m#3=#3+#4
#4=#3-#4
5 w- t3 Z( N5 T* d9 k#3=#3-#4
6 ?- ?! P% M, @) H8 s2 ]2 F& `N5......此時#1的值已經置換過來了.#1的值一定比#2大
5 I! g2 ]* Z% ?4 b
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
0 R9 w' }, ^1 `8 ^4 z#1=#1+#2
#2=#1-#2
+ }5 D/ J2 W- u" Y8 r$ \" V#1=#1-#2
* M& i8 G# F/ i4 N# T! v#3=#3+#4
# j# f( P8 S. c# B#4=#3-#4
1 w5 e- Q; v8 v#3=#3-#4
END1
/ V5 Y+ ?$ y9 s8 E8 X4 ^......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
" J, m# X/ _1 u, \6 t- K) k#2=10.
" V1 v, W( W- Q9 D! Z#30=1.
*#31=#[#30+#500MOD2.]
+ O7 _5 F4 v2 L5 A* K. \M0

又想把它這樣寫
+ t( @' W2 i* r; x1 h*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
- |  C- n  k2 C' z! Y你的表达式中没有只是逻辑运算，
- D. z& |0 F2 D6 r- [只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

6 J. o6 b; }5 Y! w8 b使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
$ S8 [& V* d7 c# q#1=1.
2 o* x( ^' |. Q7 U' x1 n#2=4.
1 w6 K* A! G6 L4 U& A) y#3=7.
% E0 @7 S5 R' ~3 E+ E( k6 i#4=9.
8 {% m; V, l, h$ U/ ^. Y9 a( R# mN1WHILE[#1LT#2]DO1
#1=#1+#2
4 V" k6 c0 ~7 _6 H& ^! B+ S#2=#1-#2
; |2 l2 X; Z3 R' `) j6 \( y( B#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
5 f6 p0 y+ y6 b" h( j/ z. k8 N: V$ K#2=#2+#3
#3=#2-#3
#2=#2-#3
6 R+ L# F- d5 s* JEND2
WHILE[#3LT#4]DO3
#3=#3+#4
; Q8 f/ Y! s0 k. W* c+ m#4=#3-#4
#3=#3-#4
END3
6 g" r. J  T" o: s( Y4 Y7 aIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
: A4 }. j; M6 y8 C

/ n& f. f* |& K" J9 B法1-2：使用一般耳熟能詳的IF-GOTO
) Z. ?6 U9 J( _) B: s# }8 K#1=A.
, }& ]0 o7 n5 u* U#2=B.
#3=C.
% n8 ^2 X0 Z. @  I; c3 f/ C#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
, U3 ^% V4 e% x& g, A4 S#2=#1-#2
' V; m8 t7 P0 i/ @5 d. b- a- S6 ^#1=#1-#2
N2 IF[#2GE#3]GOTO3
2 j. H! B" w9 V+ k* p1 o* n#2=#2+#3
: V) d( C- a0 y#3=#2-#3
1 e. Y/ q9 A8 x# F$ U#2=#2-#3
N3 IF[#3GE#4]GOTO4
3 k. h% [! B! u3 E4 F  l4 s#3=#3+#4
#4=#3-#4
; M! z; m: ?$ @2 a#3=#3-#4
, N' r- \9 r+ J1 K1 w% d" nN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

9 N  W1 k0 N3 k' P3 A法二：使用変変數^^
#1=1.
#2=4.
" W( v/ I! [$ {8 c#3=7.
#4=9.
N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
# v" ^- K* [* s9 MEND1
#31=3.
IF[#2LT#3]]GOTO1
) C4 J; L& I& N) y( P5 R6 r  O. M#32=4.
( s  M. W6 b, RIF[#3LT#4]OTO1
2 U5 R4 I7 s/ b- ^1 oIF[#1LT#2]GOTO2
#31=2.
* E# O& `* ^5 G; S9 G#32=3.
IF[#2LT#3]GOTO1
; V$ S/ z2 ?9 ^4 R/ i* f9 xM0

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

longmeier

好帖子顶