數據交換法的使用

羅蓋仙

% k  [: @1 Q/ Y$ _6 ]
3 [1 _7 G, x5 }; h: ~/ [上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
% _) v: o+ s0 m; U. u，我看完之後有灵感，
+ \0 y1 d+ w/ X2 l. `有人說數據交換法.能用于何處???我來舉個例子
( \% {! ]4 M( ^
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
% I- j/ B6 T9 C. K  I, B5 \; J* e方法A：
" Z. \; W/ f6 xIF[#1GE#2]GOTO5
#1=#1+#2
! g: X# F: W/ b0 e& S$ z; |#2=#1-#2
#1=#1-#2
" @. W  S' q4 g0 S. M0 n$ M#3=#3+#4
#4=#3-#4
: B. i5 C$ N* M8 @" d2 T& ?2 c#3=#3-#4
0 T1 b4 R1 \9 \1 ]8 _5 W0 p) Q% E" ?N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
6 h2 e9 X- u  u; O方法B：
WHILE[#1LT#2]DO1
+ ^& U. b$ ]# A  m: r* B" a#1=#1+#2
* T8 o( x, J; ?0 G- `: G#2=#1-#2
8 W" P: _1 j3 w, l  |#1=#1-#2
- Z, F) x8 [3 v# U- J#3=#3+#4
5 a4 s9 j( g% R2 b9 k6 z#4=#3-#4
/ y" W1 i  a. m4 O* p3 \. M2 C#3=#3-#4
0 x$ G' K- a; A9 K0 J- W# C; J3 fEND1
7 b( t* A: x9 x$ T7 ~......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
; w) g" O' u5 m! D) x# {5 z
( d5 A, ^  \/ k: f- X" D0 x方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
. _+ h1 F' F; p4 a#1=5.
) B% L6 A7 e1 D! c$ b. {#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
M0

又想把它這樣寫
: U& K9 L6 w1 Q! j- D! K* s*#31=#[#30+#500AND1.]
& W; g. E( ]" e$ \M0

空气中的小鱼

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

羅蓋仙

/ u& j, f2 ?( h, z% R% p; v# I* H
) B0 L+ v9 _$ Z使用數據置換來按大小排列，大→小
( v$ D' W# f; B( Z8 n- t法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
5 e+ o7 l- s, T! s#2=4.
" P( X# ]- ?; A  G$ }  A! p#3=7.
#4=9.
, }: i5 \. u! W) o$ IN1WHILE[#1LT#2]DO1
( B; ]3 u+ X0 k) c( E9 A#1=#1+#2
, ]; D. ?; `; L% `6 O$ r, A0 X" p: D; f#2=#1-#2
; m1 t+ c  l. J2 w$ s& E% g#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
& K+ a8 g; B- J#2=#2+#3
# I" x! v* C3 B. X: W" }+ _* q#3=#2-#3
#2=#2-#3
END2
* Q8 A6 \+ `  }3 U. U. H4 mWHILE[#3LT#4]DO3
$ K" G6 R( x  T#3=#3+#4
#4=#3-#4
#3=#3-#4
7 X' S7 Y3 @& J2 J1 G8 SEND3
) ~9 v# C; t9 Q* HIF[#1LT#2]GOTO1
5 l( o5 _& J8 a& e+ H, K2 N" AIF[#2LT#3]GOTO2
  Y- w6 B: p5 g. Q/ C! |, |, ^M0
. e; s& \2 a7 z+ w2 Y
) g4 Y; G2 k* ^# t# N
法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
% E$ w- U: `" b: r( C; {- t#2=B.
3 c7 G* t+ x5 ~7 ?6 g. T#3=C.
/ G& N! B' w5 H- Q#4=D.
N1 IF[#1GE#2]GOTO2
" [! h) i  q) b3 N#1=#1+#2
! ^: h' H0 D2 h. L$ U#2=#1-#2
0 Z4 j9 N  N; _/ j0 m3 @9 W#1=#1-#2
6 ~& K+ \3 \; Z& fN2 IF[#2GE#3]GOTO3
8 p' n- Z- l& P# }#2=#2+#3
' \. M$ d  G3 M2 `#3=#2-#3
* q% k4 q# h% E1 G+ O5 g#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
6 J" m! d7 M- l9 i7 _8 B' \; z% ^#4=#3-#4
#3=#3-#4
4 e  p" i8 y7 f1 y( E8 rN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

5 }  r9 q3 v9 [0 x法二：使用変変數^^
7 X' S. s* e3 K& d$ {+ O2 l. [0 f/ l#1=1.
#2=4.
9 P9 f+ j( ^) L1 u1 P4 s/ O* [8 J#3=7.
#4=9.
N2 #31=1.
5 ?! a1 h6 ^; y& ~#32=2.
0 r3 {! Q! l- s+ S+ TN1WHILE[#[#31]LT#[#32]]DO1
, z9 v# U7 K( _9 O3 x( X& F, ^/ g#[#31]=#[#31]+#[#32]
9 p0 I& x/ B: `4 X( Y$ N#[#32]=#[#31]-#[#32]
& Z! H! J9 D2 k& G6 d! H: `#[#31]=#[#31]-#[#32]
% R4 e$ ~* x4 TEND1
5 b" \( R6 T' P  L# v- x, l7 T. {#31=3.
# P3 E& z; A  H- A+ P) {8 q0 ^IF[#2LT#3]]GOTO1
7 e7 u8 q5 _1 k/ t( ?/ w% s#32=4.
) w  d7 W5 X& |7 F4 x5 V2 S& CIF[#3LT#4]OTO1
* W+ h- H% B: b/ FIF[#1LT#2]GOTO2
8 ]) c& G2 G6 A% N/ I% D  ?! _#31=2.
#32=3.
IF[#2LT#3]GOTO1
M0
: i, `, r) ~1 f; Y' C
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶