數據交換法的使用

羅蓋仙

, r/ K8 Z; a& O! x. e. d) r$ k
' a) Y! I8 T7 x+ i' [4 ]上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
8 t$ W; T8 T* D; m! B! l
. M! T6 k  x( M* ~1 F1 S' k如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
* X: `2 \, L2 @使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
9 P: p" Q3 N1 x' g#1=#1+#2
. I6 m8 d# q% a9 w, l! T! U" z/ A! R#2=#1-#2
#1=#1-#2
* L: u$ ^' z' [  s$ W#3=#3+#4
2 b, |, C# d: {4 }- l#4=#3-#4
#3=#3-#4
7 ]9 W, I+ h# b/ z5 ~0 D1 ON5......此時#1的值已經置換過來了.#1的值一定比#2大
* L+ o" P; \: ~' ?4 `
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
: ~: ]( t" w% s- C' f+ x#2=#1-#2
, h0 [) ?+ Q" A. o# G#1=#1-#2
#3=#3+#4
8 O! x) @% ~/ M* L# R4 l#4=#3-#4
/ T  z1 s' z- t$ p- l; Y#3=#3-#4
END1
3 w, V8 u; U0 ^$ [' B& @......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
! S& t& j' h1 A1 N5 d#1=5.
#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
M0
5 k8 \& `* a0 Y1 y6 v) f  ?
又想把它這樣寫
! W3 y9 N7 r+ ^9 U7 q, j& B+ L*#31=#[#30+#500AND1.]
! A6 a+ d0 c& F# PM0

空气中的小鱼

回复 2# 羅蓋仙
8 Y. O! O3 k- j5 K9 Q- Q4 R你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
( }( H* f/ @" h所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
  o; Y$ L7 n. [* j#1=1.
#2=4.
& l7 ]( l% I7 E  S( @+ z' s#3=7.
#4=9.
  y5 S* Y& S. \* }. LN1WHILE[#1LT#2]DO1
#1=#1+#2
0 T, c# C# N* C#2=#1-#2
#1=#1-#2
( C6 e; E$ Z8 W8 QEND1
N2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
  V# D, C  H3 b7 {; K#2=#2-#3
6 N$ i' X2 D7 {7 A0 V/ t/ iEND2
" m) w  S( H, L" |WHILE[#3LT#4]DO3
1 w4 x3 r  ^! {8 _#3=#3+#4
4 R% @2 i3 ~# i# r+ s' {1 n#4=#3-#4
#3=#3-#4
( w6 D9 b  s, A& ^* l8 PEND3
. j& `' L) v$ V' L5 RIF[#1LT#2]GOTO1
/ R$ Y; J5 a! {. V7 s4 [8 \; W/ `2 E% |IF[#2LT#3]GOTO2
7 h% t7 B7 y+ I% _1 t% A% n, _M0
3 }: f. X: h6 S3 P7 r, y

法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
3 e! p( \+ [6 |+ U3 W5 G7 z% p#2=B.
8 d% G5 O6 ?: s# o#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
& K% v4 v- V% N; v5 T1 S8 y#1=#1+#2
#2=#1-#2
6 K% p. L1 v3 b, A* Y. t#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
) i8 Y2 F% l4 M6 r+ s' L4 a) P#2=#2-#3
) v. c& A7 t" `  j# o) Q4 L1 ~N3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
#3=#3-#4
. ]; Z& |; v7 H% NN4 IF[#1LT#2]GOTO1
: ]: ^# n: A/ L; P/ e6 ^IF[#2LT#3]GOTO2
M0

羅蓋仙

$ t  ^; o7 K2 b: k8 u/ v法二：使用変変數^^
# r( J0 I& F( U* u#1=1.
8 x* a$ O2 n3 o- J6 q#2=4.
, e) b0 K' s8 k6 _/ U$ P#3=7.
1 o9 U% l* z  n$ S5 ^0 P. }#4=9.
3 E" c3 v. v9 B7 M( l0 a: H/ AN2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
3 b) W7 Z3 o: v7 f; a#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
$ r/ Z$ [" r* `3 wEND1
1 O( W) c6 d" Y" w, o, \3 r1 M#31=3.
0 k# N9 B& K5 w$ B/ p& Q' ]0 U/ NIF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
#32=3.
2 g% h$ S& t: |/ V4 dIF[#2LT#3]GOTO1
! Q# s+ [2 |$ l. g* N  YM0

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

longmeier

好帖子顶