數據交換法的使用

羅蓋仙

5 m8 n. y, K7 k# D/ b' ]/ k
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
0 b  {' S2 [8 _( R! z0 B+ a有人說數據交換法.能用于何處???我來舉個例子
2 ]8 {& M7 d" L5 Y. u# n
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
, S: n2 \, E4 S( p使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
5 `$ g/ I) P, z9 a0 \  R- X9 L方法A：
" N5 x, c$ g5 P! E9 N# t. VIF[#1GE#2]GOTO5
#1=#1+#2
/ z! L% i7 T* q: r; p% Y  S/ ~#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

" M. L" ]3 Z9 |  M我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
" }# ?% ?$ N8 J9 J* j% Q# }6 s#2=#1-#2
& N& e" J4 u8 A5 S5 q7 p8 u# D#1=#1-#2
#3=#3+#4
$ Y: R) }# L; v1 J3 F#4=#3-#4
#3=#3-#4
END1
+ s* x, b3 h( H0 @, |1 m& v......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
8 W6 z# s: ?5 u; D5 W! z
$ o' p4 _. R. f8 E方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
9 `* R, A6 R1 M' B/ G% \#1=5.
/ q& ]8 U2 C$ u# ^' r/ l#2=10.
& @) g7 F0 k" `: S8 ~#30=1.
, F8 T+ H: h* B- T*#31=#[#30+#500MOD2.]
; ]6 `) Y6 R, OM0

% m# ~8 t; X+ Y& _) K7 Y2 M1 `) [9 s又想把它這樣寫
9 s/ Y* I; `/ J+ g- W" v*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
6 G0 S2 Q! w9 M你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

/ H/ H/ q9 r) l
9 C3 B5 M5 e9 k( Z! x使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
* |# N$ v' L. d( F6 q3 B9 ^#1=1.
#2=4.
7 m, |! I. `0 _0 F#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
. Y8 R% K/ g  g4 Y: j0 |& O7 _#1=#1-#2
: w# W& a8 _! }: |) dEND1
N2WHILE[#2LT#3]DO2
#2=#2+#3
! I4 c* [2 q2 j% j#3=#2-#3
0 \' w) ~1 K/ S% n#2=#2-#3
END2
; M1 z% l/ T8 w6 WWHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
. |4 X1 b0 L0 X; k, X! s3 S! X#3=#3-#4
7 S% U! f* ~0 I! i; mEND3
$ m) Y6 _& f& p( b1 T: qIF[#1LT#2]GOTO1
  B4 d& N6 K1 k6 ?IF[#2LT#3]GOTO2
M0
2 ~0 h( H; f( l7 E  ]6 D

法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
#3=C.
: f' O+ v8 z$ h& ~3 w6 U/ v#4=D.
) j9 d0 S, k- t7 Z( Z) n3 {& J* NN1 IF[#1GE#2]GOTO2
7 s* y1 Z  Q0 ^4 P& A8 D#1=#1+#2
#2=#1-#2
1 ?1 ~8 T6 y4 r2 G4 b4 H( J3 K#1=#1-#2
7 v  J/ G# y6 L! `! L0 k% v( L6 MN2 IF[#2GE#3]GOTO3
#2=#2+#3
) T. r. U' T+ h2 _' Q0 N& T( G! y$ L9 Y#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
: J9 Y" s1 o' D- e$ W9 Z! r#3=#3+#4
4 ?/ K4 \8 n( a2 D' N6 ]0 X  b4 i3 Z#4=#3-#4
#3=#3-#4
+ U# Z6 \# s# C; b9 o2 NN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
#1=1.
#2=4.
+ ?' J. e/ M+ f2 R#3=7.
#4=9.
8 O# w4 n- [4 C; _) |, P6 ]N2 #31=1.
% `3 |( [! f' [- Y# c# }( N) C#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
% {# s* w' W6 w3 ?% q4 O% C#[#31]=#[#31]-#[#32]
! p3 m9 @2 I. K' F0 XEND1
#31=3.
3 q1 G( f8 I+ e) W5 \; F- aIF[#2LT#3]]GOTO1
( {2 Z9 z5 {; u#32=4.
% G+ L; x6 @! g' w. F" ?8 f8 T- {IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
" `- d9 z% |; B) I#31=2.
#32=3.
7 N3 o" F' }4 z7 X$ fIF[#2LT#3]GOTO1
M0
9 q* j6 J( i) f5 C0 {1 D
5 b) B' m4 p" d  n看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶