數據交換法的使用

羅蓋仙

6 ~4 K- C8 S( O5 x8 v+ J
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
9 T+ e* c& u" ~8 b8 ]1 I有人說數據交換法.能用于何處???我來舉個例子

) y* O  M8 w; T) z9 e如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
. i" v$ s$ E# U& t6 D#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
* `: x( H3 b- v1 |' F! m
$ l) d, @( l2 q我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
) |+ P9 ~" c! m$ _: c0 Z: H% TWHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
- ]6 A% }+ k) s; x  P#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
* f4 y+ ?) e  }" _& O; m#1=5.
#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
1 C+ f8 \/ @  d* q& S7 r' n: pM0

* z/ d. o1 q6 _" [又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
$ G; h/ i/ n" c& ]- g2 u你的表达式中没有只是逻辑运算，
: s2 X0 K& Q) C) A* q只有逻辑判断有些系统版本不支持
) _- `4 L: h! ?( e) `6 b" V所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
/ w; E$ d7 A  q. m! s" e法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
$ {, V3 @& C9 K( {" E; ?8 d7 B#1=1.
#2=4.
#3=7.
  [: @" V: L5 M! Y- f4 v, \#4=9.
. G  D0 c; y% G: _' ?  XN1WHILE[#1LT#2]DO1
# z+ T9 F6 V) g: ^1 y: e( o) l#1=#1+#2
#2=#1-#2
  E9 }0 q! C4 {/ V( W/ X- A#1=#1-#2
END1
" j& Q5 n, g: d+ P+ YN2WHILE[#2LT#3]DO2
: l# `7 t( S4 v2 H8 o3 a#2=#2+#3
#3=#2-#3
, J/ O2 w7 B, q#2=#2-#3
! D" D% n- F+ H7 M6 O  F( hEND2
WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
! L5 f! X5 M, O8 |( [#3=#3-#4
0 \& L* C! v6 H1 B* i2 y  EEND3
4 e, p6 Z% m5 O. J: Y9 m3 NIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

) Q; p1 Z: V, g! _) }
法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
. F& C1 p8 J! y3 Y/ [$ {. u+ F#2=B.
#3=C.
. d9 P" F& v  X' J4 H8 J#4=D.
+ ]1 M( w4 ]+ p3 uN1 IF[#1GE#2]GOTO2
5 T8 U3 ?5 t% j7 |( A3 [. }#1=#1+#2
#2=#1-#2
% N6 y( |" l# R' d#1=#1-#2
N2 IF[#2GE#3]GOTO3
9 K$ e% ]5 ], m1 D#2=#2+#3
#3=#2-#3
# e# @, a8 R) R0 n; l3 W#2=#2-#3
N3 IF[#3GE#4]GOTO4
0 q2 w$ U/ [! E* B3 f#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
/ `5 ~7 N0 W8 d4 R8 }1 l) \" qM0

羅蓋仙

法二：使用変変數^^
#1=1.
* Y0 m3 t- ~. I6 v( j3 k3 ]#2=4.
+ i( n& L. F/ D$ i+ `) f" `#3=7.
#4=9.
" @3 q" I/ f+ B8 Z# L, s' v2 hN2 #31=1.
#32=2.
/ N+ Z; Y) H( ^# t3 B4 H; X# iN1WHILE[#[#31]LT#[#32]]DO1
* h8 J6 \# G! v# V/ @$ K+ }2 \#[#31]=#[#31]+#[#32]
  n* M2 x  P# z+ m/ e3 \8 k& |/ Z#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
6 a, ~: v' N" D" M#31=3.
' ^$ G# M( H" o: d) a9 {IF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
7 U& |+ @: V- r* H9 zIF[#1LT#2]GOTO2
#31=2.
: w/ ]; t" u( H2 r! H! R3 e#32=3.
: Y4 L6 {, J, M3 _5 |2 iIF[#2LT#3]GOTO1
M0
! w2 I- B( j! P% s: Y
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶