數據交換法的使用

羅蓋仙

: @( P7 K3 K/ [+ p上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
/ T  i. {2 Y. m4 P" P# T有人說數據交換法.能用于何處???我來舉個例子
9 J2 C& t2 ]* W& W1 M; _* g
( g( p' C, w1 Q) Y* V如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
6 H: E6 r$ p% @, T$ ?IF[#1GE#2]GOTO5
  S( j( N% G/ D2 g0 {+ h#1=#1+#2
: I( q  v/ P2 f. G6 K#2=#1-#2
#1=#1-#2
5 K, [3 p6 ?% I: x- z+ X#3=#3+#4
. U( j$ K3 o+ _# r( c#4=#3-#4
6 k$ W1 |, l  g0 R/ |6 B. Z#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
" m0 a4 o4 v7 U% V' {% {
1 u- x2 I) Q2 F* q7 |2 v1 w我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
% h8 s0 _; S! I9 {5 v  }* b$ R# ?: u3 |#3=#3+#4
- _" u) i+ R3 h4 ^#4=#3-#4
#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
6 P  a7 h5 p; J9 \  \#1=5.
#2=10.
#30=1.
9 k( v$ _# e* R4 B& o2 a4 `*#31=#[#30+#500MOD2.]
( [7 e/ u# ?1 J' \- yM0
. C) F% r7 J! S
又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
: {/ W% U& ~' p/ G. E* L只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

. T9 z$ y9 `7 i9 I/ j使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
) T# z- _+ k' X+ Z#1=1.
$ n/ ^7 W( h: n, t#2=4.
#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
1 b5 C$ q" o3 c# d#2=#2-#3
' G/ m# i$ l2 h& [END2
2 H  \. @, P% Y1 i2 F) _* k9 v  cWHILE[#3LT#4]DO3
#3=#3+#4
! ^& T, U. R' L# c: l0 ^#4=#3-#4
#3=#3-#4
2 G% T. t4 V/ NEND3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
- g/ C0 z8 z/ [6 y) |
- u& a( |8 V4 \5 I7 k
法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
4 P% G3 g9 l7 M2 Y6 F3 `1 I#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
3 g. P4 w+ B0 k  R#1=#1+#2
! W0 l; k6 E' o" C#2=#1-#2
# z9 T5 J5 V% a#1=#1-#2
N2 IF[#2GE#3]GOTO3
6 K8 u1 l2 q( h5 {: k#2=#2+#3
#3=#2-#3
1 z" S; A8 V, E8 A) h3 w, b#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
) p5 d6 _8 O: G0 ]0 x$ }#1=1.
#2=4.
( N5 Q8 ^! l7 [#3=7.
2 U2 c. o$ R* o8 s3 z, f4 y: U$ a#4=9.
# L$ ^9 D- \( k7 u. v3 G- SN2 #31=1.
: J% `" e4 g7 l$ r#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
% k4 z1 R& X7 j8 ^# N! s6 h& p#[#31]=#[#31]+#[#32]
+ K$ N$ E4 R" n2 A/ c: e- I, F9 j  e#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
#31=3.
& {' s4 T# ^; {IF[#2LT#3]]GOTO1
0 A3 [# W# w) ~& T4 ?: X9 I3 s  ?" ^#32=4.
; [3 B7 ]0 ^3 i0 \IF[#3LT#4]OTO1
, G6 H0 Z; R# Q3 q/ CIF[#1LT#2]GOTO2
#31=2.
9 E* e+ j  C# ]& o: }  x) ^#32=3.
IF[#2LT#3]GOTO1
M0
2 Z, L! Y$ U+ e$ W9 q* V0 R
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶