數據交換法的使用

羅蓋仙

  E% ~$ I3 N7 w' ?) {
8 I2 q* V  r  ^/ i上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
& E1 [4 c# @: g% t& d8 W* B
; _: m) v' G$ g2 n& d/ d. h如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
+ x7 O; y+ ^! j! q使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
4 ^4 C2 G; P, t* _/ e5 H" }$ L7 z( V#1=#1-#2
7 k5 W3 S/ `# x* @: L+ G- r#3=#3+#4
& K3 Q: f$ u0 H" L0 R: s) |& b#4=#3-#4
4 C5 D! C7 O# T#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
5 |, d% `- B' P) Y+ p& E#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
2 G. g/ O- _+ Q& f1 V! ]END1
; A6 V9 T1 j0 V1 K......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
0 v( g* M6 r2 R3 H6 Z% ?5 `  a" |
( h. r7 q2 c9 a" W方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
! z# {8 _6 Q( t. M#30=1.
) J7 ]! `8 m9 C1 \' O5 C3 Q1 O  b*#31=#[#30+#500MOD2.]
4 @5 q  ~9 `. |( Y+ xM0
/ a) V" l% B. y9 v; c0 Q! o( `
又想把它這樣寫
* n9 `. r* [, ~8 ]: }$ U*#31=#[#30+#500AND1.]
( O( d( w4 R" F* PM0

空气中的小鱼

回复 2# 羅蓋仙
4 |; |2 D- b# y4 y; o: _你的表达式中没有只是逻辑运算，
* q! V$ E2 T; d9 D只有逻辑判断有些系统版本不支持
0 j- X1 z8 U3 b4 v  s- {+ M所以，以上语句可以运行的

羅蓋仙

. |. L( s1 p, J8 W
使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
: T5 y9 F5 N; ^; y( k, ?#2=4.
& l3 m3 e, L( l#3=7.
#4=9.
9 ^- N) i; h6 Y8 Q& PN1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
9 E1 j% j) o9 s4 [( @# W6 F#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
#2=#2+#3
# O& M. |1 }, ^* A3 Q1 [#3=#2-#3
#2=#2-#3
$ Q4 d8 b& U! Y+ X% c6 X0 Z9 wEND2
/ U" C4 J- {# B5 Q9 X1 vWHILE[#3LT#4]DO3
% I# N/ B" b% i7 b#3=#3+#4
#4=#3-#4
#3=#3-#4
END3
( p2 E3 O3 h$ ?& G3 I4 AIF[#1LT#2]GOTO1
, E0 T8 L9 t. h- G% B2 @IF[#2LT#3]GOTO2
M0

( g9 ~0 Z1 ?; a- N- R8 P( @
法1-2：使用一般耳熟能詳的IF-GOTO
" S- T8 i2 h7 h! W#1=A.
#2=B.
#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
- p  E- G& t2 m% _: M#1=#1-#2
N2 IF[#2GE#3]GOTO3
; e0 m$ l$ p1 M  N0 ^0 w  u#2=#2+#3
7 f/ y. b6 o: b# }5 M. {#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
) s$ [$ q- o' @! Z* o#4=#3-#4
1 k, B- u. J7 J- `4 H* _% o( l#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
0 S) u- V) W. c: {% F, a6 YM0

羅蓋仙

, ?, p3 V# Q% V/ b  m' ?0 L法二：使用変変數^^
; n0 U: ^* |# N3 V$ Q& n( {" c- Y$ g#1=1.
#2=4.
& B) Y9 {/ Z# K#3=7.
#4=9.
7 a, a3 z) Y  T6 F& g# ZN2 #31=1.
; b% z/ Q* U$ P1 M+ t6 \#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
4 Q' i# g0 Y5 s2 _9 {) z; U+ E#[#31]=#[#31]+#[#32]
9 d8 m' x, a4 z0 }#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
8 M$ X5 `$ `* i/ [! r% jEND1
3 ^, N1 R/ x/ |, L8 T! ?#31=3.
IF[#2LT#3]]GOTO1
6 P# r% f- \( N& H#32=4.
  D7 v7 w. L0 {2 o+ |5 {8 A1 Z4 gIF[#3LT#4]OTO1
+ L- a; C+ z5 w' U% [, s# dIF[#1LT#2]GOTO2
#31=2.
. B  U( \, p, \8 a, \#32=3.
IF[#2LT#3]GOTO1
- o* Y+ Y. E) ?2 X* k5 N, r, ~M0
* Y! J  |1 T. {
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶