數據交換法的使用

羅蓋仙

. H! k& h* A$ `- c
% O0 E, L  ^% {, q+ p+ _( t上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
) j) U# V4 N8 _- a  `有人說數據交換法.能用于何處???我來舉個例子

' G0 Q8 m6 z9 ~! v如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
( s" M  {+ R: }) f使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
, z2 i+ S/ j% y' _+ D2 c4 W#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
0 q9 M5 V4 N2 g1 Q4 _2 N" H#3=#3-#4
2 X1 s) ~5 i4 d6 b& d. IN5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
7 s- V* s& E. R0 q: x/ ]; ]) P方法B：
! N' E1 f$ `2 D" [1 f) MWHILE[#1LT#2]DO1
#1=#1+#2
' K, ?, ^$ K8 X( {6 V+ b#2=#1-#2
1 V7 i1 }- r# S; M8 t  R#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
( I- m0 g( l& N3 |9 s% D9 w- }) sEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
#30=1.
2 R* b4 f2 @+ ]*#31=#[#30+#500MOD2.]
, i6 A, T- Q+ ]# P# J4 oM0
8 r, T2 W& z; Z( G
又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
7 V: a0 m( h2 N你的表达式中没有只是逻辑运算，
3 g8 r. }4 R% ^8 J; q: g只有逻辑判断有些系统版本不支持
6 x! q9 c3 c' Q$ p2 y所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
; q- B7 P# d! X4 E! U! |0 A#1=1.
#2=4.
) w* z$ N: v- N#3=7.
2 D' E8 B3 \/ s4 b( O2 p#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
: s7 ?  x& k  z0 @! J' u6 X' X#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
#2=#2-#3
END2
# i" _/ s& w3 \% ~! V3 q4 PWHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
3 X- d& P; r# w#3=#3-#4
END3
IF[#1LT#2]GOTO1
- B7 g1 W( r6 z; t) b& l3 uIF[#2LT#3]GOTO2
8 b5 ^( J" I3 C4 E2 O0 iM0
, f- m( J. H" a7 ]6 |9 E
" _0 Q! }5 h, M, N5 f
法1-2：使用一般耳熟能詳的IF-GOTO
% d" ]$ K+ U0 R, I#1=A.
+ u0 R. n+ j  c% d1 ^& E#2=B.
9 ~$ i% i1 |( S( ]  n/ n, T#3=C.
#4=D.
# M) F; K( q$ ^) \N1 IF[#1GE#2]GOTO2
#1=#1+#2
# S% e) c7 k3 S; w& I! Q. w5 Y#2=#1-#2
#1=#1-#2
7 z) a3 ~7 P0 Y' pN2 IF[#2GE#3]GOTO3
#2=#2+#3
3 I6 K. {7 z8 p3 T+ i#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
" P! ?, W& q% S6 e- c#3=#3-#4
N4 IF[#1LT#2]GOTO1
& ~% a! N. |5 y( E$ T2 D' }IF[#2LT#3]GOTO2
M0

羅蓋仙

8 @8 q; ]0 K; G1 V. P
: _8 Q: i- Y# s; r! B法二：使用変変數^^
3 E8 R' O0 M( Q( z: ]5 ~$ x#1=1.
1 F% s  n1 f" o" n: H, u#2=4.
+ v) @  M6 w- a! M1 d3 B3 _# ?#3=7.
5 B( @# n1 g( z; [7 X+ M#4=9.
N2 #31=1.
0 @% d: a4 t  J& H#32=2.
- t4 X+ ]1 k4 B! _( NN1WHILE[#[#31]LT#[#32]]DO1
0 H( q9 c. D2 {& A#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
" C: n/ i6 n+ N$ ?; q% x#31=3.
IF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
/ \0 r' T( r2 h#31=2.
#32=3.
/ Z( M9 t1 j( r$ N0 s. tIF[#2LT#3]GOTO1
M0

  X  r7 A; v+ O# r4 ^! Y% I看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶