數據交換法的使用

羅蓋仙

$ p& `: I: c4 n- Z8 G
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
& \8 x( Y5 }' a，我看完之後有灵感，
, \7 e: B7 K  M* K* i; V! w* o有人說數據交換法.能用于何處???我來舉個例子
' c, l3 g4 ]9 J( s7 E% y
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
7 D3 v" I3 ^, s) g  k: v9 T3 O/ c使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
" z$ j# J, I( f; v方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
" D; _) h: t4 f( x2 f#2=#1-#2
% |1 n: w2 f+ I: l9 O4 Y% i#1=#1-#2
#3=#3+#4
5 m& F) M" s; r8 b5 \" }  W#4=#3-#4
, H/ w9 q: J7 j8 [7 H; ^, T! o1 i#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
! \0 g$ t9 ~* c6 g3 SWHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
1 U5 c7 Y# ?% g: e7 I, Y#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
( }3 k* u6 f. [END1
; O8 @; D# m  R: @0 f4 _......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
: U, N3 }% ?8 d# ^8 g2 I
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
4 T7 ]6 w" B+ F#1=5.
#2=10.
#30=1.
3 r) F+ G* H7 X7 A*#31=#[#30+#500MOD2.]
M0

又想把它這樣寫
3 V4 W  i5 t& \" s5 L9 P( l: R8 ?*#31=#[#30+#500AND1.]
3 \$ v+ ?3 t( z8 x0 @M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
$ t( ?* C6 y1 d; y6 h所以，以上语句可以运行的

羅蓋仙

+ G7 O7 y. @; F, f' S
使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
) n8 m! ?, C6 v0 T6 o( E! L2 N% i#3=7.
+ m& Z  _3 `& a, L7 t0 {, V1 C#4=9.
7 t7 p+ W0 ]+ T% S- rN1WHILE[#1LT#2]DO1
. l( p' s$ c7 ]& c3 O" I#1=#1+#2
#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
#2=#2-#3
END2
4 ^, |+ w" Y- w& `3 F7 k7 v4 w& rWHILE[#3LT#4]DO3
& `+ i4 D  z6 d! M! D; |0 l#3=#3+#4
' S2 U' n* s: s! Z6 R& N2 d! S#4=#3-#4
" q. q2 u# d0 ^: w. x4 i#3=#3-#4
END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
) U( M& s7 A; r$ TM0

6 r& s+ N( }! O2 ^& ]& c
法1-2：使用一般耳熟能詳的IF-GOTO
6 Q- @9 T9 Y7 n9 k7 @0 l#1=A.
#2=B.
#3=C.
) e' q/ F" d1 m1 R#4=D.
N1 IF[#1GE#2]GOTO2
7 ]: @3 f. @  u% l  N#1=#1+#2
#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
) M0 h! w1 P# `#3=#2-#3
#2=#2-#3
9 n9 m* [# H8 `2 ^N3 IF[#3GE#4]GOTO4
" W# a: x' t4 e#3=#3+#4
/ b8 M$ d0 L$ Y' P/ D#4=#3-#4
7 D' t% L, f/ D' {( U/ U#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
, @3 R' w5 r% zM0

羅蓋仙

0 N4 F. \2 h4 V& u! X' ?
$ Y8 W- b8 h5 [) e3 @- C法二：使用変変數^^
#1=1.
( n9 G, r* N4 y#2=4.
) {9 D2 e5 j" f) Z9 Y. w#3=7.
#4=9.
N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
: w" a/ w+ [+ a) P$ _8 l#[#31]=#[#31]+#[#32]
+ x: L" {* Y1 L( }# I#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
# H, p2 K5 m: h#31=3.
: G6 r+ u3 ?0 Z9 M8 VIF[#2LT#3]]GOTO1
#32=4.
  B& \: g6 {9 }5 Z) JIF[#3LT#4]OTO1
* e3 Z  ]6 G/ w2 v/ e: CIF[#1LT#2]GOTO2
3 T3 N6 o$ Q) K: M#31=2.
#32=3.
  `3 s/ E- v3 {IF[#2LT#3]GOTO1
, Z' ~) O" Y. v! |+ dM0

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

longmeier

好帖子顶