數據交換法的使用

羅蓋仙

; r* a1 F  y& N9 B' a0 j' S4 h
- [5 ~+ I' v% w4 P/ S上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
. F3 C& G7 \& K6 i# I有人說數據交換法.能用于何處???我來舉個例子
: I) N; O4 g+ `
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
2 r' G- X0 ^/ E  Z& Q6 \& A+ v方法A：
  d; m3 ^- V3 S8 s% n: d/ W$ uIF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
  s  p) p5 J/ c% }: i9 F#1=#1-#2
#3=#3+#4
! X& H8 `* f- u1 g% A#4=#3-#4
#3=#3-#4
3 I$ X6 t6 x& eN5......此時#1的值已經置換過來了.#1的值一定比#2大

) A, R  @# k' }; n我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
1 ]7 t3 P% o7 t, T/ |+ p8 [方法B：
WHILE[#1LT#2]DO1
  o7 B. d) C- T( r" v#1=#1+#2
#2=#1-#2
5 ]7 S. P' r# B+ j#1=#1-#2
#3=#3+#4
% \, w& `$ M& r1 C#4=#3-#4
9 T) @* V, C0 |9 `& L#3=#3-#4
END1
) ^' s" [, B2 Q$ K* Q6 ]% c......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
0 r- y  m9 C  P# \9 c#2=10.
#30=1.
( u7 `' r9 L. l9 P6 Z+ q0 n5 q*#31=#[#30+#500MOD2.]
M0
- n3 m+ b* a3 Q7 ?7 x) j
又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
, @* K( ?1 O7 |1 ~所以，以上语句可以运行的

羅蓋仙

, H/ N( m- Z- {; T, k( l
0 {& L, z! @3 Y9 E: h使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
2 s: ^% P& d$ D! H#1=1.
/ ?- N' a5 c7 `! I# t; i#2=4.
#3=7.
+ y) ~+ v  N( M* s4 B#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
* _) J( U( @& h1 f/ h#2=#1-#2
#1=#1-#2
( ~9 g; Z( j: \! O& p! pEND1
* o. _6 a+ O, dN2WHILE[#2LT#3]DO2
#2=#2+#3
! ^1 `/ j1 U3 E% `#3=#2-#3
#2=#2-#3
+ g9 g, X1 _" ZEND2
/ f. ?$ T$ k5 B* OWHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
7 a) j3 n( l4 O; M0 M#3=#3-#4
  n( ?! G6 V. b7 b5 g! P2 REND3
! V8 _7 D, m1 P# p% V4 n# lIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
: u! ]! Q, f  pM0

5 @2 U! j9 s$ \5 r
法1-2：使用一般耳熟能詳的IF-GOTO
8 U, A  ]9 v: I1 u$ d#1=A.
* s; n2 G  y7 }2 s: |- e#2=B.
; v" P4 \- }4 G' E' N5 x#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
; \( f% m7 a3 u) I! |3 @; y+ H#1=#1+#2
#2=#1-#2
% N& s$ w( I8 ]9 T/ {#1=#1-#2
: _- F& R, `* I5 ZN2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
: c5 w) W4 j7 r. m$ G+ j9 q#2=#2-#3
5 h) \: `9 x, [9 ~. d# TN3 IF[#3GE#4]GOTO4
#3=#3+#4
# P/ M4 J" p  @3 P( i# h#4=#3-#4
% ?5 Q  Z7 Q) h9 O9 \#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
% v  P7 f5 W4 Y0 D: }9 JM0

羅蓋仙

$ I2 _! S6 c/ q% b/ F0 j- a! L
法二：使用変変數^^
: a9 n0 R* U: C#1=1.
#2=4.
#3=7.
#4=9.
N2 #31=1.
/ H) K: T$ N( O  K4 O" ]#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
' z" h+ a( v( l1 z6 ~#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
# B# ]6 Q6 J- x  ^$ C#[#31]=#[#31]-#[#32]
END1
#31=3.
" q6 E# t& ~9 B1 j% I  Q4 CIF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
( U# N0 r; h! lIF[#1LT#2]GOTO2
& ]& V" L; Z! ?2 J" f+ R  t+ ~#31=2.
: J, q$ e1 H9 a( B, U, L0 p#32=3.
IF[#2LT#3]GOTO1
M0

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

longmeier

好帖子顶