數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
% h8 ^! c6 `# ?* f. G9 K，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
  v! `$ Q" o9 e, {  d. X
8 g. t* w+ C9 Y2 A如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
8 ?0 p$ W% o0 @7 {使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
: z% W8 |# H" a8 w4 OIF[#1GE#2]GOTO5
# y& A' \8 m4 r8 e  J% x  Q#1=#1+#2
#2=#1-#2
" Y  v  A9 r( @7 b3 g#1=#1-#2
#3=#3+#4
#4=#3-#4
2 y* T: f/ C' A) ~, a#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
, W8 F7 C# J8 Q# [7 d, C9 M! V: z方法B：
, ^' u! l8 C) g' hWHILE[#1LT#2]DO1
7 o+ B/ Z$ B8 m3 a; C0 T#1=#1+#2
- y2 G1 V& ~( r9 o' S#2=#1-#2
#1=#1-#2
7 l; q  u, y6 X, g9 c#3=#3+#4
- F: D% Y- J2 A% @9 z1 ?#4=#3-#4
#3=#3-#4
( W0 Z2 X3 q* `& [END1
) H2 n9 P1 ?- h( A5 ^......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
# @/ r' r/ m5 p0 O$ U$ f$ R
0 g5 z" }4 }/ N% R3 f方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
6 `: B. Z" j6 _3 P  a3 W#1=5.
  U) P" v! H$ }* S/ T: f2 P#2=10.
. S# ?! w. S! l2 e) m- P) j. m4 W#30=1.
*#31=#[#30+#500MOD2.]
M0
! o) |2 E: ^  b3 m
又想把它這樣寫
*#31=#[#30+#500AND1.]
4 o! a0 C. o+ c; G8 a1 BM0

空气中的小鱼

回复 2# 羅蓋仙
& r$ n  d: f3 b5 Q' [- @  x( _你的表达式中没有只是逻辑运算，
/ g: \$ Z5 z0 h4 K只有逻辑判断有些系统版本不支持
# L, h$ [0 ?. D4 k6 w所以，以上语句可以运行的

羅蓋仙

  d, k: ]9 I+ i6 T1 U9 i5 K* ^* R6 C  n
* O" s( x. Q# @$ l使用數據置換來按大小排列，大→小
$ v. }% f5 \' q) N  j  L5 F+ B法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
9 U, @& }  a! T- A) {( w#2=4.
5 M$ S3 g. J# _#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
1 L: O" D' O8 R0 h& U$ R#1=#1+#2
5 r: }) {/ i! Q6 R3 @; W) L#2=#1-#2
) |' E# o- @8 O! i#1=#1-#2
) y, w  l5 P& x$ p* A8 h( FEND1
N2WHILE[#2LT#3]DO2
0 Y/ p, R  c$ z2 c" l#2=#2+#3
) W& M1 n) m% N0 S( N#3=#2-#3
+ E: {  `/ C, J5 v#2=#2-#3
7 ?6 l, k# F$ D8 [" h" T# _  q' M; bEND2
" v1 \1 ~  {, T; [WHILE[#3LT#4]DO3
) z7 g1 i  Y1 v  G" H5 X( R6 Z#3=#3+#4
#4=#3-#4
#3=#3-#4
END3
9 P5 U6 X" V2 u+ ?; g* H# j7 d1 \IF[#1LT#2]GOTO1
# T# j# L* g! }, ZIF[#2LT#3]GOTO2
! l0 }* d# F" ^: `0 N0 L6 A- ~* zM0

7 F1 [; R3 ^9 W2 j6 Y
法1-2：使用一般耳熟能詳的IF-GOTO
; j& X, V" Z" j9 k4 X#1=A.
" e! [- V3 B- v! a#2=B.
  P( e: S; P+ M#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
$ [) B5 y  K& {0 {4 L, K#1=#1+#2
#2=#1-#2
  v( }9 w" c9 u; j9 c2 H% J#1=#1-#2
6 c5 M( r. z$ i1 y. c% K. [N2 IF[#2GE#3]GOTO3
5 Y8 V0 m  F  h6 `#2=#2+#3
#3=#2-#3
9 K0 e9 k7 R0 `# Y#2=#2-#3
; ?9 Z9 @8 Z6 x" E; q4 p+ ~N3 IF[#3GE#4]GOTO4
#3=#3+#4
3 l$ F* a5 i. b$ n- N7 u" ?/ o3 i#4=#3-#4
3 j7 F: ]7 d+ s( A$ M) l#3=#3-#4
* g6 t: b: F  A  UN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
; d% W* a7 L& m. w% TM0

羅蓋仙

+ o; A- ]7 T0 ^$ c
法二：使用変変數^^
4 f5 W0 F+ T1 p( [2 J$ ]/ s#1=1.
; V/ N- }5 ?5 F1 z5 y3 \#2=4.
#3=7.
#4=9.
" e' G2 u& g& H) G' o5 b8 kN2 #31=1.
#32=2.
  Z# V' E) O% `6 ~; W5 F" l( FN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
2 A: ~8 n# I# e) Q#[#31]=#[#31]-#[#32]
% o! F, I% d* B& U4 H* HEND1
9 C1 B7 `9 H- |! k" t% W7 x#31=3.
3 V* j  B$ j% c; m( ?0 \IF[#2LT#3]]GOTO1
3 c0 g. e2 ^# H( G#32=4.
5 V* u% g; e2 E9 ^' w) iIF[#3LT#4]OTO1
2 Q$ d" c8 L; p& iIF[#1LT#2]GOTO2
& W+ Q1 K( r& n' |1 e1 ^0 ]#31=2.
. Z, [, c/ R- x' z#32=3.
IF[#2LT#3]GOTO1
M0
( Z9 T9 [* r; u& R
' ]8 ?: A" s+ u7 |6 f# x看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶