數據交換法的使用

羅蓋仙

! Z  o/ x& G( N& [
" `* |8 ]. m' g" |) ?) B' L: R上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

9 n5 A( [# ^- t) S/ `如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
: i) b! n8 @( `- C& s# p6 @使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
- J% C. u6 K* F" }N5......此時#1的值已經置換過來了.#1的值一定比#2大
5 t% p) k( M- s3 ]! W
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
/ b8 w6 N/ U7 Y, a* W$ }#4=#3-#4
) L/ l& |: o5 J5 x9 V9 y# \#3=#3-#4
  i! j: |: V( w$ {( SEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
4 z: \1 @! ~# s( M* |
7 O+ A; W7 M! t4 O/ J" ?方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
8 j. L4 s& P9 D& N2 C8 h4 f#1=5.
: w( `6 y) K; V; @$ G1 n#2=10.
#30=1.
, \1 l# _2 m3 @  m( D*#31=#[#30+#500MOD2.]
0 c" Z' \" d( s3 M( d* dM0

1 H0 I5 r9 W6 T4 o3 u0 O0 ^- A  q又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
$ ^( O* S( `- W4 P/ J3 a你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
2 @5 H- s, g6 F& ~0 J+ i所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
#3=7.
- P- V' ^4 j. u+ ?5 d' l3 {#4=9.
! x+ x1 Z. t! SN1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
' R+ r9 H2 E5 `  r$ o: hEND1
N2WHILE[#2LT#3]DO2
# n4 \9 G4 f5 I( f4 ~#2=#2+#3
#3=#2-#3
#2=#2-#3
. Q+ P- Q" k. A/ Z) [END2
; M3 Z7 m1 C( g% u5 YWHILE[#3LT#4]DO3
#3=#3+#4
0 s. a$ r  h% ?' j! A+ a#4=#3-#4
#3=#3-#4
* V+ _0 i$ x) a3 y9 c$ h; I: G+ nEND3
IF[#1LT#2]GOTO1
/ b: b2 V- |5 P1 ]' r$ O7 |IF[#2LT#3]GOTO2
! v# W/ q7 ~9 @1 ~  \8 D$ SM0


* l) J. V) M$ [1 ~. s法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
" z1 @5 _- P3 E' P+ H6 ?#2=B.
#3=C.
4 s$ y. G4 {  P& Y+ @3 [* V* q$ a#4=D.
N1 IF[#1GE#2]GOTO2
! p' Q2 c! u! N2 H: `#1=#1+#2
7 |3 y# `3 @$ w( W2 |#2=#1-#2
) k& i; }/ s, Q+ ?#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
: y- o+ W8 T. K" I7 g1 ]#3=#2-#3
+ e4 W8 W  D' ?8 m8 H#2=#2-#3
% q5 [9 K. T; s7 m1 GN3 IF[#3GE#4]GOTO4
9 g/ m& x1 o5 U% E: [% V#3=#3+#4
5 |. t# Z; ?& |; A. v#4=#3-#4
#3=#3-#4
8 ~2 o- p# Q) n5 V4 IN4 IF[#1LT#2]GOTO1
; H: O/ h' j4 L- s- h6 l" n% kIF[#2LT#3]GOTO2
M0

羅蓋仙

9 y! \: z) l$ ^' m* _法二：使用変変數^^
#1=1.
! C9 W! D3 ]' T. t! |9 R#2=4.
' D/ @8 ^! T" q# U, _  c#3=7.
#4=9.
" J) X# T) ^3 J, v; g6 SN2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
- h+ f5 G* u" |6 V#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
6 u% T4 n: l8 S. X+ b( V' k#31=3.
IF[#2LT#3]]GOTO1
#32=4.
! f1 i. G) }, fIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
9 N, }+ J. H2 B7 w/ H#31=2.
/ |& W+ q8 g# {#32=3.
IF[#2LT#3]GOTO1
+ f# s2 U, F  HM0
+ W0 J: L; k) y4 x
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶