數據交換法的使用

羅蓋仙

. A! h2 p3 ~& Z  D5 j上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

( s- l2 t6 Q% I( b如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
) s6 Z9 r5 t8 j" ~方法A：
4 L1 r7 L2 _" _. G, XIF[#1GE#2]GOTO5
  M5 J' C- [4 X5 s1 }$ E#1=#1+#2
4 R' P9 m# \% r1 x' g# e#2=#1-#2
+ }3 s! O: {. Z! @  e#1=#1-#2
! O/ K0 q; t+ p! y! p! h0 z2 D#3=#3+#4
#4=#3-#4
; A+ f% ^# L, ]: S0 g; {#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
! i0 n5 d# D; K7 b
- @& L6 }7 H9 u& [+ b) m( E# x我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
" J9 _0 m7 B: C方法B：
WHILE[#1LT#2]DO1
* j) w( t' s( O6 u( Q#1=#1+#2
#2=#1-#2
#1=#1-#2
7 C* ^- f4 K  Y) J#3=#3+#4
#4=#3-#4
#3=#3-#4
; `: l* p+ r& a  f9 IEND1
8 L; Q: R  ~- D% a7 H- y- k9 t......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
M0
' |% C, n0 H2 I0 B
又想把它這樣寫
  W8 x  e" {2 L9 _7 ^*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
# T; ^1 ]: Z. Z; ^( @3 A3 @你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

. B( d  K. @  q  B0 B# l
使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
* M4 F- g3 q& \0 n#3=7.
#4=9.
, C, c! M! D" F9 j1 X' iN1WHILE[#1LT#2]DO1
! s# `6 e4 R0 N" b9 }2 O( C#1=#1+#2
2 R1 l( k: `: f7 h/ r0 W3 R; p0 X' p6 h#2=#1-#2
; D; V: p+ h8 {9 u' R4 A* x( N; R#1=#1-#2
: V7 f5 I* o" w6 |7 HEND1
- ~. e: a) V$ m- Q7 r) d' ^* iN2WHILE[#2LT#3]DO2
#2=#2+#3
" J1 i: _+ `1 T  D: M- n#3=#2-#3
#2=#2-#3
END2
' @' a9 s* r* R! [- i4 g: f- cWHILE[#3LT#4]DO3
#3=#3+#4
' K: `$ G2 c- _" E0 z#4=#3-#4
#3=#3-#4
END3
9 H4 F0 H3 m7 h* J$ ^- yIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
  L+ E# U" ^* T1 ]/ k6 S
* {9 c- \* |( u" {* g  J7 }
法1-2：使用一般耳熟能詳的IF-GOTO
4 x+ f1 v' e/ b4 ]7 O#1=A.
' s4 c! q! `  S2 s3 q#2=B.
0 `0 b7 @5 H& h0 D1 {6 h#3=C.
#4=D.
' F) J, U! Y. Y3 D! _# gN1 IF[#1GE#2]GOTO2
: V7 g/ [9 q# b/ {. m) \#1=#1+#2
#2=#1-#2
#1=#1-#2
; N0 Y3 E* _( M, p5 mN2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
& F( i  m6 K* l3 @# u#4=#3-#4
' x8 ?4 L) A. L+ \4 P% q' K/ o8 N#3=#3-#4
) T4 C1 @3 o/ l) ?8 EN4 IF[#1LT#2]GOTO1
4 K2 t' I- q: T. R4 G$ G) fIF[#2LT#3]GOTO2
0 H' g; O' e7 D  R* M, IM0

羅蓋仙

8 u! w0 U! O' F8 e
法二：使用変変數^^
9 V2 i' Z6 P$ {; S- ?1 s0 q#1=1.
" [, U! h1 P2 h#2=4.
#3=7.
) G  @; d: i1 R, V$ d& Z% Y! P#4=9.
N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
$ `9 B* |" s$ y#[#31]=#[#31]-#[#32]
END1
, W- ~7 [. N8 X* _* N#31=3.
. @8 I8 q2 ?' A; r0 g8 u) J) sIF[#2LT#3]]GOTO1
, d8 h7 F6 o3 |#32=4.
  ^4 L( B" i2 CIF[#3LT#4]OTO1
: N+ X- f) n0 Q4 j! Y& h/ J! M- w+ fIF[#1LT#2]GOTO2
  m/ W* x8 q, d3 {7 u#31=2.
#32=3.
" n2 q; C, t, l; K9 B) vIF[#2LT#3]GOTO1
0 b' t) U# S3 ]# G6 W2 S6 t, B. {: kM0

! {: i9 d4 n8 |6 P5 K# t& F看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶