數據交換法的使用

羅蓋仙

' ~! N% K# F. i( _' j9 v, R( y# p
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
! Q5 W6 O6 I1 N9 F6 F4 Y有人說數據交換法.能用于何處???我來舉個例子
/ i5 C4 v/ n# Y' l0 X) U( `
* H6 {/ E# ^8 O! T0 a; c0 `- k7 K如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
; w* S: m/ j2 y. H7 g方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
& u0 J1 F; \2 m, T; e8 T/ O6 v#2=#1-#2
#1=#1-#2
#3=#3+#4
, {* H- u0 o1 m: \# ?7 Y) O#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
. e5 u8 A4 [/ Y: T; P#1=#1-#2
#3=#3+#4
#4=#3-#4
* R! I  H- @% y4 X, L#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

3 D% E3 @9 t" o- ]7 Y方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
& {  V# E9 j6 B& _#1=5.
" C" z0 X/ m/ i0 N  W% h#2=10.
& G) E; o& a8 u: W: K. v* U#30=1.
*#31=#[#30+#500MOD2.]
2 v1 e3 \9 [* i- IM0
, W, G" W- Q! o. m7 a
" g+ [- x; i" S又想把它這樣寫
) Y; m+ J0 o$ b/ ~2 g6 x7 g; f*#31=#[#30+#500AND1.]
: w' Z5 j# h$ P, cM0

空气中的小鱼

回复 2# 羅蓋仙
+ c5 @! S$ P& d你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

! Z6 f2 C* g: u. X" R8 K
& X7 B1 L& e0 y: Z+ m0 K使用數據置換來按大小排列，大→小
0 k- s' C5 s  n# j法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
" a6 L5 ]8 }- m' d! j0 s8 k#2=4.
#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
: e- `3 K' P. L( T* @#1=#1+#2
#2=#1-#2
#1=#1-#2
, l- ?, ^. R! GEND1
. n* E6 U+ J6 C! D9 d0 Y# w; k+ CN2WHILE[#2LT#3]DO2
#2=#2+#3
. _9 H. O5 u7 G$ c  Z/ ~#3=#2-#3
#2=#2-#3
END2
WHILE[#3LT#4]DO3
#3=#3+#4
; j8 l5 e  p) P  u+ e#4=#3-#4
) N0 ?( Y/ q" O% F6 b  ^$ i+ i  _#3=#3-#4
END3
( B( D( K' e1 N, A& MIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
% U5 Z8 |- c$ X, \* |8 v3 E- W' `M0
" f' w  `  g/ S# @8 v% H! V
* _/ j: k1 C( |8 ~" i! e/ h  e
3 X) w; p5 o& \( q7 S8 k法1-2：使用一般耳熟能詳的IF-GOTO
' T. G' P$ H) p, {#1=A.
#2=B.
7 k: _: q& h4 Q' G#3=C.
8 @: e# Q- i# _! H, P! J, p6 \#4=D.
$ s% e5 h7 Q& [! m/ \! ]2 o6 aN1 IF[#1GE#2]GOTO2
0 {. S, Q, a7 H#1=#1+#2
: b* E, x- `7 @' B# i& g" P+ \#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
/ N4 n: w/ i) s& [4 A  K' p#2=#2+#3
#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
. @" U* }5 E. w$ ~) A#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
9 j: J( W. W" r7 L( M3 HIF[#2LT#3]GOTO2
M0

羅蓋仙

2 v  a* ^9 b8 ]: s8 Q* p( J
法二：使用変変數^^
#1=1.
- A$ d6 M7 Y8 f  }+ s% F#2=4.
#3=7.
#4=9.
N2 #31=1.
#32=2.
) i  b, y* O  ^( X/ J3 m- N; yN1WHILE[#[#31]LT#[#32]]DO1
) n# R% `9 y4 e0 G. b' A* |#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
5 d! b' w' A. Z% M# ^, q* o+ uEND1
' u; p" L+ P1 u3 `+ ?#31=3.
IF[#2LT#3]]GOTO1
7 I8 n2 J$ z6 m#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
/ y/ m& S, l5 I( A: _# P! y5 M0 W#31=2.
2 I- U+ \* t7 Q) H9 D" k4 R#32=3.
IF[#2LT#3]GOTO1
! N& g; X$ t6 |6 w% J5 KM0
4 v1 h3 A: O/ T  S) X* l% c
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶