數據交換法的使用

羅蓋仙

! A* ~/ p8 f( Y% G
' e( j* l" p1 b1 }) W8 q$ q0 C: [上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
9 P! h: ]! n* @  X- _- ~
& y0 N7 n9 _0 f3 J/ m8 d+ n如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
1 X! {- M- |( {0 B6 g方法A：
# o" {0 S. e3 Z2 p1 CIF[#1GE#2]GOTO5
$ J) J9 ~' \0 X6 K+ N#1=#1+#2
#2=#1-#2
/ v/ _2 q: C$ B; @#1=#1-#2
#3=#3+#4
+ h, l* \8 l1 E8 B0 C#4=#3-#4
4 P/ r5 \; Q9 S7 d#3=#3-#4
( D; x# Z2 e3 M; _4 j3 Q% xN5......此時#1的值已經置換過來了.#1的值一定比#2大
/ i% ]% ?6 O: O8 z8 p0 E* M
$ _. m- v8 N1 [我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
/ j/ e" t0 z: [4 }0 I方法B：
; K0 K' P4 v3 f/ m/ iWHILE[#1LT#2]DO1
#1=#1+#2
' E9 u8 g+ C) p#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
1 h2 S; T4 S5 j: g. c#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
1 l" ^7 T; z) h; _- [
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
" C& v3 k' E4 n7 _#30=1.
$ C4 I, K5 L7 W7 E& y$ @4 l3 M; ]*#31=#[#30+#500MOD2.]
( F! e, e0 o9 R( `* d1 UM0
6 T* i# Z$ w$ w- a5 A5 q2 g
/ g7 J. V1 x: f! M, y: g( e又想把它這樣寫
8 n* J" J# u! m" m% [9 J8 t; f*#31=#[#30+#500AND1.]
% w8 s% Y" E: U" l/ ^M0

空气中的小鱼

回复 2# 羅蓋仙
7 x7 G/ ^  Q- X# F6 E7 Q- z你的表达式中没有只是逻辑运算，
% }+ w8 o5 V* y只有逻辑判断有些系统版本不支持
$ K* x' q& A/ H6 K4 `所以，以上语句可以运行的

羅蓋仙

- {& w' z+ ?6 c& U
使用數據置換來按大小排列，大→小
% j* g/ @: A) x7 Z/ w法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
) T. ?2 Q- U" R#1=1.
#2=4.
6 @- x2 n+ o" V: i#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
  \: t. [  e6 l4 Z0 x: K; _7 y#1=#1+#2
+ j& i$ J1 ]. i0 |#2=#1-#2
#1=#1-#2
- S  j( \( ?) B5 a( F0 v7 ~* y/ mEND1
  Q% b0 J+ U) ~2 UN2WHILE[#2LT#3]DO2
9 x& i2 u" u" N& D#2=#2+#3
% D# A& ?6 B* r" T* Z1 o# m; g+ ~6 H, _#3=#2-#3
#2=#2-#3
END2
& v% {0 r5 ~* K4 cWHILE[#3LT#4]DO3
#3=#3+#4
/ h/ k4 K: Y6 z% s#4=#3-#4
#3=#3-#4
0 g2 \1 M. U, }; nEND3
IF[#1LT#2]GOTO1
6 O, Y% ]1 I9 c( a7 ZIF[#2LT#3]GOTO2
1 H* f5 x. m0 u. k. [M0


. t9 [" t. Y4 I4 S! H法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
$ r0 _9 V- t9 t#3=C.
7 r+ d% R8 f, `9 w  v1 ]#4=D.
* ~# \% f; T# n. }% \. r8 AN1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
#1=#1-#2
# C/ v: U  e7 V2 |6 `$ ~5 u5 x( bN2 IF[#2GE#3]GOTO3
5 H- t& N5 e. D& s" U% i#2=#2+#3
* w: L/ B0 G" e7 {! o. r8 z#3=#2-#3
#2=#2-#3
- `# B; r' o: `+ S2 R- [7 zN3 IF[#3GE#4]GOTO4
/ H2 m! M9 x0 R. k! Q1 S& a- h#3=#3+#4
/ y( s8 l6 [1 O7 |; m#4=#3-#4
' T, I" o2 `2 X. h4 }! w" M#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
( A5 ^* ^0 t6 r) fM0

羅蓋仙

法二：使用変変數^^
#1=1.
9 o' G5 S) }- V) {3 ^#2=4.
#3=7.
" P; c- \, q0 I#4=9.
N2 #31=1.
5 R3 i9 _! V, _5 p& r" B8 p#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
. y& i- W" z2 T1 A#[#31]=#[#31]-#[#32]
END1
0 Q8 ~9 ?! O5 k' y#31=3.
IF[#2LT#3]]GOTO1
6 P- ]+ M4 d! \! F" j& n- y#32=4.
; h2 D4 ~* r& c  m% _IF[#3LT#4]OTO1
: e8 ~+ N) @1 [9 i( C% B: h; kIF[#1LT#2]GOTO2
#31=2.
% V' y! x. a/ H+ t2 D3 `& ^#32=3.
4 M1 A. t7 E% c8 R/ s4 T( z( @IF[#2LT#3]GOTO1
: D8 I5 m5 ^% x1 G' wM0

看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶