數據交換法的使用

羅蓋仙

2 m  V' r. [- c$ J上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
& H8 Z+ {. i/ G/ d6 _6 D" f9 Y，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

: q" {- X- d! G1 _6 c) e! p如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
; F1 H8 B( z. _方法A：
3 H0 u6 x8 S0 W& uIF[#1GE#2]GOTO5
) ^6 l& F( I2 u- r" s# W- F- {#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
' H2 Y  Y; q* V9 L6 u0 T' ]; ~#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

0 F- W3 u- W- Y+ C5 l我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
* Y- D7 v) Y2 w5 g- ]WHILE[#1LT#2]DO1
' ?4 \) C' A* ?- `#1=#1+#2
#2=#1-#2
1 \: C" ?# R: X. K#1=#1-#2
#3=#3+#4
5 G3 U3 W/ {8 n#4=#3-#4
#3=#3-#4
END1
! b' i  }5 h3 z& r# X) F......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
# |( r( ]4 `1 K0 d/ a9 |7 Z0 K
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
3 c5 R" |. S! P: J! n$ s8 I#1=5.
#2=10.
#30=1.
( |( W7 n9 ^2 ~( I: f/ ~- ~% Q7 Z*#31=#[#30+#500MOD2.]
M0
; E, T* A7 S1 R* K% W9 w7 y* z- T" Q
又想把它這樣寫
+ g2 I% z; X" H*#31=#[#30+#500AND1.]
M0

空气中的小鱼

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

羅蓋仙

! S/ S9 `+ j1 @' E5 m
使用數據置換來按大小排列，大→小
9 L2 Z. O- e, `- t2 ~法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
2 @$ i+ A' u7 D+ A#1=1.
& ]8 _9 {1 h- {  i/ R- p! J#2=4.
#3=7.
7 l; i6 e9 V2 C6 I% _; g- i#4=9.
- l7 q) y' d' a  E0 ^N1WHILE[#1LT#2]DO1
1 X: s( l0 V: E" D#1=#1+#2
# x1 D2 a& q* k# U#2=#1-#2
- I1 T# n! Q; E7 r) }#1=#1-#2
1 p- y) ^1 D1 m1 DEND1
" [. }. A  x* C2 J5 z; N7 M( N, H, \9 UN2WHILE[#2LT#3]DO2
' H2 o  G$ {" q% K5 h; i7 C#2=#2+#3
#3=#2-#3
#2=#2-#3
END2
; g0 y# D% z% ^  j# n: v& L1 VWHILE[#3LT#4]DO3
#3=#3+#4
2 C- D! s% e* u#4=#3-#4
$ ~/ q" M6 i: G0 \) z. {8 {, O4 A#3=#3-#4
* C4 T, c* y+ v2 U2 [: v1 P0 L' i$ |END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
$ ~# V1 a3 S6 w* C8 xM0
* M5 P/ X: m2 z8 p; U

, q3 f+ o' f* ]+ X' r法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
#3=C.
# ]: I' ]4 ^6 r. L#4=D.
N1 IF[#1GE#2]GOTO2
# M4 I$ O; k0 }& F1 N#1=#1+#2
9 k. ~+ U! b9 k1 ^% y#2=#1-#2
#1=#1-#2
, I3 ^6 ~; P& C  V3 oN2 IF[#2GE#3]GOTO3
. p) K  e, r2 |, c#2=#2+#3
#3=#2-#3
7 W3 b1 b8 I' b% |6 c- j#2=#2-#3
N3 IF[#3GE#4]GOTO4
: `: X9 h7 b& E#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
9 S  M- Y$ W1 f+ sM0

羅蓋仙

; r- w2 y6 @2 w6 }3 f
! v- y) R5 b! x2 v法二：使用変変數^^
#1=1.
$ ?: h( G# x8 e+ b#2=4.
#3=7.
#4=9.
: e9 e9 G: W5 V6 J% ]N2 #31=1.
#32=2.
, Z+ ]8 c% ~0 x8 ~' H5 U. \N1WHILE[#[#31]LT#[#32]]DO1
( D$ ^6 i- b3 t9 u$ Z4 j#[#31]=#[#31]+#[#32]
+ y7 W" t1 k$ [6 W1 |  m0 e- ?#[#32]=#[#31]-#[#32]
6 X+ A# M  V9 o, q! w9 z#[#31]=#[#31]-#[#32]
( G7 J; l9 s6 |& ]. d4 SEND1
7 m1 j: |9 S3 f/ v. {; E#31=3.
IF[#2LT#3]]GOTO1
#32=4.
  ?3 I* m( i" @. r1 ~, O; `+ Z* ~- DIF[#3LT#4]OTO1
/ z) l" o, C/ f! X. B# vIF[#1LT#2]GOTO2
#31=2.
#32=3.
$ [/ u- B6 M1 l8 l1 s( [IF[#2LT#3]GOTO1
M0

看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶