數據交換法的使用

羅蓋仙

( Q3 G) x; }1 ^; H  s2 s, d上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
! S  r+ m( B7 ]5 D1 J* i" z有人說數據交換法.能用于何處???我來舉個例子
6 r9 d/ F4 W# \+ y6 `% M$ X
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
% V( Y1 @9 ?8 X& {4 H" b0 i* @6 A& z- u使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
0 l4 a5 y. y9 j0 e8 {% C$ L9 }$ p- h方法A：
; ?7 a+ f( Z0 }; `% ^* OIF[#1GE#2]GOTO5
#1=#1+#2
, r4 j8 @0 {1 ^- j' A#2=#1-#2
#1=#1-#2
#3=#3+#4
" S. X+ D  V' A7 x. d#4=#3-#4
' O# Y/ l6 V% @9 d# o1 H#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
* n* J' C6 N! ~
: f0 f5 F; l# k7 B8 w我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
6 m+ m$ ?2 r2 f: w" X7 K! ?+ X7 H方法B：
WHILE[#1LT#2]DO1
9 _9 ]  H( J9 @$ M6 ?3 l, i; z* J: f0 {#1=#1+#2
#2=#1-#2
$ b0 U6 s. V6 E- M+ B1 b#1=#1-#2
6 O0 v1 x% }/ h- k! X0 Z* ~#3=#3+#4
3 H9 B/ W) S$ X: l4 y#4=#3-#4
#3=#3-#4
9 o) q. y2 C* |& yEND1
$ w" r8 R1 s/ d+ _) x......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
$ ^( l7 r, o4 h6 V9 i4 c
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
/ n! J  \* D5 }#1=5.
, s# L3 K( }1 u#2=10.
#30=1.
, {) m( ]: y8 k+ {*#31=#[#30+#500MOD2.]
) X& H' r/ ~7 p6 c, n2 J. ZM0

又想把它這樣寫
! f+ G* {1 w* z) K# w1 w*#31=#[#30+#500AND1.]
# V: }  A$ l  AM0

空气中的小鱼

回复 2# 羅蓋仙
6 n4 J7 i3 z' s8 o! p; _& \你的表达式中没有只是逻辑运算，
. K1 X% C, P8 d) c- p; I只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
#3=7.
2 `- w: I  Q0 L4 J#4=9.
N1WHILE[#1LT#2]DO1
" c# T/ }, \, w% V2 r" H1 e2 [# E#1=#1+#2
( d% s+ S, l" c& H#2=#1-#2
0 p( h" y6 u% x3 m#1=#1-#2
$ U; ?3 X; v8 B4 k. ZEND1
N2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
#2=#2-#3
* V' e7 q/ K7 cEND2
WHILE[#3LT#4]DO3
#3=#3+#4
$ A3 i" e: ^$ V4 d- _. t# K- U3 q4 s#4=#3-#4
#3=#3-#4
END3
0 }0 q6 u/ [6 mIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
; ?( z  r. B( w/ c; ~4 bM0


法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
% ]! G) |0 M5 v2 p+ o#3=C.
#4=D.
, Q9 {9 }& s9 L1 U$ v: xN1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
#1=#1-#2
/ k& ^. E% M3 o. FN2 IF[#2GE#3]GOTO3
" G  H9 E6 D  s+ x# w1 N#2=#2+#3
+ \; J; q& S$ W8 ^#3=#2-#3
#2=#2-#3
) F4 X2 x# Y0 x& y- h6 fN3 IF[#3GE#4]GOTO4
#3=#3+#4
- q1 _' O$ T+ t: Z" z#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
% `+ _( W1 y- k; h. _IF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
#1=1.
#2=4.
; R4 i& ^' ]3 T; p#3=7.
' x; T& }! }9 e: O#4=9.
N2 #31=1.
# ]; \, Z6 }3 N2 u. X0 {# o3 x' F#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
  X( ^4 a2 F! `; J. i  {- t#[#31]=#[#31]+#[#32]
% g$ m7 Q- r- U5 w  Y' z+ P#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
8 X, }% n6 p! k! ^1 eEND1
#31=3.
IF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
#32=3.
" d+ y/ J! R& z% AIF[#2LT#3]GOTO1
M0

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

longmeier

好帖子顶