數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
1 r/ B( L" N+ v2 ]# q，我看完之後有灵感，
- A2 o! T* k* L! p9 f+ O7 S有人說數據交換法.能用于何處???我來舉個例子
1 m: h% V- Z# f% z* m8 K
8 V  W$ _7 T$ D. D) `8 c如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
8 D9 l% X# s% X2 k方法A：
IF[#1GE#2]GOTO5
, ^0 e; G" V* g+ d#1=#1+#2
#2=#1-#2
#1=#1-#2
2 ?' S0 G& [, d9 O( i. e4 e% y0 U#3=#3+#4
% s& Y  C; z- ]3 X" _7 J#4=#3-#4
( ]0 Q5 J$ x5 o#3=#3-#4
+ z+ z% Q, q( XN5......此時#1的值已經置換過來了.#1的值一定比#2大

4 M) ]6 R" z+ }: ^+ O% I我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
8 [1 Y/ T$ a/ KWHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
. A; G; Z5 R2 g4 x/ {! P#4=#3-#4
#3=#3-#4
END1
3 Q% p& e" J6 W  ]......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
& a' T. |& p' Q: \1 Z9 ^$ L
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
3 T* u' l3 H2 l# s: x4 N. L#1=5.
#2=10.
( g2 O7 e$ l$ V( B6 ?5 T#30=1.
/ z5 A$ z$ p. I% M*#31=#[#30+#500MOD2.]
M0

又想把它這樣寫
  S4 Q$ z6 X/ t& ~  E, ^*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
: s0 J2 ^8 A+ d! }8 b0 W, q$ l9 L7 Z& L所以，以上语句可以运行的

羅蓋仙

8 n$ L- x' s1 Q& `
+ C* f$ m8 `% z! }& l: t' x使用數據置換來按大小排列，大→小
; z  v4 C8 @8 f9 X, a3 ]$ f法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
5 l  x7 W' S0 @( I  r' l2 y2 P#3=7.
' k- T/ U% ?( e, \$ [7 ^#4=9.
N1WHILE[#1LT#2]DO1
8 a1 u1 R0 Z* H2 W7 Q% e#1=#1+#2
#2=#1-#2
+ t* c$ z% h! [#1=#1-#2
' t7 _. S' X; XEND1
  J  a! z4 p7 J" Q( G' a/ t& uN2WHILE[#2LT#3]DO2
#2=#2+#3
2 Q! b% n* P4 W, Y#3=#2-#3
#2=#2-#3
, [5 {$ E  _. DEND2
  ^( ~  N, M, ~9 RWHILE[#3LT#4]DO3
* ]2 \# e+ N! N1 e#3=#3+#4
#4=#3-#4
" c4 j7 U% \1 [#3=#3-#4
END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
" F: Q% {  y( L! M  v5 vM0
: C0 ~# y& {3 h" k* E" P
+ ~! i! f0 c% ~' X9 n
法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
: _; X8 n3 s2 y( M#2=B.
#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
3 {$ x2 {7 V5 q: w1 A#2=#1-#2
7 k0 [2 ]4 _" _8 B$ a0 ?: v#1=#1-#2
N2 IF[#2GE#3]GOTO3
* L  l3 x8 v- ^) x- Q1 J% A" p#2=#2+#3
#3=#2-#3
#2=#2-#3
  a4 R/ {: ?: P$ Z1 f* A5 u( EN3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
#3=#3-#4
4 p, H5 e+ a0 f0 G* VN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

) o) K* q( \9 p2 X* e- n8 n
法二：使用変変數^^
#1=1.
; X" I: N9 z! e+ ~& s- r#2=4.
#3=7.
  k7 U' N; c; S% z" o#4=9.
1 b8 H* R$ A& u, l$ A: a. E% }8 H# \, j* CN2 #31=1.
#32=2.
9 ~* _, L+ ^) k& M5 uN1WHILE[#[#31]LT#[#32]]DO1
, y& [8 W4 z2 c#[#31]=#[#31]+#[#32]
1 |7 b, @9 {& p7 F#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
% o2 |* g9 x6 O* l/ K8 wEND1
/ R: d) _0 W, P& f. B  n#31=3.
# v1 X; ^6 F( V$ m2 y, hIF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
#32=3.
IF[#2LT#3]GOTO1
M0

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

longmeier

好帖子顶