數據交換法的使用

羅蓋仙

- x* c3 U- {9 f) f# t
  }+ v1 S3 o9 D上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
+ j9 v  v2 m1 a# x6 n* w  ]，我看完之後有灵感，
, x% T! b# q3 z4 {1 ?有人說數據交換法.能用于何處???我來舉個例子
8 a! ]! m+ T5 \5 A' Q4 Y
0 G- m3 h4 j- O& {. f如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
#1=#1-#2
7 T3 ^* j8 J2 s9 P; `#3=#3+#4
; T% q9 T4 c8 M5 @#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
# J5 O& e$ d9 _) e3 m- y
- D8 o2 e5 u. E* y# a; k+ Y; R我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
) M: ~9 r. G( V' n#1=#1+#2
#2=#1-#2
#1=#1-#2
" p9 \1 Y, Y9 w* R6 X! l! _#3=#3+#4
7 y$ l, Q# B4 g7 f9 s/ b! J9 y0 ~; V#4=#3-#4
#3=#3-#4
. _8 o$ _" |, u4 I% N% h/ YEND1
! ?# N+ {' ?8 \7 ^......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
& B* U8 b- w$ t! U; p/ N#2=10.
" K% \, s4 N  \* S#30=1.
*#31=#[#30+#500MOD2.]
# f) K" u$ r# K3 m. Y" m9 Y9 f1 f, {M0
/ \+ _$ I, k% V9 v7 y4 [4 e7 E& E
) l9 a0 n6 D1 v  `, Y又想把它這樣寫
' R5 C. S9 \9 x*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
) x& S5 o& T/ A3 Y* C8 t& Y) H只有逻辑判断有些系统版本不支持
# S, f; d( R6 Z0 R1 j$ i3 b. k所以，以上语句可以运行的

羅蓋仙

  r. E3 m- q( F* O7 r0 ^- N% I1 K* M9 Q使用數據置換來按大小排列，大→小
9 x3 K: I* e9 D7 y5 u! d8 Y- G% I( S法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
, C) O* n  X1 L! d#1=1.
#2=4.
4 {# j- b% a( u#3=7.
#4=9.
) T" x, Y" p) e6 ]8 a2 SN1WHILE[#1LT#2]DO1
2 A5 _1 A1 \6 G: `0 a#1=#1+#2
2 l7 y2 n" {9 C; p6 G" ~( N#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
#2=#2+#3
& B! H. Y$ ^2 V3 n% A#3=#2-#3
#2=#2-#3
END2
WHILE[#3LT#4]DO3
) `  L2 O8 |! z+ r- {- P5 x#3=#3+#4
# @& }% I  m6 y; h9 M9 h4 C; v#4=#3-#4
2 M4 U# v( t+ X" F6 C#3=#3-#4
END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
+ x; ?9 c: H  }4 B. Y0 D) A4 _5 pM0


法1-2：使用一般耳熟能詳的IF-GOTO
2 r; h* \- G* S, T* q7 c#1=A.
#2=B.
#3=C.
#4=D.
) r; s5 U9 \3 E1 m5 aN1 IF[#1GE#2]GOTO2
" b1 h; {: o4 A#1=#1+#2
#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
% \  J/ Q; R! [#3=#3+#4
#4=#3-#4
* h( K; C/ L' O# R#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

! g* o% y7 [+ ~
$ G& i* d; T6 ^) B) X法二：使用変変數^^
8 b9 H- `) [; O# v# Z#1=1.
* v! J5 d% T! R, P( Z2 I4 A#2=4.
#3=7.
#4=9.
N2 #31=1.
0 w$ o) w! ]1 l$ T1 e$ S#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
+ r6 g3 I, q  P6 C#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
' i) s5 {5 j! J: W6 u#[#31]=#[#31]-#[#32]
2 ^4 F9 f7 \, v/ x' Z# x7 v7 @" ~; sEND1
8 k3 U; u- F& D3 P% N4 I#31=3.
# d& U0 z. a3 S1 {6 Q! ^' K  }IF[#2LT#3]]GOTO1
  f4 t8 R- w3 g. {4 ]% g5 c#32=4.
IF[#3LT#4]OTO1
' O' l7 _2 g4 j0 M! JIF[#1LT#2]GOTO2
#31=2.
#32=3.
IF[#2LT#3]GOTO1
M0

! P4 q. Y  d. L看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶