數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
; h3 J5 c! x: k! o，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

# t8 c. ~  W2 ?如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
0 }* u' V+ M$ J, ^0 t5 p3 P使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
% S' }% v" e4 d: B; f! pIF[#1GE#2]GOTO5
- |9 A( k. t6 L8 q4 e" l#1=#1+#2
#2=#1-#2
#1=#1-#2
7 m7 W( t! |. ^; R1 {- W0 H#3=#3+#4
#4=#3-#4
, w1 L" o& N/ u( S1 c* i; g#3=#3-#4
; ^, ]9 V. t/ _7 K! F* A1 PN5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
9 k- M! C. v* @+ @WHILE[#1LT#2]DO1
" ]! H5 G1 M0 q8 Q#1=#1+#2
& F. E/ F5 o' c% L' P6 Y( V0 H#2=#1-#2
#1=#1-#2
, d( t6 A0 n+ p) E' T: x#3=#3+#4
#4=#3-#4
#3=#3-#4
END1
6 j( I' \3 v; f4 L1 G......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
. X4 V& C3 Y7 _' x8 V7 I
0 [/ I. J' d0 \% j7 F方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
# U2 ?0 V1 f% r/ g! K6 _+ o#30=1.
*#31=#[#30+#500MOD2.]
M0

又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
# F4 M$ K, L5 g/ B你的表达式中没有只是逻辑运算，
  d( Z4 g+ I9 t  A( }" d+ `只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

: i) Q: [! |, G& @5 q/ M% T
: _/ m3 R% `) Y. V+ {6 \使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
4 p; O- c! `/ k& ?#1=1.
#2=4.
4 B1 b9 k) y& V- |' {  ^% N3 W#3=7.
. m& s6 f& ]+ @5 }9 l1 D#4=9.
' b, V/ G2 U5 @" @: Z3 @  TN1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
; T1 G+ P& ?) e1 c# B( G) G#1=#1-#2
, N$ l( ~) [' N+ @0 b4 K5 nEND1
N2WHILE[#2LT#3]DO2
#2=#2+#3
! G5 H5 a: l; I* ]/ h9 V#3=#2-#3
  O4 Q5 ?+ L& x8 F! _9 X3 X/ d#2=#2-#3
END2
( h1 m+ G* p$ L, ?/ L! KWHILE[#3LT#4]DO3
- p- Z6 D! ~$ u7 T! g' m- K2 o#3=#3+#4
& E% ]" }1 U5 d7 c#4=#3-#4
#3=#3-#4
END3
( t5 d7 K/ a  c& {IF[#1LT#2]GOTO1
, e. g/ T$ e$ Z3 g5 g7 O! SIF[#2LT#3]GOTO2
M0


/ j* }% U$ T2 Y% q9 X. @5 b7 K6 ^! a法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
: a9 \, v% K9 J: ]#3=C.
  J9 Q/ b6 l& p  O4 f* P#4=D.
N1 IF[#1GE#2]GOTO2
* [6 ?0 p) _: W. S: u#1=#1+#2
* O) K. h$ d# S) k3 A#2=#1-#2
#1=#1-#2
0 N/ R. j" M; @0 C# P4 r7 B& YN2 IF[#2GE#3]GOTO3
#2=#2+#3
0 {/ W" u" T( x1 B#3=#2-#3
* P( G2 i% m& q% Y% o0 @$ k#2=#2-#3
5 t1 S  x' @  ^% \N3 IF[#3GE#4]GOTO4
#3=#3+#4
6 @, G5 |% `& R2 i#4=#3-#4
# I+ |) O, U; c* O#3=#3-#4
N4 IF[#1LT#2]GOTO1
- R' X6 X9 o# PIF[#2LT#3]GOTO2
* V5 F, ~' N4 hM0

羅蓋仙

8 g* h' j, m0 Q' L  U" {3 x5 k& k4 Z
& Q7 v3 U. s8 R5 G7 g9 r; ^$ a法二：使用変変數^^
- @2 X$ m6 Q, Q! O#1=1.
#2=4.
#3=7.
#4=9.
N2 #31=1.
6 d" v" |0 ~4 I$ K#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
! H3 }  `; @( k! G  @5 B#[#31]=#[#31]+#[#32]
+ K8 E# m( u* v/ F" Y3 W2 R4 c#[#32]=#[#31]-#[#32]
3 @2 d2 }* K1 r, P6 f- F) g#[#31]=#[#31]-#[#32]
END1
4 y4 E. r9 T; T4 F9 u- e8 t#31=3.
4 K7 \3 e2 U+ {7 a2 EIF[#2LT#3]]GOTO1
% ~, n1 Y  b8 ]4 Z. [, b* F' N#32=4.
4 t% n0 F3 W4 V) rIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
0 C, C9 ]- G4 B#31=2.
#32=3.
IF[#2LT#3]GOTO1
, t/ b- Y, ~  y8 j. M- [* pM0

6 M* A2 {& V  t  I  j看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶