數據交換法的使用

羅蓋仙

8 @# T; ]( S! A5 g2 R" H. w1 O; m
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
: R- A6 `# q% X; I有人說數據交換法.能用于何處???我來舉個例子
" ^. Z7 ]: u, ]" o& w/ F: R5 V
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
+ b% {# o3 m' e方法A：
0 z7 o/ \' Z; SIF[#1GE#2]GOTO5
8 ~& W3 p& |2 Z  F1 [; Z6 Y: E#1=#1+#2
# P3 B+ G7 H4 J" [5 @#2=#1-#2
' C2 p* h+ V! H0 |* e#1=#1-#2
#3=#3+#4
#4=#3-#4
8 h! B5 i( d% P" _+ _#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

7 f* z9 u4 f4 K- D我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
3 P( A& T* [! ]$ |WHILE[#1LT#2]DO1
* R, i; L9 E) M- P+ |#1=#1+#2
6 F0 t5 z# o" h) C' ^) z, v8 c' S4 j#2=#1-#2
#1=#1-#2
#3=#3+#4
& i. ~1 b. q0 }" \) M#4=#3-#4
#3=#3-#4
5 A( [- G4 P( ZEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
& r, q  z! \- b# G5 p! h
2 u' |6 @' L7 w9 n! Q' z; o- P方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
1 e: r1 B& D  m9 C- r$ i5 }#1=5.
#2=10.
" [3 l5 ]: F  o, x. R3 X4 k; G9 z#30=1.
*#31=#[#30+#500MOD2.]
* w8 Y! x1 ?0 }" oM0
: i) G! L4 \8 @8 f1 C% G4 }) m) \
7 C# M  [' J; Y0 C6 }! U, B+ {0 b) j又想把它這樣寫
' B- {5 G2 {$ _, u" r0 T8 [*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
2 c; h  ^  J2 d) p* _# S8 b所以，以上语句可以运行的

羅蓋仙

- s+ P8 p7 N: C: a# e2 v# U
+ @: K1 I) x9 G# _" \使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
8 e! _" d8 {- Y4 S#1=1.
0 G; T4 @) }$ b1 z+ m' p) u% g#2=4.
#3=7.
#4=9.
% R' k7 }% j; S  uN1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
: Z/ O5 |+ P$ @* x+ z) ^+ e0 S* P1 ]#1=#1-#2
7 b0 m1 R* W' t% ^4 X' B- r' e, zEND1
5 A; T2 a3 D' h1 u, P% A1 ?% K# KN2WHILE[#2LT#3]DO2
#2=#2+#3
; g  P  ?! W% z4 U#3=#2-#3
#2=#2-#3
; X, s6 ]! U& J8 N3 Y+ S7 ZEND2
WHILE[#3LT#4]DO3
#3=#3+#4
# v3 I- q) \% Q8 f8 R/ _' X0 n& X#4=#3-#4
; {5 g6 L$ Z7 z. I" J; X/ U6 _#3=#3-#4
' n$ J4 k. N+ [. ?! \$ y7 YEND3
: f, q5 C" W: F1 G, L8 \$ bIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
; K5 e$ [7 b' y% A" y, N. o- P

法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
; M1 u0 l- X) g+ i8 p" e! J3 ]#2=B.
, m; m# {! U6 T: ^8 [1 k#3=C.
. }1 z# D/ y- K#4=D.
$ Q' v: c) z- M7 x  y! \7 ON1 IF[#1GE#2]GOTO2
#1=#1+#2
1 {& t- U' K  R- g: c#2=#1-#2
) j! K3 A0 j* u2 x- y#1=#1-#2
( w, C9 p4 J# x# rN2 IF[#2GE#3]GOTO3
+ Q" c+ `6 I3 R* `2 J! f#2=#2+#3
* h6 D" Z; l: v4 V0 g7 F2 A#3=#2-#3
#2=#2-#3
% J! B" @* w9 X5 K0 d+ Q0 n- dN3 IF[#3GE#4]GOTO4
#3=#3+#4
" @( N7 o8 E7 g5 g. J& A  z#4=#3-#4
) i- \2 h) O! T1 q* l#3=#3-#4
N4 IF[#1LT#2]GOTO1
: j$ A+ z5 E! A8 U6 D+ FIF[#2LT#3]GOTO2
8 X/ G! q8 o0 w, C1 vM0

羅蓋仙

! |6 H* {( V0 z- Y- V$ Y# `
3 T# X! z+ f/ O; y: a, M6 R法二：使用変変數^^
9 }- P! i: Z% i# h( a1 k#1=1.
) W/ G2 w9 U4 C9 i8 t$ W: K#2=4.
#3=7.
9 |5 b) N/ Q9 n9 X; X9 L6 H#4=9.
- D: d, k* s" P. T/ DN2 #31=1.
#32=2.
4 g6 q3 y& P+ [$ \6 F0 P2 i, nN1WHILE[#[#31]LT#[#32]]DO1
/ p2 F7 W% K) D#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
: S2 t7 \6 o9 K0 _4 a. h% x8 E: C#[#31]=#[#31]-#[#32]
END1
: H7 f2 J% Q( x' W6 i4 s; e#31=3.
9 ~; s! a0 Q  s2 E7 l; z, oIF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
#32=3.
- [. I* d7 h" h# s# SIF[#2LT#3]GOTO1
! f# d" [0 Y5 ]8 z" n. JM0

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

longmeier

好帖子顶