數據交換法的使用

羅蓋仙

' D/ M3 r7 A' g' j上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
' [; _( F( n& Y* r& @有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
1 |3 R) s- P: `使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
: C; d' j7 d+ V& kIF[#1GE#2]GOTO5
#1=#1+#2
/ _' J9 ~( {' s& y2 D0 j5 d#2=#1-#2
3 w. s3 t/ d3 y7 L, u#1=#1-#2
) h+ a; X% G) L# t. J# s  Y7 q#3=#3+#4
/ l1 X. S2 t# h/ A#4=#3-#4
#3=#3-#4
* r1 [( ?$ J( }. A4 sN5......此時#1的值已經置換過來了.#1的值一定比#2大
8 M6 O8 @3 `. h
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
" d; ~3 H5 V- n$ r0 L. L1 ~5 L* ]方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
, H: b3 U7 O+ S: }+ ^6 n#2=#1-#2
: L8 d/ X8 e5 O3 K#1=#1-#2
& h( m2 R( y% W/ t% `3 @  `5 {#3=#3+#4
#4=#3-#4
#3=#3-#4
END1
9 Y0 n0 U2 O* {2 N8 i, F0 B......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
8 R' S% w) Q6 \$ u5 @! o#1=5.
* w( P2 d8 M) C! |2 V$ G3 w#2=10.
0 ^! a! q% S" \: W#30=1.
*#31=#[#30+#500MOD2.]
* w" ^* W6 S  Y( D7 _  UM0

3 V& T/ h$ J- _: S, g! I- \又想把它這樣寫
- a& O; y+ h+ o( `) `; U*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
% R" ]+ s6 Q/ {- J1 o( g6 S  v' t所以，以上语句可以运行的

羅蓋仙

# F4 f' C9 I; ]3 E% `" b( |; ~: A4 n
8 N6 p4 ^. `; J' u使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
# M: w5 j# z+ \/ L3 {#1=1.
#2=4.
( }- A+ Z/ c1 G% Q# v#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
0 b! Y: A) y# h# m* h, M#1=#1+#2
. g3 e# i5 m$ \3 }9 ?1 G+ j#2=#1-#2
: k( S4 b! f0 Y, X#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
#2=#2+#3
7 K" h0 s. `( L9 K. M' O% d#3=#2-#3
6 W5 o/ A$ E' Q9 k% ]#2=#2-#3
/ L; [3 }+ Z+ P( ZEND2
WHILE[#3LT#4]DO3
- E9 J# S7 q+ e) h, q#3=#3+#4
#4=#3-#4
  L, h9 b- w) j( F#3=#3-#4
! i9 m% n! ]$ R, [) xEND3
; a6 G+ }3 Z2 K1 i8 ]& zIF[#1LT#2]GOTO1
  B, n" l0 c+ I/ BIF[#2LT#3]GOTO2
M0
- x8 U. x) L! ]: h2 ?
& C5 I5 p9 H( u* a, [0 ?
法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
#3=C.
9 P$ j7 A. q. {9 h9 G3 G#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
#1=#1-#2
$ x9 c. w( x6 t. a. U# F0 J4 }N2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
#2=#2-#3
7 E3 E2 I5 q$ O+ O$ D2 @3 `2 MN3 IF[#3GE#4]GOTO4
  Z' K! c! {( A6 \#3=#3+#4
! ~4 x  R7 g% y7 L. D0 J5 a#4=#3-#4
8 v) ]5 Y& V8 `. y! P& P. O#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

  e. L1 {8 c' A5 i2 D8 E  H法二：使用変変數^^
#1=1.
#2=4.
#3=7.
1 y3 w9 u% b; m' T#4=9.
N2 #31=1.
$ a* _0 u1 P+ ?$ V* s$ ?' S( z#32=2.
+ H  Y2 h' a$ i+ I  q$ ~; CN1WHILE[#[#31]LT#[#32]]DO1
, m4 S! ~7 O% D( a#[#31]=#[#31]+#[#32]
1 a7 ~" i. U) q. l4 N7 J" n#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
/ `" [9 C) i8 U9 h#31=3.
IF[#2LT#3]]GOTO1
#32=4.
- N0 S' G3 @$ n- y3 qIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
! L! U3 L4 s- v2 h1 r#32=3.
. g9 ?: L+ F. p& B6 N$ T( AIF[#2LT#3]GOTO1
M0

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

longmeier

好帖子顶