數據交換法的使用

羅蓋仙

, l& K% D. A7 D7 K* `$ h) E8 V
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
, g$ o2 v, b" |5 \8 S" @0 _, s，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
' O! W8 v& {- W% n9 C5 P% h6 X, @方法A：
+ S, M! p7 s6 q  WIF[#1GE#2]GOTO5
#1=#1+#2
: |3 s3 l! `- P! E, a3 ?: J1 R#2=#1-#2
4 f# T5 N. R1 G#1=#1-#2
4 M. T( c' C' Y: c2 Z- o#3=#3+#4
3 @- `3 U7 g! X7 ?. P# q- V' k#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
) A% u8 k8 Q3 p: w- j( W
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
# v0 P3 S3 A  _+ h; WWHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
4 _& }$ R" \/ c$ \! x; R#3=#3+#4
#4=#3-#4
* F2 \! I; e  c. g+ C8 P#3=#3-#4
' o9 {& j0 g4 I2 NEND1
, x$ j9 v6 y. V- j; U5 u( n( ~' F' c......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
8 M8 {) A% m- ~7 c9 ~
9 G$ x% J7 D8 g8 J' S0 s方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
6 f+ g- Z, }% w2 k" Z! R8 D$ aM0

又想把它這樣寫
*#31=#[#30+#500AND1.]
4 d  _5 s4 E. Z8 g# l5 o1 {3 GM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
% u6 ?9 R$ o# e  D4 V5 d6 \6 Q只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

/ W* E. U; O* Q  \4 P! t使用數據置換來按大小排列，大→小
5 j" j& h6 T- q2 v' f0 N( t法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
( p4 ]3 @! H  F; J8 F$ w3 U( m+ y#1=1.
#2=4.
#3=7.
#4=9.
  H. [( }5 v( b$ c1 H% Y7 Z& s1 K5 \N1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
% a9 K  a) \5 X# d: i! P; }#1=#1-#2
" x' ?. c; j* s& q6 y3 dEND1
N2WHILE[#2LT#3]DO2
  J9 i0 D# c. A2 \* }0 k#2=#2+#3
#3=#2-#3
+ y/ R8 }: S% a3 Z/ [8 {/ v#2=#2-#3
END2
- h* {/ J3 Q% @5 WWHILE[#3LT#4]DO3
3 v& F- \( W# G7 {2 q% T#3=#3+#4
#4=#3-#4
& l/ u" m9 b, d9 |" ]+ A- a2 }#3=#3-#4
END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
8 }6 v. H0 B1 YM0
6 X8 N6 ^: T* ]) z2 `# n: @
8 F% C: k4 W8 n; C+ v5 g
法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
( m: ]- B$ i$ Q- }#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
' g- Z" d7 [+ e% _8 K( \7 W' Q, d, J  q. n#1=#1+#2
6 I/ ^; w( s' s- W5 n7 v6 B; s; u7 N#2=#1-#2
* s2 w7 N5 V- p5 E/ e6 [7 z#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
! k" J6 K) M% x  ]/ ^0 k- J* N#3=#2-#3
; S. L4 ]; x' p/ E#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
8 j7 \/ C, Y. V' h#4=#3-#4
#3=#3-#4
: \/ d; h1 `# N3 ]# I! I4 dN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

  E- w5 p3 e9 w2 q* q" S
3 f' T* j9 h( H& d; D' n& p4 o法二：使用変変數^^
2 d, h, m7 M: u3 H9 R' K1 g#1=1.
#2=4.
& k) M5 [7 j, ^) P# N" S#3=7.
/ W# X: v  I4 ^8 p9 Z: d#4=9.
N2 #31=1.
! w6 Q0 r1 |0 ?: ^/ |+ y( @9 q" e9 a#32=2.
! {" f' Z* x9 ?7 Y2 J) ]N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
/ {! n% _+ D  I% P#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
6 Q, J* F7 B' R  C8 qEND1
3 u! r  Z: S. P0 K! x#31=3.
# N) ?1 B4 D) A. ~( |* [* [IF[#2LT#3]]GOTO1
, s' P) M9 P: V* t) Y" S: J* S7 K# s#32=4.
2 W- R# ~5 \; N1 BIF[#3LT#4]OTO1
6 p0 p2 r$ O4 J, t/ O2 pIF[#1LT#2]GOTO2
3 C9 i0 Q/ s9 Z4 [% v5 B5 J#31=2.
#32=3.
6 V+ V: B# c) g/ UIF[#2LT#3]GOTO1
# m- t" D+ d: D1 M2 p* {. SM0
! k- W$ k& t+ \* l  g! h( B+ z
5 D1 q5 _) R/ K- Y9 Q看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶