數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
; u3 y: V3 M$ I& A9 V，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
+ d# P0 u/ Z+ V
  X1 W" x4 V/ w' V/ D如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
4 v8 A! K5 F' N0 o: h% i使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
, x% O3 ^* F0 |' d+ r* c1 q6 E4 q; X#1=#1+#2
#2=#1-#2
#1=#1-#2
- V9 S4 M" x( S! P  _; k6 _1 i6 @#3=#3+#4
#4=#3-#4
6 P* j- Z* g: r# _3 ?4 \#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
" z) C6 z; v7 I  U+ D" f
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
' W# x( d; i+ I& d; P方法B：
6 v2 x+ m+ d! b; XWHILE[#1LT#2]DO1
#1=#1+#2
/ }2 l* x: p- U$ k" j! ~# L#2=#1-#2
4 z. B9 m6 G: d4 w; D$ }* }#1=#1-#2
  V+ U7 ]8 O1 U+ x  b: C6 U- R; F#3=#3+#4
; _' U7 K' q7 }6 b$ i: c6 X! t#4=#3-#4
#3=#3-#4
+ l- F+ J7 ?5 dEND1
& D5 i+ }$ y( \$ Y9 p; f5 [......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
- f- u: k- W; ~; o7 E5 z# a#1=5.
3 J' H7 g9 \. o6 P& |, Y6 V#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
5 E6 f1 ?" B# `! r( U4 n  FM0
* l' k) ?1 }1 o
; B9 j7 X/ k0 z又想把它這樣寫
*#31=#[#30+#500AND1.]
" l* w9 ~1 l/ jM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
$ N' [. \8 f3 J9 C5 e7 V所以，以上语句可以运行的

羅蓋仙

, \4 n! X$ _; {: l/ l& j! ~使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
! |4 r) B* H! [3 g8 y( ?#2=4.
$ k; x2 t: G! p; i8 r/ q+ A& _#3=7.
#4=9.
! Y( A6 t8 |2 t0 T5 Y( \N1WHILE[#1LT#2]DO1
#1=#1+#2
! P* \( x! b$ R& `4 F" C#2=#1-#2
#1=#1-#2
END1
( ]; D, J# r+ F3 i) }' KN2WHILE[#2LT#3]DO2
1 [5 x7 A+ z- e6 D& A5 `#2=#2+#3
#3=#2-#3
#2=#2-#3
% P) j, _# u; Y' s5 B" NEND2
& C3 O& X0 e  e$ S' B- W3 K4 \WHILE[#3LT#4]DO3
#3=#3+#4
) D' u: y& t. ?& _, ?* ~, {#4=#3-#4
2 t% O7 _3 E8 @: _7 `9 r3 J  N#3=#3-#4
( T; p: o2 i( sEND3
, |0 Q3 i2 s/ H* uIF[#1LT#2]GOTO1
, h6 B4 b5 e9 A! @5 Q- F# H( m! TIF[#2LT#3]GOTO2
M0
" E, Y6 ?) }# F, F* L7 J4 S. B
4 A2 t$ \/ m2 ~( [) X8 s
法1-2：使用一般耳熟能詳的IF-GOTO
7 g2 k: E7 A. N) ~: V2 i#1=A.
# v+ E& d9 }% q9 b' u#2=B.
  r5 x& j; m9 `9 {( S. S6 y) A#3=C.
#4=D.
" W/ |" t: U$ k* R5 u% ~N1 IF[#1GE#2]GOTO2
9 M% Y7 \# f5 X2 C#1=#1+#2
+ Q/ ?% R+ h3 m( D" T#2=#1-#2
7 z% v' n$ l& o2 V" t4 V#1=#1-#2
$ Z" d( `. s- r* L  C/ [N2 IF[#2GE#3]GOTO3
#2=#2+#3
. q: p) [7 o- A- V# M5 O3 Q#3=#2-#3
#2=#2-#3
+ w6 V: ~$ w  x# I  QN3 IF[#3GE#4]GOTO4
  X' N% m) c2 V* a' P#3=#3+#4
3 ]5 c! {4 U- k#4=#3-#4
/ W$ p; [: j( \8 U' V9 k#3=#3-#4
) V# H" S$ p0 a; @N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

! E& O5 r! Q( s; o
+ A5 v6 Z! D0 j9 k4 i法二：使用変変數^^
5 m: Z% [' s1 W/ ^) U/ W' u#1=1.
#2=4.
#3=7.
, m+ C8 [( d, P: N1 C& `#4=9.
N2 #31=1.
#32=2.
; u9 ?4 W: H" d( KN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
% ?' ~6 G1 Z) Q6 b' `9 H#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
#31=3.
# B0 k' s, T5 a0 v) Z& Q7 |) FIF[#2LT#3]]GOTO1
#32=4.
2 h$ q5 r/ K" sIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
#32=3.
IF[#2LT#3]GOTO1
M0
+ Q3 C  w# t! K
& j$ I4 V- _; ]看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶