數據交換法的使用

羅蓋仙

* [6 Y) D  F! [# J" Q/ ?
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
' C+ ~2 Q& p, ]8 n2 S" \; t，我看完之後有灵感，
+ Y) ]  C* p: q9 Q, z! }$ h& a! }有人說數據交換法.能用于何處???我來舉個例子

$ {5 \/ H. _0 Y$ F" X1 a; j& P% T如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
3 \* |5 `: @3 _#1=#1-#2
0 w& t; G0 L/ `/ X#3=#3+#4
#4=#3-#4
0 |. H* N) w  q' ~* d& ~  d) b#3=#3-#4
& D- f9 b; @- ~" ?N5......此時#1的值已經置換過來了.#1的值一定比#2大

; Q, g6 r6 s# T( A0 y/ n, c我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
% r5 j- i' n! P#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
5 {5 \3 \. y# `#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
. q' ~: s" ?1 Q. }( q2 \
) ~4 ~* U& T2 R7 O0 o0 T# v+ J0 k* e9 B方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
, o) P, p& r! H. a#1=5.
#2=10.
7 h7 }6 F# s* N* w( M. v#30=1.
9 H9 y/ T* O5 k" k' f# {*#31=#[#30+#500MOD2.]
M0

/ a. v$ f$ d5 {2 Q7 X又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
$ x  q- I! W: C9 P; P, [( x你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
( o8 Y' S$ [, V" Y/ `% c法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
8 F0 @! r& w5 V2 g2 U#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
; e1 B3 w$ @& g#1=#1+#2
% l* ^' l8 P- V6 K#2=#1-#2
- _8 Z6 u( n" b  [8 S8 @" {. l0 ?#1=#1-#2
END1
! i4 p$ a  U( C% O5 O$ G. YN2WHILE[#2LT#3]DO2
1 B( h% z  E: V) h! ?#2=#2+#3
0 L) M. E; X) e# ~9 w+ Y2 n3 e, @3 W#3=#2-#3
#2=#2-#3
END2
* \$ u/ R8 h: K: L, @, QWHILE[#3LT#4]DO3
#3=#3+#4
/ \/ f# L* |) j# ^8 d#4=#3-#4
! x- e$ m$ j  _: Q0 p* O4 [#3=#3-#4
9 N9 x) t- G( \6 b$ mEND3
  _1 ?+ i) j) I+ B: L7 ?6 lIF[#1LT#2]GOTO1
% z) |$ n$ X/ V' p" t- ^IF[#2LT#3]GOTO2
/ A' q5 i  i3 g, P7 fM0
6 ?( p- ~6 e$ p8 T9 S; A' L
: ]8 y, {. Y9 p  d0 Q% p
- J, i6 O/ q& D法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
% ?- J- q% A% U* S# n#3=C.
#4=D.
, u+ O9 k  m3 ]: \! ~N1 IF[#1GE#2]GOTO2
/ h" Z& S4 }; k# ?* e1 ^& o#1=#1+#2
#2=#1-#2
0 F% d' j7 K6 e% E; F#1=#1-#2
N2 IF[#2GE#3]GOTO3
, f& d7 k  z. H. b- Y+ Y#2=#2+#3
6 d- O! S) H. n' Z. P! K: T& c: S#3=#2-#3
& p  X4 k3 S8 P3 W#2=#2-#3
7 q3 E9 m5 Q& VN3 IF[#3GE#4]GOTO4
; a/ v2 l9 A& L( B9 t# q#3=#3+#4
#4=#3-#4
#3=#3-#4
3 w1 ~( i, E( }N4 IF[#1LT#2]GOTO1
- O9 \+ Z6 ~# T/ f% n3 MIF[#2LT#3]GOTO2
2 X  O0 N5 O- ~# @3 L7 ?M0

羅蓋仙

2 G: s/ U5 k4 j6 D* e4 i4 o# x
法二：使用変変數^^
0 z  ^$ j- P" i#1=1.
#2=4.
  a; k3 p3 D/ I9 X5 h#3=7.
#4=9.
N2 #31=1.
. {1 n8 d1 ^0 P# ]9 p#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
5 F7 W2 B& e" J8 _. f, {- ~3 Z1 p9 y! f#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
#31=3.
IF[#2LT#3]]GOTO1
4 @6 u& W' d, O! N6 \- T$ l: ]#32=4.
) J) Z6 `! y; e$ P- U& uIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
& D; ]# q- @, ^  Y. o  x& A; R#31=2.
. _! F$ I) G; Q" S#32=3.
IF[#2LT#3]GOTO1
M0
( h4 G1 u$ Z, A8 u7 \; z0 a0 c
5 c( G) G/ E; a: F$ p看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶