數據交換法的使用

羅蓋仙

1 |* r( ]+ o" |' N% X上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
5 g# u$ |  W7 }. W，我看完之後有灵感，
% z) W9 k% `% H1 d6 y2 Z有人說數據交換法.能用于何處???我來舉個例子
" n* v/ o! B0 Q  H9 d( [
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
+ `. w5 Q2 u$ K7 O) `使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
4 i; W$ h( X+ z7 P" W方法A：
/ C' i+ |  {9 S5 q7 fIF[#1GE#2]GOTO5
+ G9 d$ C* E- a; V$ d0 f3 h) C#1=#1+#2
2 d( L. J, E6 ^  z5 q#2=#1-#2
, v: c; S  J5 D9 }#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
4 z# j1 O$ ~+ H) J+ f9 pN5......此時#1的值已經置換過來了.#1的值一定比#2大
4 U+ n$ r( Z- r- j
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
# H" W( V1 f) [. F9 H- B+ `5 i' g#1=#1+#2
#2=#1-#2
#1=#1-#2
' _  z! `% ^. [4 |& I7 R: T' [#3=#3+#4
4 @* L: e- C3 R! T9 V#4=#3-#4
. l0 m/ w/ C  p. ]. @  y+ q4 T#3=#3-#4
/ [' V: [/ {7 m/ [( L+ F! ]END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
/ }2 G8 ^$ {5 S1 U- v/ n) O7 }
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
1 h9 l7 s; g  W1 I% G) w7 @5 B#30=1.
*#31=#[#30+#500MOD2.]
M0

又想把它這樣寫
& L1 T" Z1 h+ S*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
8 r. R  K$ ~2 w6 E你的表达式中没有只是逻辑运算，
* e$ s8 d: L/ E% e! A4 C( u" ?只有逻辑判断有些系统版本不支持
$ T4 r8 r2 r$ x) |0 v: S所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
9 {3 w8 S+ C( O; G#1=1.
+ l# R$ W$ W* ^: C#2=4.
, m, U4 G- Y8 J! X. o7 T#3=7.
: H6 |& i6 P# x+ X, o#4=9.
N1WHILE[#1LT#2]DO1
/ [+ u& C0 |, c' g#1=#1+#2
. T+ b) d4 Y# p# [8 K# i2 m: E3 q( n#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
* j9 E, Z. P# I% A/ D* R#2=#2+#3
#3=#2-#3
#2=#2-#3
END2
+ `: ^( p6 h/ ~' p, H, e; iWHILE[#3LT#4]DO3
! C* s$ M- Z" J( {#3=#3+#4
9 y. G$ v% a! X' x% r#4=#3-#4
#3=#3-#4
9 @7 A. b9 u* M5 ~+ R3 l) EEND3
4 O$ q! y7 Z( U9 e' _3 j  e7 cIF[#1LT#2]GOTO1
1 w, L1 t; f5 b8 d2 @: bIF[#2LT#3]GOTO2
M0
9 }+ `: L/ B+ [* b% Y
; `- b, Z- @% q* U1 c6 Y2 E
) L+ S. x% j4 c: s; o0 E& K, H! \1 Z法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
0 W8 V$ L" v8 Q7 M8 x1 E#2=B.
#3=C.
#4=D.
1 G; [7 F& M+ b- m2 e+ c/ PN1 IF[#1GE#2]GOTO2
; ?0 I2 P$ v) e2 O2 c# C#1=#1+#2
#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
/ f( t. P/ w/ e: D$ m! `( _#2=#2+#3
2 S0 ?* u9 n% h) a3 w) \#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
7 h) r8 k+ P# _/ ]; n/ N; U#3=#3-#4
N4 IF[#1LT#2]GOTO1
7 ]/ e, ?2 r' ?IF[#2LT#3]GOTO2
& q9 H8 F' M7 M$ ~, w0 v- PM0

羅蓋仙

法二：使用変変數^^
! V/ X: |# {# {3 s% L" ~8 |* X#1=1.
& E" n# U* k8 k% E0 M! i: v' {* e, N#2=4.
* ^, e' R# |! R/ }$ F/ @1 j#3=7.
) E" A. ~, U$ _- `/ ~#4=9.
$ e( |, ^$ u: S0 v4 ~6 H% t- mN2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
1 m% p  R2 g+ x+ c8 R  `9 s' T#[#31]=#[#31]+#[#32]
5 T  g2 l& G1 Z& a$ T#[#32]=#[#31]-#[#32]
4 v- F3 K3 H5 J' O#[#31]=#[#31]-#[#32]
END1
#31=3.
IF[#2LT#3]]GOTO1
" u+ G# ~# }+ l. e#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
/ g  Y" @% g: h6 A8 ?$ ~$ u#31=2.
#32=3.
& M+ S' T/ [) h( n' KIF[#2LT#3]GOTO1
M0
9 t$ P& h" X: w9 C6 K8 B
2 @4 r$ I# R9 ^  o; R  q& Q1 P看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶