數據交換法的使用

羅蓋仙

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

- l8 F# y1 X, [+ g* r* x6 k* X4 `7 v如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
9 J4 x% U% v% ~( _9 O  R& ^使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
. u2 W: V/ z6 r% G  D6 M7 A#1=#1-#2
#3=#3+#4
#4=#3-#4
5 g5 q3 N6 F( @( i* A: b#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
3 v& V3 I2 n, t$ t5 U4 K) w5 A
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
: P# a4 M' b1 p' {- G方法B：
; }7 |6 X1 Y: Q, g$ DWHILE[#1LT#2]DO1
5 E: D" b: F# R/ A5 @2 x# }#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
% P/ k/ i% Q, ~% N* [#4=#3-#4
#3=#3-#4
END1
' V" H2 P9 m& b/ y4 k% s7 H) W......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
4 p3 F3 c. Y$ [) `0 V#2=10.
  W  |# G( Z/ ^- [#30=1.
- q" U1 T0 \5 T0 n) G% h$ s3 |*#31=#[#30+#500MOD2.]
- s) S! U# @# ^6 @M0

8 H6 v" Y- w' d- v0 E6 W6 F6 ]" b又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
. I. H; {: G: t/ \# [你的表达式中没有只是逻辑运算，
5 E% X* R. X+ a6 X8 K1 p$ ?. K6 N只有逻辑判断有些系统版本不支持
; N( z3 N, K. X+ \9 B所以，以上语句可以运行的

羅蓋仙

( y' e% y  Y& c+ X7 _& M
* f, U" e2 m1 V2 C使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
" s! I/ t3 `0 b" T' n% v. {; l  `#2=4.
0 ^) e, `3 d6 `#3=7.
/ |% \2 f2 z& ~3 d% `+ C: f#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
, E5 c; _, d6 v) b7 R7 D' ?* C1 L#2=#1-#2
#1=#1-#2
% _' V0 W4 U) O4 r& pEND1
N2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
#2=#2-#3
9 ?- [6 r; e9 a. K0 |3 C- xEND2
WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
#3=#3-#4
1 N1 C2 P7 ~; W7 L2 uEND3
$ l# ?' Z/ L2 IIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
8 Z9 D5 R; Y! w) T+ i( S

& B* `6 ~9 X2 d1 k法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
0 S9 }5 C; R, t4 R#3=C.
' v" H) w8 ^" X# q# v* C# R: Z7 q#4=D.
. U6 w% [1 {9 [8 r. |! l$ LN1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
2 J7 n3 d1 K/ Y" n7 q" n& \#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
6 V  Y5 Z$ C1 t* k! f: @) v#3=#2-#3
/ \! [/ C, b+ s5 [. W4 a#2=#2-#3
N3 IF[#3GE#4]GOTO4
0 Q! K7 U: I( _5 x# R3 A#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

! Z: j5 @9 K) ~: W法二：使用変変數^^
#1=1.
& ?2 V- r( b3 `6 U- C3 q#2=4.
#3=7.
#4=9.
N2 #31=1.
#32=2.
9 z4 Y9 q$ ^; W7 L- o+ \N1WHILE[#[#31]LT#[#32]]DO1
. \% T9 ^8 I* R; @+ p. \6 Y#[#31]=#[#31]+#[#32]
! e  y2 g  [. j' G#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
4 R! T$ L1 I2 z" A9 LEND1
( J, T0 D2 z9 y#31=3.
  [- x' B- f; \( |1 TIF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
# A7 M( o( F! Y* k9 yIF[#1LT#2]GOTO2
7 `# r( g+ o: i#31=2.
+ K; Y* g6 p0 B: f4 B+ m* d7 Y5 c, M0 ]" q#32=3.
. Z: b0 f3 X: x& O  h. H, t) zIF[#2LT#3]GOTO1
M0
2 [$ y- B  d& G1 M0 q" H+ O
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶