數據交換法的使用

羅蓋仙

! {- h3 _/ W* R( R$ ]: _' B上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
0 M  e- K. g0 s6 G* |& F- i有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
, d2 c6 s, {/ j  \% k方法A：
IF[#1GE#2]GOTO5
" q4 i0 n- M* N% `$ z/ r2 S#1=#1+#2
#2=#1-#2
7 h5 ^8 V. t- G5 `5 {7 ~8 e#1=#1-#2
#3=#3+#4
% a& Y. Z& _! h$ e& u#4=#3-#4
#3=#3-#4
+ R3 A4 B4 e) {2 O5 B  UN5......此時#1的值已經置換過來了.#1的值一定比#2大
6 i0 v5 b) a6 S( C% q, w& H3 A% V
0 J9 F- v% M1 B7 g2 b8 K我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
- x! E- p# Y2 Q, v* D. E) C方法B：
3 n5 s- ~' b  [8 ]: \WHILE[#1LT#2]DO1
+ J  c! A1 i( a" V7 p3 m( f#1=#1+#2
5 M6 A* \- j# H6 v' z# z#2=#1-#2
#1=#1-#2
#3=#3+#4
" n5 Q( u: a0 B3 n: ]! m& p#4=#3-#4
2 J% C& e) e8 U+ S6 i/ c+ m! p# `#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
* k" U4 A2 ~0 _( Q9 a4 y2 L" |: E#30=1.
*#31=#[#30+#500MOD2.]
) o0 k* C9 M/ jM0

- h- R3 E; r* F6 ~又想把它這樣寫
0 i9 {4 X! e9 X7 O*#31=#[#30+#500AND1.]
9 d- o/ ?3 i( N8 r7 c! OM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
2 a# p; I3 F6 ~% I#1=1.
#2=4.
#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
5 ~. K) L) S: ?# F6 ]% g& Y#1=#1+#2
#2=#1-#2
#1=#1-#2
END1
% J0 w) ]5 x7 x2 KN2WHILE[#2LT#3]DO2
6 l$ J& g- |+ f2 u: g+ D, e#2=#2+#3
#3=#2-#3
#2=#2-#3
END2
WHILE[#3LT#4]DO3
#3=#3+#4
( L( w/ i* ]- o% R! c/ L#4=#3-#4
4 X3 N4 U5 k0 i  p9 q#3=#3-#4
  x+ U" D+ a" YEND3
; T% E. P/ S* q$ l$ u! sIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
) y! ?$ m& ]+ V. xM0
6 {3 v8 [% x* z  n

& s8 W) M* S  ~3 B% _1 Q法1-2：使用一般耳熟能詳的IF-GOTO
+ [: d3 ?4 D; \1 O/ E. E#1=A.
#2=B.
0 f2 F2 p0 X  [& U3 a# G#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
0 V- Q; E* w4 V) B/ @#1=#1+#2
#2=#1-#2
#1=#1-#2
3 M% Q0 ?$ g( s; m! I( kN2 IF[#2GE#3]GOTO3
& f2 ]$ \1 m% O0 h! F#2=#2+#3
#3=#2-#3
#2=#2-#3
8 n/ u1 T6 E3 a9 ~. pN3 IF[#3GE#4]GOTO4
4 w( T0 V6 |9 E9 l9 ]2 a' _, U$ H4 X#3=#3+#4
& b$ @: j! S* _8 c0 x( ?4 p#4=#3-#4
#3=#3-#4
; l" V7 H, |7 C$ X. IN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

- V/ U, @1 f' X
- W8 u6 L1 I) l! }& d0 ^法二：使用変変數^^
#1=1.
& ^0 l$ A& c3 b: r, ^0 E6 b#2=4.
2 o) a- N, [, s; P#3=7.
' z! X, _' w' }- C- P) s#4=9.
N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
( ^% m1 P) D* t* c#[#31]=#[#31]-#[#32]
END1
#31=3.
6 O, C  S- K) _' ~( `8 P& `% q% Q8 CIF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
! K5 t% ~% H$ S: ?2 o6 ^" h  wIF[#1LT#2]GOTO2
#31=2.
$ D  V* h" W7 k/ ?* F/ F: ?#32=3.
  L+ c0 [" W2 A! ~5 X* {) y3 eIF[#2LT#3]GOTO1
# R6 ^) V* l, XM0
& P* R4 ^& o( X8 _; |
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶