數據交換法的使用

羅蓋仙

- C: M1 f* @5 u) F( G) r: ^2 \9 ~, o上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
* [) b0 a+ h7 i/ F! z! b3 @，我看完之後有灵感，
7 D2 B3 P6 u5 a( w! u- M有人說數據交換法.能用于何處???我來舉個例子

- H) Y+ E/ W* j- F如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
$ H# W9 N0 j/ u使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
+ l8 L9 p% y" U$ J# Q+ L, cIF[#1GE#2]GOTO5
#1=#1+#2
8 i3 y1 z& e8 s( A6 q; X  w) v#2=#1-#2
8 R/ h2 S6 ?$ Z  R9 |#1=#1-#2
& x( b, B  x" o#3=#3+#4
9 f& a) c$ h1 v2 s: }  Z) f#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
" ~. n, r7 e9 i2 [2 l方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
$ ~2 u% Y- T9 q#2=#1-#2
#1=#1-#2
$ K) C4 z3 i- N7 n- ?4 f#3=#3+#4
#4=#3-#4
#3=#3-#4
0 t0 h& V: {7 D7 ^7 {END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
: W& I* e( ]9 R. E" J2 I. M, N$ I#2=10.
! K8 s9 C6 H5 |#30=1.
*#31=#[#30+#500MOD2.]
3 @( x* S/ B6 i. T) A3 W0 ]M0
' P8 T# t+ |5 H" O0 x; m
( r8 S' ^3 M/ a) r$ J又想把它這樣寫
( Z+ p* _6 q% T  M5 s4 Y) |" m$ ]& s*#31=#[#30+#500AND1.]
$ i) Y: g4 w  N! y/ t4 A* ~M0

空气中的小鱼

回复 2# 羅蓋仙
2 O) c+ R) m) H1 B7 ]8 D你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
- ?! y5 T2 a$ B) R6 V& o% d3 w) y6 L- `所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
( P2 B+ Y0 \- K9 Q% `#1=1.
#2=4.
3 N; a# b  z% u) X' f* q#3=7.
#4=9.
% ?5 `& Z2 q. U3 |8 M- HN1WHILE[#1LT#2]DO1
) R# D/ L4 R: a& N2 |2 P#1=#1+#2
#2=#1-#2
$ \4 D9 u6 a% M+ U  a0 T2 {#1=#1-#2
( ~8 a* `( i' JEND1
N2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
6 A  w, H% L# A8 c9 g- [#2=#2-#3
END2
WHILE[#3LT#4]DO3
1 T5 B' N* }  ^8 c0 ]1 N( e9 e#3=#3+#4
#4=#3-#4
/ A. g4 U: `: t* Y7 W#3=#3-#4
END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
, k' \$ g, ?+ t- \$ @& j. R9 GM0
. W) f. g' W* R0 T" q

& l# C# O: @' X0 N  J4 T# F  B/ A, Z法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
( `7 X$ E* ]# F+ V( s#2=#1-#2
4 G: V# }# R" O! |2 q8 t/ h) r. v#1=#1-#2
7 _* f' U8 Y, e3 Y2 t1 EN2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
: J3 w  V  k4 b9 o! T, b0 `% t% t#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
* v3 {8 |- Y( b% w#4=#3-#4
1 b+ Q8 v, b4 G$ y6 e" b: L#3=#3-#4
  i7 c' m) j% L: v0 A9 O: wN4 IF[#1LT#2]GOTO1
% X9 [2 L% a& D9 Q2 w* e; X- }IF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
#1=1.
, `& P; g$ `0 p. g#2=4.
#3=7.
#4=9.
N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
/ ?  W, L+ O; [3 ^9 j( N" e#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
) M( X, a5 I) h" [#[#31]=#[#31]-#[#32]
END1
#31=3.
$ w" U4 e  y9 h5 IIF[#2LT#3]]GOTO1
#32=4.
3 L& N7 T3 t0 m: F5 gIF[#3LT#4]OTO1
' T) w* ^5 u% E4 ^/ qIF[#1LT#2]GOTO2
#31=2.
8 N% ?+ e$ M  ?2 E% m& p- T#32=3.
IF[#2LT#3]GOTO1
M0

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

longmeier

好帖子顶