數據交換法的使用

羅蓋仙

6 _+ B! V; u% e& I, w& q
  D# I) n1 g# a. T7 F$ ^  f上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
* T7 X0 u; C4 \4 d，我看完之後有灵感，
) H' S+ S1 u( ~5 p3 {7 t有人說數據交換法.能用于何處???我來舉個例子

3 d: _- ^& n: _  S; {" a* c7 W( J如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
" ^: c0 a1 ^, X* {( v8 D% Y使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
) v0 y+ ?" i$ \8 w方法A：
IF[#1GE#2]GOTO5
' Y. C" {3 P% A  x) {- ?* b1 m#1=#1+#2
7 _; }  v* [+ U% _#2=#1-#2
#1=#1-#2
#3=#3+#4
" @# M: T* a7 {2 P* D0 o#4=#3-#4
1 n8 P8 D4 l$ e( C#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
, ^% w! F9 ?$ W* A7 T* [
3 e( `) K- K! b1 u" M8 A我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
+ {7 F+ o8 W% D9 ]$ X方法B：
0 b$ D2 \8 E5 |( t/ gWHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
- N* L% B' V# J, P. t2 s% S#4=#3-#4
#3=#3-#4
/ t3 A- f! @7 V! wEND1
! h0 x  C" |7 y......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
# t) b: w( e, |#1=5.
9 H% A+ W+ p; n% P3 c6 i#2=10.
1 \0 p0 Z9 T% M" X% A9 r#30=1.
1 \" b* s7 h8 L7 V/ w: R% C: M$ \*#31=#[#30+#500MOD2.]
M0
0 j; A& S) n- X5 T0 W5 R
又想把它這樣寫
$ o8 P5 k2 x+ N*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
( Y" W/ H9 K) ?$ c% V你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

5 i- C0 x- B2 q* M: D1 E, k使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
( z2 d: S* `1 C- {# c1 Q#2=4.
" S1 d9 E4 S2 D2 M#3=7.
#4=9.
" _- B2 }3 T- x; k: e6 kN1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
9 n2 C' ?1 a: z1 Q+ q2 X#2=#2-#3
2 k, F1 m( r% r7 h3 nEND2
WHILE[#3LT#4]DO3
: \/ J1 e+ M! c6 J5 c; x6 |! @0 `#3=#3+#4
5 v/ a$ I( v% ]0 i; ]- X' m* ]- a#4=#3-#4
2 n) l0 ?& X, q) F4 _#3=#3-#4
# z  t( I" o. w7 l4 H- CEND3
6 B( c- j  U- CIF[#1LT#2]GOTO1
' [' ^" C8 D" i. c4 x: V6 V( x$ mIF[#2LT#3]GOTO2
M0

9 n# P9 ?* Q6 l/ C
. \" z  @: p6 T- R5 p8 Q8 [法1-2：使用一般耳熟能詳的IF-GOTO
0 x$ K7 `0 Y% _0 K0 @5 X' {8 v$ V#1=A.
#2=B.
#3=C.
' j5 A+ p$ j' N, S#4=D.
2 k( g/ D$ w" u; M+ zN1 IF[#1GE#2]GOTO2
) F: ]6 B; x, P#1=#1+#2
#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
4 R/ |; c7 ^5 u5 r9 Q#2=#2+#3
! G7 S( F/ L/ j; _  X#3=#2-#3
9 a, `4 v2 F' L9 C& B#2=#2-#3
N3 IF[#3GE#4]GOTO4
( a3 _2 s8 {1 e#3=#3+#4
/ K6 [$ i' @+ y2 {: K#4=#3-#4
#3=#3-#4
, m6 H( q4 Q8 \! Q! z: b5 R, U% R0 n9 zN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
; [+ A$ ]9 M. xM0

羅蓋仙

法二：使用変変數^^
#1=1.
#2=4.
#3=7.
# d, l( s- s) D& N#4=9.
0 N  U, e" q- y; o3 b7 EN2 #31=1.
. t) ~) S) M! F8 _( W#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
; b* S) X6 o; c8 P  g5 C#[#32]=#[#31]-#[#32]
. K% i0 r; h1 S0 o#[#31]=#[#31]-#[#32]
& `; w& ]- M' q* A0 t6 b& ]+ u4 aEND1
4 F3 v$ z9 H5 L2 O#31=3.
, N9 D. Q( x2 C2 N* E3 A2 L& y* JIF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
# U* V7 D/ G# B5 R) y5 mIF[#1LT#2]GOTO2
#31=2.
#32=3.
4 s. O/ E/ {3 }* LIF[#2LT#3]GOTO1
M0
: S, ^! F8 z: L  ~4 b$ z$ V' P
# y; V1 C7 @" N7 q: H看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶