數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
, X" p; q1 V$ E* I# y8 p) F4 R，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

* I  F$ R! D; ^0 h如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
5 [& T( b3 z0 ~  S* f4 e#1=#1+#2
#2=#1-#2
9 Y' K0 c' s# T9 y( b#1=#1-#2
- y- G' }' r- q: Y# i" |- U#3=#3+#4
#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
8 W, o% P/ I1 [+ v- g* P" ]2 R
# N% {, [7 M1 `$ H0 {, q: N& X我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
2 G$ t3 \0 u' a方法B：
) |2 G, n- v8 N8 b  }WHILE[#1LT#2]DO1
#1=#1+#2
, V3 B+ o5 ?+ s) V  y, a#2=#1-#2
#1=#1-#2
#3=#3+#4
- P& J7 m  ?& F5 d" h) C#4=#3-#4
#3=#3-#4
5 `/ L! b7 U8 h9 }6 F) ZEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
! t5 t- w) [! F. g. R
; v/ c: e$ r2 |- p2 w! G方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
- u1 y5 ~& Q+ l& j% P#2=10.
#30=1.
  u" ?$ s2 F( o8 r/ I* H*#31=#[#30+#500MOD2.]
- n) A0 Q0 t! i9 Q- O" G7 kM0
; g% f# I8 o5 |6 ]! C9 B% q
又想把它這樣寫
+ R0 ], P1 K+ f- H*#31=#[#30+#500AND1.]
M0

空气中的小鱼

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

羅蓋仙

使用數據置換來按大小排列，大→小
. x+ y; a8 {9 J' v. g7 O: _" H法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
( Q, k4 S  L; l3 E" h2 i9 m#2=4.
#3=7.
" }8 Q# Z9 R0 E& X- t- N1 ?$ E#4=9.
0 g7 Z$ w' Z, X4 e# h/ |# mN1WHILE[#1LT#2]DO1
, E/ l8 J) @$ x2 N+ Q- F& [#1=#1+#2
#2=#1-#2
#1=#1-#2
! H9 a( q6 W. K4 y- w. uEND1
( K# ], T4 h% _$ b  O4 NN2WHILE[#2LT#3]DO2
#2=#2+#3
" R; h+ v, N* p4 x5 @+ W8 G#3=#2-#3
0 ?3 W+ O$ b; K* u0 T9 R#2=#2-#3
END2
# d6 |4 F3 p1 q5 o6 `WHILE[#3LT#4]DO3
7 i7 k! ]0 u* Q3 {#3=#3+#4
! p$ w# M& d4 ^  g5 n/ T#4=#3-#4
#3=#3-#4
END3
" V7 s& X8 H# R' @IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
* @1 d# P9 d. f  GM0


法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
: J$ N8 X* e7 [: V#2=B.
- B6 x# F3 z7 n& B; l#3=C.
2 C' F4 l/ \/ P#4=D.
N1 IF[#1GE#2]GOTO2
/ |2 `- @" E4 c# p" c#1=#1+#2
#2=#1-#2
#1=#1-#2
2 z, |* P& @7 N/ aN2 IF[#2GE#3]GOTO3
- o; C  ]3 i, ]1 U$ L#2=#2+#3
. F9 X8 T+ P( j7 o4 \/ o2 v#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
; r' c$ r9 C! d8 o$ [" I$ Z#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

! M% \& Z& N+ M- @9 d2 x; g
* S* \4 j! Z6 n: g# p: T法二：使用変変數^^
#1=1.
+ f/ x7 E/ \% ]1 p; F#2=4.
& X$ |( n2 G- u6 `3 F3 x#3=7.
#4=9.
N2 #31=1.
#32=2.
3 y0 L; Q% ], V8 N4 u  ?N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
) h9 H- i/ ^1 L6 h#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
& w  t0 a  Q- a- T#31=3.
IF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
8 {5 _6 q" k: ]6 H# B#32=3.
IF[#2LT#3]GOTO1
' Y) G# J2 B1 C# |" Y6 cM0
/ n$ }, |0 Z6 a' _: W
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶