數據交換法的使用

羅蓋仙

# g# m* K9 \8 M' N: c上次某個大大發：「編寫加工中心優秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有靈感，
有人說數據交換法.能用于何處???我來舉個例子
# _+ k& W( w& A" F( F' l
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
8 h8 o+ X1 X" p: V0 Y# {1 t: b#1=#1+#2
4 H* C7 a, |$ k#2=#1-#2
; ]! ~' {! Q% U, ]' R) Y) p) F#1=#1-#2
* ^: S% Z, k2 @$ G9 ?8 w5 n- K#3=#3+#4
#4=#3-#4
- O/ Q% T( `7 R. Z, Q! N: s! B: q2 j#3=#3-#4
. Z7 n' [* {) w/ ]% PN5......此時#1的值已經置換過來了.#1的值一定比#2大
8 M7 ?3 ?4 E* K: ~+ L- g0 i3 W
) p, d1 N" g% G  o; Y( o8 H/ l4 X我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
/ m- {/ i& ~' b* J4 U+ \方法B：
# n$ _  s: C8 w: T- n; w* WWHILE[#1LT#2]DO1
0 \  `4 W4 }& [6 T8 e#1=#1+#2
#2=#1-#2
#1=#1-#2
2 {% [4 {9 p, B5 E#3=#3+#4
#4=#3-#4
#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
. r' W/ s, z' u/ o- o& ~# [  ?
+ z2 Y% W! }& C方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
' x4 b" R* b/ L$ X8 O& K. [#1=5.
#2=10.
1 L! f2 i" x1 t' P( {#30=1.
*#31=#[#30+#500MOD2.]
M0
- y  V# u* q; W! l% t! r
  z) @* J& ~/ |# w& D又想把它這樣寫
8 M8 \' Q7 C" g) X4 q*#31=#[#30+#500AND1.]
: U8 r& r  i& o3 ~M0

空氣中的小魚

回復 2# 羅蓋仙
( v5 U5 Y: @% s; _你的表達式中沒有只是邏輯運算，
0 y, r5 D. ^. G( s* }/ @只有邏輯判斷有些系統版本不支持
所以，以上語句可以運行的

羅蓋仙

  O( H6 ]8 J6 C: G使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈從大到小排列完成
' ~) _) i1 t7 e; h) ~#1=1.
#2=4.
#3=7.
3 v+ Z  a0 O  m2 r, D#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
6 x3 ~0 T; y, L5 Y7 S- M5 r9 GEND1
9 _+ [% m5 p" G. d. AN2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
+ u- Z( X9 R  {- O3 X#2=#2-#3
. N( X2 D0 B1 \! B! ~6 k. y- D% nEND2
WHILE[#3LT#4]DO3
+ j' ]# P& o: m#3=#3+#4
#4=#3-#4
#3=#3-#4
END3
* J- ~/ L0 }6 r9 q/ ~IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
% A6 b4 |7 j; j8 oM0
" Z: O  J; G2 `$ d. D
0 d6 \! I1 k' ~
法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
$ y  \8 y% Y% P, F7 b#2=B.
5 L1 J! Y. ~) ^7 x: U( t5 b9 J#3=C.
9 c7 ]  T/ Z& c; f* j8 o#4=D.
2 C4 E! `1 h6 ~  k3 b1 Z. c) ]5 \9 v% qN1 IF[#1GE#2]GOTO2
#1=#1+#2
7 v/ D8 K  m9 j#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
! r: Q) m) g7 i! M) a#3=#2-#3
( q$ f/ V9 C- T* ?5 d, ]: n, V! ]#2=#2-#3
3 K( V4 _6 Y9 u! A- p2 jN3 IF[#3GE#4]GOTO4
7 m( y) u; }+ V2 q#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
, o# c5 ~9 n1 \7 E" VIF[#2LT#3]GOTO2
/ t5 @- k# ]: q: WM0

羅蓋仙

, O9 c) v9 @' E. G/ {
法二：使用変変數^^
5 T4 }8 v2 N" ]$ s9 o+ H#1=1.
#2=4.
' ?7 G# W: j- U4 S& Z* I/ \#3=7.
" g" A: _2 J& I4 q; P0 C#4=9.
N2 #31=1.
. o/ \4 A9 e$ J$ w#32=2.
8 Z0 f( A% {3 `1 V: H& ?N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
) u: }4 Y$ a2 s$ ]* h" u9 G- y#[#31]=#[#31]-#[#32]
END1
$ K  `  N+ V, a+ H0 A#31=3.
/ m# t! |* e+ z: a. [2 t& Q1 N0 [IF[#2LT#3]]GOTO1
#32=4.
  c, X8 n$ T7 j4 I: H* jIF[#3LT#4]OTO1
% c( ^" j. z; G! x% T& iIF[#1LT#2]GOTO2
#31=2.
#32=3.
IF[#2LT#3]GOTO1
M0

  \4 C# S% i! j  w$ i看你習慣用那一種，其實還有其他的方法

longmeier

好帖子頂