數據交換法的使用

羅蓋仙

% |; Y8 O7 t; S+ m
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
" I% }( X2 [8 M有人說數據交換法.能用于何處???我來舉個例子
2 ]/ V9 Y4 [& `
% \) w$ {6 Z! r% m6 U. ?- O+ H6 W如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
1 q( Y% h5 k- M4 H' P, oIF[#1GE#2]GOTO5
* A# S& V. v  N  F8 F* \/ h#1=#1+#2
#2=#1-#2
1 s6 S$ Q; C: n' @6 M7 L/ F#1=#1-#2
#3=#3+#4
* c. f, i; e' u+ p" ]#4=#3-#4
#3=#3-#4
7 N: m+ v2 ^9 o" o, p& t) GN5......此時#1的值已經置換過來了.#1的值一定比#2大
2 l( H+ ^2 [' V. u' v/ d
, t. ^1 Z1 Y1 w) D. |/ H. F8 M8 Q我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
7 r# w7 N+ f/ m/ \- @' s% I1 fWHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
5 B# Q6 F, @% ^2 w; n! G#1=#1-#2
#3=#3+#4
#4=#3-#4
- a9 [# m! W3 U- d; ?, b5 O#3=#3-#4
5 I2 O+ Y8 g+ h5 Y; h0 s7 jEND1
* p% b, c6 ?8 V# x' I......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
5 m0 y5 m1 c$ p$ `% ]#1=5.
#2=10.
#30=1.
$ [; `8 j4 Q: s1 W3 n9 H' e* H/ S; \*#31=#[#30+#500MOD2.]
M0

又想把它這樣寫
$ f# J. f+ ]0 Z*#31=#[#30+#500AND1.]
M0

空气中的小鱼

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

羅蓋仙

使用數據置換來按大小排列，大→小
, E9 v( Q( D! a0 j- |* f7 [$ t法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
#3=7.
. T0 l# \2 x, j#4=9.
N1WHILE[#1LT#2]DO1
: \& w: W# e1 j/ i* [#1=#1+#2
#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
& w2 m7 r# ?7 x  o#2=#2+#3
#3=#2-#3
#2=#2-#3
END2
WHILE[#3LT#4]DO3
#3=#3+#4
: h4 D4 X1 S6 p8 l#4=#3-#4
#3=#3-#4
- [5 T( o) f5 f5 K# I$ U# fEND3
IF[#1LT#2]GOTO1
$ c  `) E( r9 T# s# B4 D+ d5 D, mIF[#2LT#3]GOTO2
. |' F4 x& u' n  R1 CM0

1 t5 ~7 B  D; a
法1-2：使用一般耳熟能詳的IF-GOTO
1 p" y& i  }" `6 \#1=A.
#2=B.
; `- P( g, Q/ m$ k* z& k- `4 d#3=C.
) h- |0 A/ M- S3 }5 a4 \#4=D.
N1 IF[#1GE#2]GOTO2
! q: l- D! ~4 R#1=#1+#2
#2=#1-#2
$ y* |2 V7 N0 G#1=#1-#2
7 g7 o" s3 g9 D9 FN2 IF[#2GE#3]GOTO3
#2=#2+#3
# i- ?( n6 K# ^- S#3=#2-#3
2 k. _- J* v7 N#2=#2-#3
* J' Y" W* u7 M8 hN3 IF[#3GE#4]GOTO4
8 _" {5 e1 u6 a" D#3=#3+#4
#4=#3-#4
4 v- P9 T  |1 z, k2 s# m#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
#1=1.
#2=4.
( b6 h$ P6 U" W#3=7.
#4=9.
, X$ \1 G. c& ]( z0 lN2 #31=1.
* u3 V2 t) v- E: m$ L$ {3 z#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
1 M  U4 |! X$ }8 y% e& z- O+ _! O#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
  y1 f6 M% {' U: G. XEND1
# d0 X8 d% T# G: `1 }#31=3.
* ^3 Y% h4 V* a- {- w" W/ I. f  sIF[#2LT#3]]GOTO1
#32=4.
6 ~+ g) F' p+ P' CIF[#3LT#4]OTO1
9 @4 q- o, q3 N6 j( \9 `+ aIF[#1LT#2]GOTO2
#31=2.
#32=3.
9 P. `0 k. `1 a7 v, u2 G/ NIF[#2LT#3]GOTO1
M0

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

longmeier

好帖子顶