數據交換法的使用

羅蓋仙

0 |" C2 i4 @2 I& |& ^
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
9 ^- E1 ]) M" w- _3 p，我看完之後有灵感，
' C6 K, |2 e. `( u, F有人說數據交換法.能用于何處???我來舉個例子
' F" }/ O  Q: m8 e* k
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
- F& D. {* I" B1 a6 i: M3 @+ D#1=#1+#2
#2=#1-#2
) \& K# @& U  s# f#1=#1-#2
1 ?7 O* T+ l" T" r#3=#3+#4
4 o: ]- r1 a$ ~7 m9 V#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

: v8 ]' y9 r4 x" [1 }4 N- [6 I9 Y& B我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
4 J# H% i5 R; j, D5 O' N! S! d6 V方法B：
& X. B3 I2 q' j6 J- N, w  WWHILE[#1LT#2]DO1
6 Q) `' b# u  r#1=#1+#2
#2=#1-#2
0 q0 ?( d7 e4 L; x4 ]8 q#1=#1-#2
+ D2 z" J+ s; E#3=#3+#4
, c: C4 J+ ?9 k. Y+ c& W& ?#4=#3-#4
#3=#3-#4
9 W9 m1 N' _0 D6 g1 U( c: J- JEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
% K( \( A: c4 u9 d: v
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
1 C/ g, u% Q7 s/ J# q0 ~& }#1=5.
#2=10.
# @2 y3 M  d# ]/ h, h/ ]4 r4 n  t#30=1.
# P4 U! ~' g0 |& Z- [7 r, g*#31=#[#30+#500MOD2.]
$ |+ D% s  m- W/ K. BM0
3 E1 ?8 ?$ C" |6 ~$ p
又想把它這樣寫
% y$ ?7 m8 \# c  J2 e$ ~2 O*#31=#[#30+#500AND1.]
' k/ v6 `( g0 W  IM0

空气中的小鱼

回复 2# 羅蓋仙
7 L3 F3 I1 |9 s1 B$ J6 M& X: J  }你的表达式中没有只是逻辑运算，
; c/ p- }9 ]$ a' Y只有逻辑判断有些系统版本不支持
& z$ F. L! G  Z所以，以上语句可以运行的

羅蓋仙

7 c# I. ]' |3 m
使用數據置換來按大小排列，大→小
: @, Y. _2 k# E5 b9 V2 P法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
+ b! W) Q' o# S#1=1.
#2=4.
0 |+ z" B* q2 x2 o/ v5 U#3=7.
#4=9.
3 a5 S( ^" z' M! ON1WHILE[#1LT#2]DO1
#1=#1+#2
3 |5 t; `1 X1 c  @! l1 X' J#2=#1-#2
; M! l+ Z* @8 e; u) ]8 d#1=#1-#2
END1
$ j' r9 t  b4 k4 V2 s4 l$ W" c& ?N2WHILE[#2LT#3]DO2
$ q  f1 ?6 A0 [9 h#2=#2+#3
#3=#2-#3
6 }! n, l% K1 T' |#2=#2-#3
+ {& f) A$ J+ O) [" J8 EEND2
WHILE[#3LT#4]DO3
! J! f( M8 X! q# B9 Q#3=#3+#4
#4=#3-#4
+ V# n# w; d) \; H: t! r#3=#3-#4
END3
IF[#1LT#2]GOTO1
/ ~, C9 V$ y6 z9 s: E; fIF[#2LT#3]GOTO2
, q1 H; ?+ S$ X- \$ u) jM0

9 m0 @/ [' l8 ^. F' ?& J, [
8 {/ q% U8 R# l5 ?$ J. B法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
' P. U" B3 l1 \9 u* n8 I#2=B.
' L( U" G, G+ N  I4 m+ N; }#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
# {1 q3 Y- X1 I. p( B. v/ x0 p* J#1=#1+#2
4 k2 A8 w* U9 Z/ L+ s#2=#1-#2
2 ~8 q8 _4 P# C3 t" w#1=#1-#2
N2 IF[#2GE#3]GOTO3
0 z' f; I8 ~- O5 C8 G  o& J2 L. l#2=#2+#3
#3=#2-#3
3 g: C4 a( c. B% ?2 Q#2=#2-#3
( {( Q( t4 }* h: S, w' u4 }* j, ]N3 IF[#3GE#4]GOTO4
, v. d' f2 {) f( x5 f#3=#3+#4
#4=#3-#4
#3=#3-#4
% }4 X, H7 D" fN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
4 K' i6 b; Q, P8 _M0

羅蓋仙

0 n2 [* \, c+ w6 ]
( P2 S7 S" ~) b7 R1 Q法二：使用変変數^^
9 A* e) [+ G2 ?, z#1=1.
#2=4.
#3=7.
( s  Y6 D8 _. E8 A* C2 C#4=9.
N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
& Y5 X0 e% ^6 t; O3 ^8 g" o- U#[#31]=#[#31]+#[#32]
3 C4 Z( i9 d, x7 \! S! r4 ~* n#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
) M' B+ c7 d/ ^- `1 FEND1
8 P5 E5 X- G" ]8 N5 j2 r#31=3.
IF[#2LT#3]]GOTO1
  X& ?8 W, ]  U5 p! G  ^$ }( L#32=4.
# `3 s( ]% Z4 P& E; ]9 ^; GIF[#3LT#4]OTO1
2 d6 w! p0 _$ z# J& K/ l. _; T$ XIF[#1LT#2]GOTO2
3 i8 s5 i2 ]" Q( ~" z9 V#31=2.
8 [8 u; S4 R0 y: \7 x#32=3.
IF[#2LT#3]GOTO1
) }% a: v0 P- @( D! FM0
5 D$ o0 ?6 e9 c
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶