數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
: H. q  C4 g' ]( y) z
0 {) @; q& q; V5 f如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
8 @; N  L. q$ ]* C9 x方法A：
7 c" e# O9 ~% V' Z2 fIF[#1GE#2]GOTO5
! i0 t* V" h8 E/ w: t9 ~+ l. R#1=#1+#2
9 ?6 S, [4 c3 R, H5 b3 M& _4 O3 s#2=#1-#2
6 p- G' o: `+ r4 t/ g  w* H& A6 L#1=#1-#2
, w7 V' ?6 O# w5 h#3=#3+#4
#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

$ X, e' p6 J+ a我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
& y: ^+ D* S7 }8 \5 ~: ?2 y#1=#1+#2
4 z8 p: n; O. [' d#2=#1-#2
#1=#1-#2
2 ?) t" v0 H" R, D0 E- F! N  d#3=#3+#4
#4=#3-#4
#3=#3-#4
0 n  t) d1 d4 j9 J9 m$ z& _' CEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
" W! y" R6 _. v2 K; ~7 s#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
/ b% W3 n% X% E& h- JM0
  R: Z% Z* I8 Z8 V
1 `4 ^' Y3 e% |0 H$ w* d又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
/ s; n- Q# L+ I4 Y; a7 n只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

6 l7 z- H6 Y. B( d7 _
. \. @. s9 t6 S. e" W2 a使用數據置換來按大小排列，大→小
: u2 p1 A2 I4 X- X  i1 D法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
7 V( k  N. `$ {- n) f- _#1=1.
" X/ g  l5 k! E, K#2=4.
* T- d- R# p4 x/ A# V9 q" u#3=7.
: j' Z* Z) e! g! V3 _#4=9.
N1WHILE[#1LT#2]DO1
* c" \; s# Z- M  V& {#1=#1+#2
2 u/ c+ W* W4 Z3 H" ?#2=#1-#2
#1=#1-#2
: x  M* W( C, v& ]; iEND1
9 K1 [1 l0 Y% l3 c7 ?% GN2WHILE[#2LT#3]DO2
& `5 D7 d7 L/ z$ j  F#2=#2+#3
8 X6 P# K' K& d1 F! R3 V. Q#3=#2-#3
/ ?1 `2 \3 w1 ?( \4 i% G#2=#2-#3
END2
6 c, D2 [: B) f6 y* }; N7 T1 O) ?WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
+ {1 Y; b7 y& J1 s# L4 z#3=#3-#4
END3
  Q" {4 `$ D6 T2 EIF[#1LT#2]GOTO1
; F$ p9 F- q$ W* K# C& Y) p, }( c9 qIF[#2LT#3]GOTO2
M0


& n4 o" Y, r! \3 M3 d法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
#3=C.
  |' K3 v% k: ^4 y5 y- T8 \#4=D.
6 b5 Q4 v  l5 s8 f3 O3 @N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
& T' j4 I( x" N+ K' _$ O8 C0 H- Y# o#3=#2-#3
#2=#2-#3
7 W" f; w& X; z$ }3 o  z: QN3 IF[#3GE#4]GOTO4
# c/ S% A# R: }) A+ Q#3=#3+#4
: L# A: j$ ]5 \1 M7 K6 n/ Y#4=#3-#4
+ P6 b# m: I5 Z! h0 m3 c3 U/ {#3=#3-#4
" [* J  F/ R9 t' n0 }: G# bN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
# X5 a( a6 `: {) h$ B6 V1 y: t#1=1.
#2=4.
2 ?2 Z$ h( z' a' K% m#3=7.
#4=9.
+ N4 p$ {4 {4 Z# S3 DN2 #31=1.
: F( {( G4 O# @  ~#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
4 f+ Y4 _6 j% }% I#[#31]=#[#31]+#[#32]
' m  e( w8 o" Q+ N7 @#[#32]=#[#31]-#[#32]
( ^6 M/ X( x* |#[#31]=#[#31]-#[#32]
END1
) o4 s3 l& ^4 ~' s, C#31=3.
IF[#2LT#3]]GOTO1
0 A$ c3 m8 f* {8 s; }" l1 ~#32=4.
IF[#3LT#4]OTO1
. f  O( o) R; X6 O: ~$ @5 WIF[#1LT#2]GOTO2
#31=2.
! |) c9 d2 {) W% m5 b; P1 y#32=3.
! b* X5 D. G3 e3 N- mIF[#2LT#3]GOTO1
M0

& T6 B1 F9 ?  p( G5 `/ ]4 o看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶