數據交換法的使用

羅蓋仙

2 _5 @  b- |+ W" S上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
) j. j2 V2 x5 U) U# G. J，我看完之後有灵感，
0 y- a1 \! H) m/ {0 d$ `( f有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
  Y6 H+ L. f% O, q使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
7 g2 _2 t. e# A1 X( LIF[#1GE#2]GOTO5
#1=#1+#2
1 e$ q: L3 W, b! r! J#2=#1-#2
& V; p# c2 @! ~/ l$ f: c/ n0 @#1=#1-#2
#3=#3+#4
: m: c' Y" k; c3 D; t#4=#3-#4
7 w& ]/ V9 ~- X  l, P3 S" p+ V#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

6 S! I3 A: Q9 d我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
- L; J- N& h6 ~# w" WWHILE[#1LT#2]DO1
3 O# x! L3 J7 e) P#1=#1+#2
, G( c$ K, x5 s  K3 L#2=#1-#2
#1=#1-#2
- q8 M  k7 E! t* I#3=#3+#4
#4=#3-#4
#3=#3-#4
: u  F) J; h/ d3 @END1
5 {  R/ g" s. g- Z; S4 q......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
6 Y2 E6 G- H0 C6 l8 o) @
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
5 O; J9 m2 H9 K4 _#1=5.
#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
M0
. T( Y0 e1 }. Q) p* s* l
  H6 |' |: Z  J9 Q! d; D% \又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
7 A: D0 E7 b  |  j8 d- t你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

: U/ [' t0 ^6 ~: |/ O/ N
使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
# }$ ]' S: L! Q6 m#2=4.
; K0 H6 U6 Z& D4 v  @0 ], B* K#3=7.
#4=9.
: M4 H% s; Z: V0 tN1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
4 N$ a8 f# S; K5 R2 n#1=#1-#2
' p3 U/ r% p+ W6 BEND1
  b! s  C2 l) r4 I8 @- iN2WHILE[#2LT#3]DO2
) \; [- b* C2 N5 T/ Z#2=#2+#3
3 o5 _' M- U# E, Y, S#3=#2-#3
#2=#2-#3
! N' f8 p6 m( b2 y) L* _7 ?) gEND2
WHILE[#3LT#4]DO3
2 C1 y2 H; U/ V1 j! {#3=#3+#4
#4=#3-#4
#3=#3-#4
END3
! X8 r0 R) [/ p" CIF[#1LT#2]GOTO1
6 K$ G9 u3 b) y* I0 kIF[#2LT#3]GOTO2
+ D8 h3 k! m) }. o- z5 C1 bM0
/ ^- g% E% B# x5 z/ K  }* b
  O! U! p: ?/ Q" C2 n2 `0 |
( h" f( `" I5 c8 B4 w+ H9 ~法1-2：使用一般耳熟能詳的IF-GOTO
5 w, _: G! G" b& }) S; V5 F$ J" L#1=A.
#2=B.
#3=C.
#4=D.
" \+ |$ C( J) UN1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
& `' j) E( H& ]+ W3 ?#1=#1-#2
: k; ~( {/ q# u- f& NN2 IF[#2GE#3]GOTO3
#2=#2+#3
7 [1 q4 |1 q$ j/ W: d4 I#3=#2-#3
/ U& n* E2 |3 E4 g* p#2=#2-#3
9 l, q+ s! a9 Y; HN3 IF[#3GE#4]GOTO4
" O& Z( z! I& {3 S! Y#3=#3+#4
#4=#3-#4
#3=#3-#4
% k% F2 ~) }2 a* _* v' ~9 m: {N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

$ |5 l  y' ~7 j" B
法二：使用変変數^^
#1=1.
#2=4.
: W( Z' O6 a0 P2 o% u3 b; d#3=7.
#4=9.
* A. I% |7 h1 y- ?6 F9 hN2 #31=1.
#32=2.
/ k: u/ S  o: ]* {3 f5 ^N1WHILE[#[#31]LT#[#32]]DO1
$ ?. \- m2 c# T4 _. q#[#31]=#[#31]+#[#32]
' r/ e3 Y; F, B+ `! q# }#[#32]=#[#31]-#[#32]
3 p. \0 Q$ o1 n; e& `#[#31]=#[#31]-#[#32]
: y9 n6 `7 S/ t- o$ o3 X4 e7 YEND1
#31=3.
IF[#2LT#3]]GOTO1
#32=4.
: u% |+ ?% j% {IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
#32=3.
IF[#2LT#3]GOTO1
M0
  E! |- L: E5 M* `
) m5 i" L( r* f9 z. M! f* C看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶