數據交換法的使用

羅蓋仙

! c% `; k+ D+ {% A: @6 B1 c# v4 p
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
! @% f3 L' ?1 k7 F2 A. o. B
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
; D! J) p( i8 `1 M% m使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
  i6 ^1 d6 m% y  |) ?+ v方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
2 W7 C) y# Z, s3 ~) T#2=#1-#2
#1=#1-#2
) B* R/ m2 @# E; p( N#3=#3+#4
#4=#3-#4
#3=#3-#4
! e1 x# |2 @2 c) t" \N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
/ i3 x$ G9 W* x- B( o#1=#1-#2
#3=#3+#4
0 I% Z; k" Z0 R. B# ~+ N#4=#3-#4
#3=#3-#4
' Y& u1 m& E/ ?  OEND1
! ]+ }/ J# R3 Q......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
. l  P! {6 D% E/ b5 G$ T
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
0 B' J  |3 x' V( ~+ A$ k5 I( O& O#1=5.
3 n6 y, ]! Z6 P# Z; @) K2 C) t  A1 P#2=10.
/ l! [, y" m' J  s- a+ v#30=1.
*#31=#[#30+#500MOD2.]
  f( o2 z9 [$ kM0

3 G1 L3 |6 p7 u' K0 }, @又想把它這樣寫
, c' v; g) f( k9 G% O* \*#31=#[#30+#500AND1.]
M0

空气中的小鱼

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

羅蓋仙

& q  i/ D8 f1 @; F! Z
使用數據置換來按大小排列，大→小
& o, \1 u: y8 i* v& N$ M法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
' Z; w1 y( G7 x. Z& \6 x$ g  Z# P#3=7.
8 Y5 \7 X+ [2 ?8 F#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
# n- S7 A# b7 v4 |. }% [- ]) v#1=#1-#2
" I, i7 I# e$ T$ ^: n) J6 }0 A& P: pEND1
$ c) z3 y% }) Z) M+ C1 zN2WHILE[#2LT#3]DO2
  I5 l7 l8 K  U8 ?$ X. a$ l#2=#2+#3
5 O( E' w% S% t6 Q3 f( `4 E#3=#2-#3
#2=#2-#3
7 z4 s, W$ z5 h, K) A5 \; s1 _END2
WHILE[#3LT#4]DO3
& Y) F9 i, U3 p: g4 w8 a#3=#3+#4
6 [1 u! s) H# H2 Q6 r6 d* t$ Y#4=#3-#4
#3=#3-#4
3 q9 E; z; C5 x. BEND3
IF[#1LT#2]GOTO1
" H6 k5 h) d" h( w7 K! E+ LIF[#2LT#3]GOTO2
/ c( k, @: y/ H/ t+ f+ M4 WM0
! S; L% d, g3 u4 g7 m
+ ?  L" @6 R1 B
法1-2：使用一般耳熟能詳的IF-GOTO
# A1 z7 T6 r( t; R1 H3 Q#1=A.
( R( k0 M5 ]0 V& e#2=B.
#3=C.
#4=D.
* j1 g+ J# c0 p1 w. _# RN1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
5 |# Z7 R+ T# b' e) d8 H, a, `# \#3=#2-#3
2 L3 v8 z1 {" Y/ h, g& [1 R#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
& Z3 {. d! }3 l5 {; R" G9 T( D: c5 L#3=#3-#4
7 D6 O% O$ ]0 i) _' E' t* v# ^* }6 [N4 IF[#1LT#2]GOTO1
* ?1 v; ?5 e$ w2 T. [* ]4 ]IF[#2LT#3]GOTO2
8 Y+ S7 L  P) vM0

羅蓋仙

5 X: W: f  Z  f$ c法二：使用変変數^^
#1=1.
#2=4.
#3=7.
, |$ Z! K- T3 P# J) |1 Z#4=9.
9 n5 h9 Z2 x; |' KN2 #31=1.
1 Q& T0 {% U, f#32=2.
8 w2 C  C$ M& E& p2 O) g/ r: \N1WHILE[#[#31]LT#[#32]]DO1
" s7 q/ y$ G2 ]* f9 ^7 O: x$ i#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
  Q6 z1 t! F6 x) B& _#31=3.
. p  J3 u3 b4 \IF[#2LT#3]]GOTO1
  I' d) @8 X: D" U8 ?5 w. v#32=4.
! T  B: k- e% kIF[#3LT#4]OTO1
3 t3 I2 Z4 G$ k* }1 S% |/ v) z$ T/ zIF[#1LT#2]GOTO2
#31=2.
' ^9 x8 S. N0 O3 Y, k/ x# \' m' `#32=3.
2 A8 O+ D+ A) x: Y. pIF[#2LT#3]GOTO1
M0

2 P4 c; n3 i" u# ~8 z6 S7 B, u看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶