數據交換法的使用

羅蓋仙

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

7 e! `. e! e7 Y如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
- D( `+ a; K% y2 K. n( P; y" V#2=#1-#2
#1=#1-#2
' _0 B, n( Z+ f0 y7 t#3=#3+#4
* u0 {3 k4 [9 m8 }5 ]. ]) V#4=#3-#4
#3=#3-#4
: H3 v9 R. e* _1 pN5......此時#1的值已經置換過來了.#1的值一定比#2大
# ^8 M7 t3 u2 L! {/ V
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
% R/ E) M7 y! C- B- W9 P$ O& `#2=#1-#2
#1=#1-#2
  ?2 A  s) w# c7 B2 D$ |! q; r7 B#3=#3+#4
#4=#3-#4
1 k7 U7 `3 ~- Y0 f* j$ Y" s( X* c#3=#3-#4
  B/ P) y* {; GEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
: D2 |1 h, [2 h5 T" F
1 L2 s. q  c( m/ l- s0 p; Z方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
3 c* |+ K1 i! Y; k: @" Q#2=10.
$ g4 U. O: a+ K. y8 x9 U6 }#30=1.
8 d1 M. w; J# U0 h; j) W5 W*#31=#[#30+#500MOD2.]
+ P, y- T' P# ?: oM0
- h. {% |# {8 R2 o3 D$ q, ^
+ T2 F; D4 \1 ^. }9 B又想把它這樣寫
, ~; }8 F3 a/ D, A) `" l! }*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
; e+ y6 A3 j5 B: @3 n6 w- {  E只有逻辑判断有些系统版本不支持
! f6 Z2 U/ J5 h0 r. d7 S/ X所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
  t( L) o; e  O/ |% P法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
' L, p$ q' ^* I, f* {' k3 h#1=1.
' C( ?: p' E: W$ G7 f#2=4.
: u' ~8 S  Z- ~) l#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
& ?9 H* i- L! V) u+ X* V0 W' ^#1=#1+#2
5 i4 s$ n+ Q* n, s- |#2=#1-#2
  K% d8 |/ p' U+ }# J: D( e0 a#1=#1-#2
* G$ Z: D" i) I/ w; U/ u8 H# MEND1
N2WHILE[#2LT#3]DO2
; ?0 O4 ]- D- I7 s#2=#2+#3
* e2 G; D: R. _6 U* c1 r#3=#2-#3
#2=#2-#3
, m3 n  d0 ]5 n6 m3 ?* ?0 |( WEND2
: H- w8 N: d: j$ r; MWHILE[#3LT#4]DO3
8 Z; O, E& c) E; f; q; C#3=#3+#4
#4=#3-#4
#3=#3-#4
7 W* S$ I% P$ n" u4 d9 K0 W% VEND3
IF[#1LT#2]GOTO1
/ ?. T" r" N6 b9 F" ?IF[#2LT#3]GOTO2
" v5 ?9 U4 A; p0 h/ BM0
+ o- k! f6 a$ I
- J8 A7 F# h$ u! A" f" u! ^( W
法1-2：使用一般耳熟能詳的IF-GOTO
/ s% ?$ g8 }6 t7 n  ^$ O#1=A.
' E* P0 M" H; Y) s7 \  w6 V9 l7 q#2=B.
8 O7 b  {; ?0 n1 S6 Y- {' t3 l#3=C.
! `3 L+ U7 o5 M8 |#4=D.
N1 IF[#1GE#2]GOTO2
& b& _, Z4 `- ]3 r#1=#1+#2
! i0 u  R2 S5 D3 z/ f- [#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
% d# F+ e5 O- N, O7 X0 O#2=#2+#3
' Q) L% \! U1 Q( E+ j#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
$ b3 [9 G- w' F' n$ G* O, r0 t#3=#3-#4
4 t1 V' h% u3 S- ~# L: A5 E4 D/ ~N4 IF[#1LT#2]GOTO1
( q7 H3 j  C- ^& g9 nIF[#2LT#3]GOTO2
* K% u' K( ~  d9 }* K" ~8 n) ~M0

羅蓋仙

  m) }) U: t9 K. k. d
+ U) N5 c+ l/ m4 U. k! @$ |3 T法二：使用変変數^^
8 j3 M5 D0 {. Z  Z4 |" o( `#1=1.
#2=4.
#3=7.
6 l/ }9 t& l5 G+ Y# @$ j( x- T6 w$ c. g* o#4=9.
# c& P4 V# p" t% f4 BN2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
" N: V' F, Y* V. q* F" d7 p: Y8 e' {#[#31]=#[#31]+#[#32]
3 p$ P  H8 C1 u& u5 E3 X4 J#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
#31=3.
; C3 Y: y& A9 w5 v2 A7 T/ c+ UIF[#2LT#3]]GOTO1
#32=4.
. b0 B; x8 d1 F2 T0 Z- e5 s& e! W: H2 [IF[#3LT#4]OTO1
* p4 w2 c1 N# }6 c# T( NIF[#1LT#2]GOTO2
% J% R4 B" w; y# p& }#31=2.
#32=3.
/ e- @% M: }! v, r, V$ p* X) tIF[#2LT#3]GOTO1
/ O. }8 A6 {2 f( G: vM0

看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶