數據交換法的使用

羅蓋仙

4 s( c. R1 @  {( O6 a上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
" Y& d- e1 c2 H7 x，我看完之後有灵感，
) S1 O+ H' u! E' w; t有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
  f: U) c- D, L( P! o: L方法A：
( X# A( r  ]% [IF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
  s3 [5 D/ w5 G. @+ ~! {; h#1=#1-#2
# o, [5 Z# z+ W1 N& n% N#3=#3+#4
#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
( T  V# b" k! H8 j" r6 v% q方法B：
WHILE[#1LT#2]DO1
- m. y8 p# s7 f: O) s" q: s0 J1 B% t#1=#1+#2
7 L8 D  C1 D/ N7 |#2=#1-#2
#1=#1-#2
* S) [2 E7 M- z#3=#3+#4
#4=#3-#4
9 Z8 @- d3 v3 D7 g+ B#3=#3-#4
5 E( s* E- h( T# iEND1
5 Z$ f  }! u) a# J......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
$ }/ W$ H/ U# \5 A3 u/ I- B
5 \3 V6 ?  O- p( `3 t. w4 [方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
- T: L9 Z! @, Q#1=5.
#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
M0
1 }9 O4 E: h0 Q" _; G# [) f: Y  a
5 e1 O$ ]5 \4 I, e( r0 H; c3 D; O又想把它這樣寫
4 d0 U, W: c/ W: H*#31=#[#30+#500AND1.]
* C8 S6 i* H8 S$ C" l4 d6 gM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
# M0 V. Z. V* o# S只有逻辑判断有些系统版本不支持
" a! k8 o: N# F所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
  [# f+ u2 E8 _9 ]8 t4 q#2=4.
8 k# D, |1 v- p5 N# m: f8 P#3=7.
% y* v# W! N  M+ ?* i#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
END1
6 X: W# s+ \  o* x3 N  cN2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
#2=#2-#3
9 k9 ]: D7 K7 B2 jEND2
. x& X2 j. F+ P0 B6 r. {3 eWHILE[#3LT#4]DO3
! _1 k" ^6 S4 x+ i; i0 ?7 D2 C. f#3=#3+#4
#4=#3-#4
: g- J6 x3 o- y6 N+ K4 y#3=#3-#4
END3
* _) U) P: w: H7 l* a3 S, EIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
8 p% t6 K* f# U) Z

法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
; j# \) Y4 d( F2 G#3=C.
#4=D.
2 d; _/ D* |, _" J: a2 jN1 IF[#1GE#2]GOTO2
+ P! R9 n+ ^/ f% r9 ~. w#1=#1+#2
# T! j* J, K2 e3 |/ u#2=#1-#2
4 m6 h0 x! R3 N  T! W2 y6 r#1=#1-#2
2 I* q$ _8 f% JN2 IF[#2GE#3]GOTO3
#2=#2+#3
9 Y6 r! r" L1 _- I4 T#3=#2-#3
5 V. @( ~) e! ?& ~#2=#2-#3
N3 IF[#3GE#4]GOTO4
% z1 [& F- A6 u9 g* h! C#3=#3+#4
( @: D/ z- t" N! ^# i#4=#3-#4
! _7 C/ i0 k/ U) n+ V#3=#3-#4
  b; B3 Y7 K; R- SN4 IF[#1LT#2]GOTO1
) ]6 X& \6 t: k7 IIF[#2LT#3]GOTO2
3 o# T6 y2 N( A% j: y" uM0

羅蓋仙

8 }7 H, H0 I: H  O
! s6 A. c: P: e6 Y* E3 ~& d0 O0 W法二：使用変変數^^
#1=1.
4 a3 K0 @2 _; Z" V4 B# Q' n/ h: g#2=4.
#3=7.
#4=9.
; m$ r9 H3 ]8 i  X8 o8 XN2 #31=1.
- b9 c6 Z0 v( h  `5 C#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
# |% r0 a5 s8 r# @# n# B4 \* g/ d#[#31]=#[#31]-#[#32]
END1
+ _1 _, Y6 c- E( \4 x) `9 O* C/ C#31=3.
IF[#2LT#3]]GOTO1
. X5 i# M0 o5 }# l/ [2 N* M#32=4.
9 G  }! A7 y  l7 @( Q$ N4 o2 VIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
2 D# ~. D( X" [- K' Q#32=3.
1 C! D' @! p; dIF[#2LT#3]GOTO1
M0
0 K: Q+ |9 C& H! f- W+ t
  B% Q" `0 q" e5 ?( w2 ]& G- ~看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶