數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
- A4 `. U. U% U& \有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
$ n& F. y) b0 B& b" D/ v方法A：
IF[#1GE#2]GOTO5
7 ^: Y* s) ~$ ]- ^, w#1=#1+#2
% {; F+ |4 _' C1 Z8 f1 A: {3 O#2=#1-#2
4 j) I5 @! K+ x" ]- x$ k& S#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
0 w( @5 r" ^1 d7 r; `6 a1 b& f
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
' a+ t6 }8 i6 \7 H: ?* M' [方法B：
3 \: L- P9 v6 }& C; rWHILE[#1LT#2]DO1
#1=#1+#2
8 u: J, h3 F9 Y#2=#1-#2
$ G8 t+ `! I2 c8 e6 e1 o5 G! t#1=#1-#2
#3=#3+#4
; c9 x3 K2 x) @# q5 e9 y#4=#3-#4
#3=#3-#4
2 i3 z3 ~. L1 z* f6 w& v6 HEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
1 B! L4 O. T9 s, x9 ?, L
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
4 h: G8 M, ^0 B- n#2=10.
- K* J! Q) l7 d$ U( l5 J6 ^! ^#30=1.
*#31=#[#30+#500MOD2.]
M0

' m8 F$ I$ W; ?0 i3 ?又想把它這樣寫
# Q" Z' @6 W8 v*#31=#[#30+#500AND1.]
M0

空气中的小鱼

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

羅蓋仙

, D9 C4 M; Y: E6 ~! d) {- V9 h  J
* a8 @/ I: _5 i9 Y3 s1 t使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
+ A5 ]- o! Q0 Y' d4 E% {  h- P#2=4.
#3=7.
  D8 P. c  ^( z6 x#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
' e9 t: m9 D2 S/ T/ N7 _#1=#1-#2
END1
  I4 y, X' M! d/ Q* wN2WHILE[#2LT#3]DO2
4 k3 e9 z7 R: v: h% v; O#2=#2+#3
#3=#2-#3
4 G/ S+ F; }, G1 h$ o#2=#2-#3
END2
WHILE[#3LT#4]DO3
- @9 O3 K2 s  H9 {, D' F#3=#3+#4
#4=#3-#4
' u( a* ~' q: H# l9 Q#3=#3-#4
3 h+ \+ W# n/ e. a9 s- G  GEND3
IF[#1LT#2]GOTO1
& v! J/ ^4 ]9 {6 a3 M; m" XIF[#2LT#3]GOTO2
M0

1 [. c3 G; G! U
4 {0 X- j+ b3 ~6 h% }# e法1-2：使用一般耳熟能詳的IF-GOTO
: y2 d0 c* Z: v! `#1=A.
#2=B.
#3=C.
  P: c/ d: `- q: S#4=D.
N1 IF[#1GE#2]GOTO2
/ S; r  z: f4 W4 C. L9 O#1=#1+#2
, H4 W8 B# w. a8 d; L% I% U% |* B#2=#1-#2
. @3 v; i& c) P#1=#1-#2
N2 IF[#2GE#3]GOTO3
; m7 b: U9 i7 T; S#2=#2+#3
1 H' K$ a5 r  r; _0 H#3=#2-#3
* }, w" c9 c* J4 ^#2=#2-#3
% G0 ]! J. @$ B. ]4 x* @, H1 ^N3 IF[#3GE#4]GOTO4
( N7 c1 \' d) x6 v  B#3=#3+#4
1 v4 l7 X, k5 B' t+ z) _#4=#3-#4
% t% g0 r/ ~6 F7 Q#3=#3-#4
$ }$ R" h' A1 y2 h" p% x' aN4 IF[#1LT#2]GOTO1
$ ~9 D: \* F1 L3 ]IF[#2LT#3]GOTO2
( N+ ^5 Y. |  l2 x, x* v6 w' AM0

羅蓋仙

法二：使用変変數^^
: q  i4 i" |* @6 ^8 f: |) Z3 T#1=1.
# x9 @6 K1 f8 [4 a( w- w#2=4.
#3=7.
, _3 e" H$ ?+ {0 O#4=9.
N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
" O0 \, C. K4 I& B7 }, d#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
/ o% y7 e! F( B2 y) c/ @END1
#31=3.
IF[#2LT#3]]GOTO1
; [8 J8 |% V2 m& Q#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
) p* F- y8 N  W: _( z% L6 w#31=2.
#32=3.
IF[#2LT#3]GOTO1
1 U! u  a# r! c: z2 m9 ~7 ZM0
% V) P0 |0 }, t. `, c  K
7 E! S, b6 {  A6 V3 f2 E看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶