數據交換法的使用

羅蓋仙

- U* C1 s: L" S6 O' \
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
1 d. i2 z& b% ^- z/ H
6 {6 x7 a& f7 Q6 |, z: t9 p如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
2 `: e  c$ f* I# C' F方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
% ?, g  ^5 I5 y3 \#2=#1-#2
#1=#1-#2
+ o5 n( g5 }! T! h$ D1 Z7 g, m#3=#3+#4
#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
1 m3 @' V$ {. C, J- w
/ N. }7 k! r; Z  n) t+ r8 i7 X我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
. R  j4 x5 d6 ~6 OWHILE[#1LT#2]DO1
+ Q" O( \! X2 v' i#1=#1+#2
5 a, V+ R9 u- c8 c" q9 o#2=#1-#2
#1=#1-#2
2 \3 t( L3 \. z  M, _9 g) G#3=#3+#4
#4=#3-#4
4 q/ w6 K% {# M$ T; F#3=#3-#4
7 f  L: q0 Q- l9 x# eEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
- y6 n* ]; O  }5 V9 U5 O( K2 g#1=5.
1 S' k+ {6 Z/ G) R4 I% I#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
# p  s$ l- U/ @+ FM0
" @% [7 c* W  S$ e4 y2 m
4 F, V6 Y  `7 q又想把它這樣寫
, S* j  o$ N) ?: D: _*#31=#[#30+#500AND1.]
% Q$ X& @' X0 T$ YM0

空气中的小鱼

回复 2# 羅蓋仙
8 w" z% ^, b; e% n) I" v( H1 x你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
- Q% \) {  V0 w, m所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
) C6 ~& J5 Z/ H1 }  i2 X#2=4.
#3=7.
' ^8 p# R2 z: S/ q) G& j3 v#4=9.
  F3 c" Z& I& p8 r+ f. V( r3 IN1WHILE[#1LT#2]DO1
#1=#1+#2
, B$ P% p2 _, w' l#2=#1-#2
$ B/ H* C% F+ D4 ~" u; X( H#1=#1-#2
END1
2 d, A' Y8 @5 Q( H* V" R" ~: j0 hN2WHILE[#2LT#3]DO2
2 G; k0 ?% r: h7 H, O  B#2=#2+#3
5 [2 U" x# P/ |#3=#2-#3
# P% n1 L4 T$ @  l( i4 \#2=#2-#3
END2
5 G: M5 x1 M# y" LWHILE[#3LT#4]DO3
# l0 Y8 C1 h/ \#3=#3+#4
2 R8 U0 x* K0 g#4=#3-#4
#3=#3-#4
END3
IF[#1LT#2]GOTO1
! f5 I/ [9 r" V. C6 mIF[#2LT#3]GOTO2
M0


; j4 _* S1 X9 f) f4 T* _* s法1-2：使用一般耳熟能詳的IF-GOTO
; g; ?: X  f# R& |; U3 C: `#1=A.
#2=B.
5 f& y' M1 a. |- h& o7 e9 L" N#3=C.
+ v' H( w: \* ^#4=D.
/ ?) f# o# Y' i( ~* PN1 IF[#1GE#2]GOTO2
% ?0 x. {- j3 A#1=#1+#2
#2=#1-#2
, x6 ]' H" i% z& U8 c#1=#1-#2
$ M/ O6 c  ]& m1 H$ R+ A' j$ E8 oN2 IF[#2GE#3]GOTO3
#2=#2+#3
0 @( E( o$ b/ j# k* H* u#3=#2-#3
#2=#2-#3
; ~# X* ]" i$ w# s( v; w/ i/ CN3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
" L& w$ N" x! }8 u#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

7 C0 k$ @1 ~$ ~2 U6 ~. f
6 f$ `0 d8 X0 t/ K% D+ u9 B% n法二：使用変変數^^
/ Q2 i- }2 z0 E$ c#1=1.
1 ^7 ^3 J* |5 F) v#2=4.
  G% L! N) b* a  D; P0 c#3=7.
#4=9.
N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
+ R- \/ b- _0 m* a$ |5 w9 W#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
5 U! e4 ^5 r3 \0 F5 F: T$ ]$ V: ^) n#[#31]=#[#31]-#[#32]
END1
+ }5 N! I; V- r0 f) ]0 c  s#31=3.
IF[#2LT#3]]GOTO1
, d0 g9 p) }. a- c* {#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
+ W9 [7 p) Y% Y; M#32=3.
IF[#2LT#3]GOTO1
9 d4 V0 ~7 f" H& Z1 c$ c8 A. ~M0

看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶