數據交換法的使用

羅蓋仙

5 ^; g) z1 s1 w2 o  |* C! n# `上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
' v- t3 x7 W% ~# T
: M* ?" G; }* {; p1 A1 ^如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
- S1 W) F; `+ A! M2 S$ \2 {1 [方法A：
IF[#1GE#2]GOTO5
. h  F% H8 ^2 ?2 v6 R#1=#1+#2
$ k& a" }7 R1 O' @) n  x#2=#1-#2
#1=#1-#2
( R2 `& J% S7 ?#3=#3+#4
#4=#3-#4
* T. B: d$ Z! Z3 `#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

: J! l1 K0 f, Y* r我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
% z# k6 K6 R' `* y% O方法B：
3 r# \8 U0 r$ \WHILE[#1LT#2]DO1
- \' ~# a+ k! `" _6 U/ Y#1=#1+#2
#2=#1-#2
6 j# G! k  Q1 R! [, q- m3 H  x8 e#1=#1-#2
#3=#3+#4
, F$ d' d: z. S, z/ q) ~' G8 {7 D. Q#4=#3-#4
7 O. F7 N: f0 \6 H#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
/ I, o) Y! M6 C, \
- [: \* @! [. U/ Q+ r# p' v' C方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
6 {1 I# t/ ]: \* v5 z2 I#1=5.
4 K5 T. f- ?8 ^7 ^$ a#2=10.
! f# c& A  F, |6 S9 z( w, Y. d#30=1.
8 h) J' @$ E, Y9 p0 o, j*#31=#[#30+#500MOD2.]
/ D* {3 X! H. NM0
) h8 P; W' i" I1 a3 O, B
0 m9 S8 o; a4 Y2 n' L  B9 S3 j又想把它這樣寫
) C" I6 m$ `- [% R  i) b*#31=#[#30+#500AND1.]
8 H+ v; W1 f2 {0 y" qM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
& R0 l# [% }' A6 W" S& _所以，以上语句可以运行的

羅蓋仙

3 S' a; f! a. R! f* n& X& C, u使用數據置換來按大小排列，大→小
7 h0 Z& n) l5 K, z2 M法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
6 U0 T' c5 @0 P; j% Q$ B$ d* b  \#3=7.
# N5 X5 u9 H7 `0 o% B) D5 R: ~#4=9.
N1WHILE[#1LT#2]DO1
" u$ h  |! u% b, _#1=#1+#2
#2=#1-#2
8 R8 |2 u. {+ g#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
. t0 D  l" |6 `4 L7 R#2=#2+#3
#3=#2-#3
" |- l" P6 ?5 @4 E#2=#2-#3
END2
WHILE[#3LT#4]DO3
* e% t% E% }( p" Z#3=#3+#4
#4=#3-#4
0 x0 v9 g7 o" F7 {' W* P#3=#3-#4
END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
0 N$ v% V+ E1 {: S, D1 s% r: N
; l  [' ?$ r( A+ e4 {
法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
0 u, U$ N$ r. C# f) d#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
" ?3 z" }2 }9 ^/ m#1=#1-#2
3 P* `- Z4 p$ r" {% x& D+ xN2 IF[#2GE#3]GOTO3
8 C) N: q4 b$ \( U. q#2=#2+#3
#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
/ Y1 z4 ]! W! o" F" C#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
: P) O, O/ _9 E% N: ^: J2 QIF[#2LT#3]GOTO2
M0

羅蓋仙

7 a, F7 E" G, s% P: ]9 k
1 c7 m6 ^. H5 d; F- N法二：使用変変數^^
; }& d3 ]& y, q* \. t0 L9 `( X#1=1.
9 D8 j- a4 x& ]6 s' Q' n) s#2=4.
% ^9 P; M$ P0 F; X  z5 N( G#3=7.
" y2 H( y% h! I; ?#4=9.
5 e8 @; h4 ]: Q! }9 \1 JN2 #31=1.
2 T' w# l- K3 E' E; N#32=2.
8 ^5 Z  n  c8 L$ g# [6 zN1WHILE[#[#31]LT#[#32]]DO1
' G) }4 r7 Q4 _, f* f0 n$ u- g#[#31]=#[#31]+#[#32]
+ L1 K* R5 f6 ]6 h  T#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
7 a, Z# A7 p+ G/ i- D' N3 @$ ?" w#31=3.
IF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
#32=3.
9 N8 x. E9 o7 PIF[#2LT#3]GOTO1
8 ?; g' u& U+ z8 k5 O0 BM0
8 W) L: |; p1 H8 T; C) G
$ r/ `* [: w% e) u* T4 r看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶