數據交換法的使用

羅蓋仙

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

; R8 {6 _+ X( {/ ]/ M; S; J* `如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
# V/ T* B) n0 V# Q, jIF[#1GE#2]GOTO5
#1=#1+#2
8 Y* y8 p! k" W#2=#1-#2
#1=#1-#2
#3=#3+#4
4 r& Y: J: H9 m7 R7 [3 O( Q" C#4=#3-#4
( t+ A- b( O8 g7 `" F! x# D#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
: l8 {1 i) U; P3 M1 W# r9 H
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
; ?+ }4 ]) m! V; Y- [" z方法B：
  ^! W/ a6 i# P% u3 e7 `WHILE[#1LT#2]DO1
#1=#1+#2
, q3 V# a7 n  U- E9 R; [% W# a#2=#1-#2
#1=#1-#2
#3=#3+#4
$ u7 k1 q( E9 E8 Z0 a& c) p#4=#3-#4
5 B9 \6 r$ {" j) W0 N#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
9 i1 [5 Q7 p" Y: T( c3 |" Z
7 m/ C4 t# N6 I4 v& M方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
& \+ ]) y3 R! k6 ?: f2 `- S#1=5.
! S" @6 |% p& G- `: P% D#2=10.
/ n/ x5 \* _7 v% w( C#30=1.
* l/ U! }4 T! f1 w*#31=#[#30+#500MOD2.]
M0

又想把它這樣寫
*#31=#[#30+#500AND1.]
' x! O7 L- \) b- _0 h" dM0

空气中的小鱼

回复 2# 羅蓋仙
  s% J" S$ {, i+ J( U你的表达式中没有只是逻辑运算，
7 a3 `7 j# x/ C! D  C+ |, Y只有逻辑判断有些系统版本不支持
* \  @( |  t/ \& X/ Q1 d8 a$ N所以，以上语句可以运行的

羅蓋仙

$ M5 ?5 w+ b: |9 }
使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
#3=7.
8 r% @4 j( H5 J' ?#4=9.
N1WHILE[#1LT#2]DO1
' c. N% \2 M" }" o, r  M. T% N#1=#1+#2
#2=#1-#2
7 ?! G( P) u( _#1=#1-#2
END1
2 x% s' b0 p9 B& [1 M0 i/ ^/ yN2WHILE[#2LT#3]DO2
#2=#2+#3
" S7 \% g, z$ O! d#3=#2-#3
#2=#2-#3
$ C/ M* W5 J7 y+ N3 WEND2
WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
0 J2 d' y3 Q! ~#3=#3-#4
END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
6 ]: `' o; q# f: U; U; u; k# rM0


3 E# ?( h; r5 v5 P  D6 S# C+ B法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
# o: ~, s. e$ a7 H7 Y0 m#2=B.
#3=C.
9 {3 R8 K1 Q0 Q1 J* y: J6 k( |8 h#4=D.
4 x1 n* ]* g: A: ^8 ?N1 IF[#1GE#2]GOTO2
  l- v2 T, w5 O. s( I- r0 g. h#1=#1+#2
#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
#2=#2-#3
" }% u9 w! v/ rN3 IF[#3GE#4]GOTO4
  }" @: p# P% ?" W- r% U$ h#3=#3+#4
& M5 Z( R7 x: p$ W#4=#3-#4
1 E" U1 u; L5 r4 _#3=#3-#4
N4 IF[#1LT#2]GOTO1
- }. @! ^. L4 h6 E/ x% T; Z: SIF[#2LT#3]GOTO2
& U# a& G! n' X7 _M0

羅蓋仙

( W( f5 z' k9 ?0 V3 j法二：使用変変數^^
. Z- N$ @* v! a. z7 l#1=1.
#2=4.
#3=7.
#4=9.
6 u# y3 L/ m, F0 Y( h! Z; h) vN2 #31=1.
3 I  d/ Y! a+ `6 k' C$ j7 f; R#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
$ C/ x: H' F' C6 E: s. Y#[#31]=#[#31]+#[#32]
( w7 q4 `/ b! Z' r#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
5 c, p  ^4 w6 w#31=3.
: P" [3 a2 c! w+ s+ lIF[#2LT#3]]GOTO1
#32=4.
( d0 x) k  z8 s& v  q# p, cIF[#3LT#4]OTO1
- k" h, B3 w: ~; P5 MIF[#1LT#2]GOTO2
% w3 [4 }0 F: e' R' n#31=2.
#32=3.
IF[#2LT#3]GOTO1
M0
; W2 a9 n) A* {" I* ]) y
4 j# x/ e4 g9 x2 Z: ]% w6 R) s看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶