數據交換法的使用

羅蓋仙

1 ^3 c5 Z9 M- P/ V8 `0 ~9 d8 K
( j' r" V5 d& t/ m5 T" z9 N* y上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
5 Z4 K# y- V) j- P' g有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
0 x7 K2 ?' J. _3 q% T2 P使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
- ?2 ~2 p, S2 e0 U" W6 a% P8 }方法A：
IF[#1GE#2]GOTO5
0 h/ l; ~9 R9 {  c9 l' z#1=#1+#2
( w4 ~4 \! ~* k! d* W( `#2=#1-#2
, N2 O- P. G% y, [. |/ ^+ R( S5 W#1=#1-#2
#3=#3+#4
#4=#3-#4
: M5 k) c% Y% P# D#3=#3-#4
+ D1 P9 ~; l2 q; y, P  f6 TN5......此時#1的值已經置換過來了.#1的值一定比#2大
1 M, o7 Q3 l$ {3 B  G0 P! z
+ ?0 }7 a3 |3 T1 x* y! C: f2 |  G我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
) O) B8 g1 u% S9 |! E; v* \方法B：
, q2 V0 ^! Z: c6 c3 u' P- NWHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
+ f8 r  v; [+ I* E. |9 A#1=#1-#2
. l, ]1 `* P4 f5 Q5 M8 o: o#3=#3+#4
#4=#3-#4
) @" `$ _$ _$ G& G, j0 J6 L: v( x#3=#3-#4
; Y# l, ^! @+ L% _) ~END1
; N0 E# C+ `3 L& R: u  t......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
9 _2 N0 f- c* [5 U0 N8 D
( d3 d* N: J& c' j( z方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
$ y; }' S) \' S# c#30=1.
*#31=#[#30+#500MOD2.]
7 ?" X% ]- }  c+ rM0
& G- H' z& g8 D5 q) O
4 {$ P7 ?) p9 U又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
* ]* R: A1 Y/ |9 g  b9 D6 O: R你的表达式中没有只是逻辑运算，
. T' \4 r# k: b只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
3 ?& P' M9 \3 ]+ T#2=4.
6 X8 d& E# A1 C: c  k' y#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
! U0 O0 O: j+ Y: F9 D& _#1=#1+#2
- o( w. h0 R5 g#2=#1-#2
3 D* J) [1 E0 Y+ j" r9 U#1=#1-#2
3 d  G+ i! d0 b2 Q% e1 s* ]6 {END1
8 z/ _' l$ D. i: h. LN2WHILE[#2LT#3]DO2
#2=#2+#3
6 z! E6 M9 j- c#3=#2-#3
( |% W8 z4 M9 K. B# n( P; E#2=#2-#3
8 ^1 H) W) P5 ~; \9 s  H0 c1 \! fEND2
WHILE[#3LT#4]DO3
#3=#3+#4
* v( ]$ o9 O) n" T/ D, P: y& b9 {#4=#3-#4
#3=#3-#4
7 J5 A# G1 H$ {5 K$ ~% uEND3
IF[#1LT#2]GOTO1
+ k% K0 l+ X" [- b' g  |5 g7 P% NIF[#2LT#3]GOTO2
M0
5 L6 [4 L5 i4 ^
: E* @$ F4 o: ?/ W9 {  s
+ g4 h( @8 \7 ^( [* j# l法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
& A2 d) a0 p, p8 T7 }% g) ]1 G#2=B.
* }: |* ^7 C6 D#3=C.
( t5 E7 [- e! ~3 F  q5 u6 \. s#4=D.
' e! u( M. M% o2 G0 wN1 IF[#1GE#2]GOTO2
#1=#1+#2
; @1 C; \5 L* r- f#2=#1-#2
$ m- I0 Q/ p5 n( V% f0 m& r/ c#1=#1-#2
5 K; r: h9 {: m1 j1 ~* ZN2 IF[#2GE#3]GOTO3
4 c  I' f" `0 ?8 T: C! N7 j#2=#2+#3
% K9 L: Z4 ~- T7 p4 I7 P1 O  M#3=#2-#3
#2=#2-#3
# `: [# v/ b! Z$ p5 {! _4 kN3 IF[#3GE#4]GOTO4
& p& N5 B: n, z. l0 J- ]#3=#3+#4
) Q# O( \+ o: z#4=#3-#4
" L+ S# S& a) _& v+ b#3=#3-#4
1 d" ?2 F# c4 A5 [N4 IF[#1LT#2]GOTO1
! n" P3 ]0 E3 u$ _2 z9 }- \9 nIF[#2LT#3]GOTO2
. K* ~" g/ k1 z9 G, nM0

羅蓋仙

" _  h, v7 a; B) h5 W/ c9 Y
% ?; X; s! o  U3 A  N法二：使用変変數^^
#1=1.
#2=4.
#3=7.
#4=9.
N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
8 H# v( W) a) X- J# P* B$ t# q* |#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
& h: z+ U8 f0 x" f- ~  Z$ S; L( p#31=3.
7 t) ]  u* L. c7 c2 P* WIF[#2LT#3]]GOTO1
#32=4.
; {7 C$ y& ?: w9 AIF[#3LT#4]OTO1
: X5 f0 }. y- M' |2 d( KIF[#1LT#2]GOTO2
#31=2.
#32=3.
# E6 L+ @0 O6 X) qIF[#2LT#3]GOTO1
6 P4 ?+ t( Y2 ~0 V8 S0 a4 ZM0
5 R# u1 G+ ]1 Z- r
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶