數據交換法的使用

羅蓋仙

& R/ q, B8 ~; z7 O
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
9 H- w7 k/ g1 M; n" }) S有人說數據交換法.能用于何處???我來舉個例子
9 H) f: D& e  c8 x# A, ^
5 I( i% E) b+ {8 U如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
- y' r+ ^# d$ y8 \方法A：
6 |1 H1 E1 `( u/ X& u' z/ SIF[#1GE#2]GOTO5
6 `0 p0 c. ~, G$ P: ~: D/ J#1=#1+#2
#2=#1-#2
#1=#1-#2
6 ?$ M' d1 @* j#3=#3+#4
#4=#3-#4
! c! |8 r5 e  f4 N6 s& f#3=#3-#4
( A& y. ?4 V: Q/ fN5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
: F! n% P# L3 }$ @; zWHILE[#1LT#2]DO1
/ c( A8 x9 _; U  d& M9 Z  r# Z#1=#1+#2
#2=#1-#2
! ], _% |+ J7 |% f& {#1=#1-#2
#3=#3+#4
#4=#3-#4
% q8 Q4 |  T% W4 S0 [* t7 V0 g#3=#3-#4
  l' q* o8 P: J3 O- `END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
8 K/ N7 N  T% j- a
" G- w5 w2 Y0 a$ ]方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
) ]5 A; O& k  A; t* D+ y4 k#1=5.
& P7 g7 `, X" @, N( |#2=10.
#30=1.
) Q; l8 V) K8 K$ O4 C/ a. {/ b*#31=#[#30+#500MOD2.]
M0
& C- v) X+ ?$ F0 r( R3 g  \
又想把它這樣寫
! b# v3 l' i& K*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
2 i8 v, g* L, a( a只有逻辑判断有些系统版本不支持
# S" f" ~9 Z# L' O9 e! [所以，以上语句可以运行的

羅蓋仙

! |* j2 w' O6 o! L使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
3 G8 o) u+ y0 Z( r$ t; k; z, S6 m#1=1.
' X8 \. J+ x6 l#2=4.
5 o' C5 b2 l! p  F6 s3 A' ]#3=7.
; y  d) r% d" R' k" ?$ I2 {#4=9.
3 z% \$ `6 o0 N6 A; r# BN1WHILE[#1LT#2]DO1
#1=#1+#2
* v% Y3 H: ?: {# f( }) Y) K) ?. q#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
" u2 [6 s9 r" J8 K* R6 H#2=#2+#3
- E0 B6 n; |  C( A% t#3=#2-#3
#2=#2-#3
0 G0 L0 W3 X' hEND2
WHILE[#3LT#4]DO3
8 M) {3 n' N* Z0 y# M#3=#3+#4
7 |2 e" p* L/ z  _9 q#4=#3-#4
#3=#3-#4
& K7 a6 t$ p, YEND3
2 d, S: p$ q; o2 J& h: `' c" [IF[#1LT#2]GOTO1
4 G+ z3 I1 x! qIF[#2LT#3]GOTO2
M0


. e9 U! r7 B. J5 w8 b法1-2：使用一般耳熟能詳的IF-GOTO
7 R  W! w7 N$ K5 G$ z! y#1=A.
$ r. b- S6 t/ ^/ j3 P. U. o. V#2=B.
: U8 A# |6 i4 \, K1 K#3=C.
#4=D.
) A; F+ ]/ O) O$ s$ m% I7 dN1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
+ J$ i9 d! ], e' L#1=#1-#2
N2 IF[#2GE#3]GOTO3
. k3 y8 k! ~; c) X1 |#2=#2+#3
#3=#2-#3
" j% T6 L8 ]- }* r% D! T#2=#2-#3
4 |! V" Q5 D2 q6 r0 v8 `N3 IF[#3GE#4]GOTO4
+ g% O/ R9 G+ s#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
% L1 v7 k- i  M- r- [3 X; Q8 @2 iIF[#2LT#3]GOTO2
: G$ c/ |  |% e. r. ^& S1 j/ ]. _M0

羅蓋仙

, y$ S' Q- b' \% b! a: P$ ~
: z8 b- A7 z7 _* B4 N% u! I法二：使用変変數^^
7 d6 A$ Q0 G$ a: |! X6 G; R#1=1.
1 Q* g- L! _! Z) v# K: C5 `#2=4.
#3=7.
* K$ N/ n8 \( f7 _#4=9.
0 D/ S, {3 m2 JN2 #31=1.
  W$ P: ~6 G( j0 J* y: [#32=2.
6 d2 p5 c( A( z: R8 A) WN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
5 f: d5 r' k) Y% T, Y! Z#[#32]=#[#31]-#[#32]
2 [: e7 D0 v9 y7 E#[#31]=#[#31]-#[#32]
END1
3 u9 ]8 m0 U3 P: Q6 T- Y5 S' s#31=3.
- t5 H9 `9 z4 M3 [4 g! VIF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
% R& [% f. U* u/ J& K7 WIF[#1LT#2]GOTO2
#31=2.
#32=3.
) P! d4 N# x! G; \0 i" V7 \IF[#2LT#3]GOTO1
M0
+ F2 f8 K( A8 \+ `$ L5 y3 y
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶