數據交換法的使用

羅蓋仙

. |( \# L' ~+ `4 z/ b* `- X8 M% r上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
8 @3 \! n; C) j有人說數據交換法.能用于何處???我來舉個例子

* y; |$ O. Y5 y9 o  m如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
& Y, N6 h' u5 n& ?使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
) j3 P+ x: H% @7 l#2=#1-#2
% I7 m8 ^& o$ E#1=#1-#2
/ v& T% V- ~: p#3=#3+#4
#4=#3-#4
, h  c& B6 E, d( [( v#3=#3-#4
6 \& \6 {7 b6 r3 B2 `* IN5......此時#1的值已經置換過來了.#1的值一定比#2大

1 k2 F! z8 S" h我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
. c& l% o1 c) n5 {! H- h6 hWHILE[#1LT#2]DO1
# q$ _8 W: v* n; a1 h$ u. `#1=#1+#2
% C7 _' `& l% P#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
+ e4 I$ Q$ `8 Q# |; I  O1 ]
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
, e* [/ b. f# p" A) w#1=5.
: J! `& b9 i0 |& a3 C5 G5 l- S#2=10.
4 O: m6 D5 V" i# x. V* N#30=1.
*#31=#[#30+#500MOD2.]
M0

又想把它這樣寫
( k5 ?2 \8 R+ ?*#31=#[#30+#500AND1.]
$ [9 P& q2 I6 O, X9 qM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
* M  I- _0 ?& N- v只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

' i( C7 J9 b" f' Y
使用數據置換來按大小排列，大→小
: ]3 A+ e. T! M, d) l法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
, n6 F8 N1 s7 @' o5 i#2=4.
#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
8 e& `5 p4 J$ x8 w8 E+ c#1=#1+#2
  u- \, \+ N/ @2 w9 v( {#2=#1-#2
#1=#1-#2
5 r, ]9 @9 N6 J0 P# A" ~! Z* iEND1
, ~$ R8 \2 t3 _& CN2WHILE[#2LT#3]DO2
8 I9 i0 e1 n$ D#2=#2+#3
#3=#2-#3
. H) p' |$ j- x# N' r#2=#2-#3
END2
5 x  K9 G% S) v- C  H5 n0 iWHILE[#3LT#4]DO3
#3=#3+#4
* }1 u9 W; ^! Q, q8 ^" c7 D# @" V#4=#3-#4
! c! Q' n, X* v. P#3=#3-#4
, R" G2 \4 m! i4 \( F$ f, B: wEND3
IF[#1LT#2]GOTO1
; d/ t' {% A& T; ~IF[#2LT#3]GOTO2
9 L6 h& ]  v& e1 t' cM0
% T% J) k3 P8 G9 q3 b# j
- F( c" V+ \/ }: L
9 M: D4 p4 B0 f) `7 v法1-2：使用一般耳熟能詳的IF-GOTO
1 p) _% G( J$ ^, C) F# d#1=A.
+ Z, a  Z; X. l3 ]. [+ w#2=B.
& ^/ l9 ~: e/ N/ q4 y+ l#3=C.
. M/ I9 V  _2 y% E" B/ D#4=D.
0 Q0 r0 L9 G( h: i2 Y9 \N1 IF[#1GE#2]GOTO2
# q1 G1 p5 i0 T$ Y#1=#1+#2
#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
#2=#2-#3
  L% m! @& W" r# `  TN3 IF[#3GE#4]GOTO4
#3=#3+#4
1 U" B0 ]% U: b#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
% o3 I  D6 A  C, _' XM0

羅蓋仙

8 B8 |; m+ N9 Z4 [! v) T
1 j1 G0 e7 H1 ?1 L; s# ]' N1 f+ ~. l法二：使用変変數^^
#1=1.
) Q  e1 a2 @4 T9 ?  D/ N3 {#2=4.
#3=7.
5 k# J* W  d( w#4=9.
! J& j/ b: t3 k& }N2 #31=1.
1 ?/ v( u$ @3 k; n2 c#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
: u1 Q1 y/ z' I" B( ]; l6 O+ L#[#31]=#[#31]+#[#32]
$ v7 Y  }$ a& V5 ]6 B2 ^. u9 o#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
3 N; a% K  @9 x9 q* |! SEND1
) X1 T% R; @9 A+ A4 ^6 O& n0 z#31=3.
3 h- V+ Y$ B! {+ n3 L' E# J2 IIF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
#32=3.
IF[#2LT#3]GOTO1
  W3 v: Y) M, H2 i/ `M0
# o& g& A0 w) t$ i
" V: J8 [" U- F* y) p( q$ o4 }1 Q看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶