數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
+ K. C7 p% t% G8 j5 l，我看完之後有灵感，
  x- X" X. P1 H2 {) o! ^; g  w有人說數據交換法.能用于何處???我來舉個例子
/ Z  v0 x. _5 j2 t2 W" E4 c5 P
& L- ~4 @' a5 B. ]2 C9 h如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
+ X0 w% V7 X, r. i方法A：
" u; q6 M& m( k% c6 rIF[#1GE#2]GOTO5
0 W+ ?7 |5 Y, x* I. U4 ^& ?#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
4 w& B' E9 h/ @& X0 K9 Q) R- uN5......此時#1的值已經置換過來了.#1的值一定比#2大

7 J' v. b) k, _' t3 W, i' H我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
- E7 X* k; K4 K4 N3 Z% v#1=#1-#2
$ K0 |' _8 N1 N! |. A$ U& i+ @#3=#3+#4
, G: V8 W- Y3 ^0 E4 n5 d#4=#3-#4
#3=#3-#4
7 x% E3 I3 o% D0 g' c1 {, NEND1
; R6 y4 p9 V0 S9 Q8 F9 F: A......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
( N# v$ g' Q6 e% x3 C- `1 b! F#1=5.
: P9 s, S- L' p" o$ N#2=10.
#30=1.
4 M. l- H# s/ t*#31=#[#30+#500MOD2.]
; O; V3 @& c: nM0

: W6 D1 Q3 n3 {6 m1 h又想把它這樣寫
+ h& h# g7 t  c* c1 Q3 ?$ P/ w' y( x5 w*#31=#[#30+#500AND1.]
2 c6 R  T* \% E- Q4 uM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
* c; ^3 n- C: S5 m: j* N只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

7 n' o& V. |$ }7 S5 M: L  `使用數據置換來按大小排列，大→小
5 b: U( T/ ~2 J8 ?+ {1 P" t0 b法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
( l) r$ \& s. S5 u, f1 r) y#1=1.
0 s: h; K  b+ S9 Y8 f, y7 }#2=4.
#3=7.
  ~0 c" s# S3 B#4=9.
N1WHILE[#1LT#2]DO1
, E8 f; a, x& x#1=#1+#2
#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
" X/ ^8 N! V! Q+ b1 `#2=#2+#3
#3=#2-#3
#2=#2-#3
& Z, a+ y! L- I$ ^$ p; lEND2
+ D# ?3 L/ l9 k: U7 LWHILE[#3LT#4]DO3
#3=#3+#4
" \. H$ P& ^* I% c6 C#4=#3-#4
#3=#3-#4
/ ?, |5 N  f* U8 Q( ^7 zEND3
1 }7 t8 W9 a# F4 ?! |! pIF[#1LT#2]GOTO1
& S1 \- g  y( e: u, d( H& `% ZIF[#2LT#3]GOTO2
M0

# \, ?2 S5 y7 \! q* _  v8 ~
法1-2：使用一般耳熟能詳的IF-GOTO
" ?" V; U( O& H, m, O) r#1=A.
#2=B.
' N4 L+ U, M( u$ N$ F: ~; x) g#3=C.
4 V, }6 ?* O. Y4 z/ P" ]#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
( I- B: R2 j3 ?% `0 _0 j& j" v) Y#2=#1-#2
+ F! R& @$ r  q9 x0 y! s#1=#1-#2
% o8 q8 h0 ]: a2 G. W0 F7 R0 pN2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
#2=#2-#3
0 U5 N6 C! r1 t6 xN3 IF[#3GE#4]GOTO4
$ X# J" u- V: Q; J9 |& Y#3=#3+#4
: e; u3 C5 ?, I#4=#3-#4
#3=#3-#4
. `9 z3 J4 y" o4 Z/ iN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
/ j# {" q6 V7 J. t, F  u: FM0

羅蓋仙

法二：使用変変數^^
) O1 U" D$ f3 n, g3 I0 t#1=1.
. {& f& [; A( A: S0 x+ r' i#2=4.
#3=7.
4 Z, `2 y% H+ }9 x1 H" }6 j#4=9.
) Y* ?$ r+ k7 M9 r! u. g& MN2 #31=1.
2 K4 q2 f4 R  {$ L# l4 q0 j* @#32=2.
" [: X; W! ~' I0 b5 r/ y; B& h2 NN1WHILE[#[#31]LT#[#32]]DO1
! p& X& {0 O0 k3 ]1 y  c$ o% f' Q#[#31]=#[#31]+#[#32]
& n$ H4 y7 V$ p! v#[#32]=#[#31]-#[#32]
6 W) X/ H. c3 n7 U9 O- I3 O  n% D#[#31]=#[#31]-#[#32]
END1
, U0 c8 y- O( r4 [3 h* Y#31=3.
; R. z, Z7 n4 b! T# pIF[#2LT#3]]GOTO1
* X; ^1 O% a- j5 T: i( f#32=4.
IF[#3LT#4]OTO1
# R/ N8 \% n  W! W4 uIF[#1LT#2]GOTO2
( G2 N2 @& Q$ ~2 A  d8 i#31=2.
#32=3.
IF[#2LT#3]GOTO1
M0

& T! x  \# n! T  z7 W4 X$ f看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶