數據交換法的使用

羅蓋仙

) A6 @; i% [+ g; i
' s3 a' Y% d7 o+ A- M+ ?4 v/ D2 d上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
, J# _0 p$ d! p1 h1 `: {5 q，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
6 f$ k: s; l$ w% t使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
" Q7 g( F; j& t$ M4 I$ n( b' a#1=#1+#2
6 I3 [- h( `; U1 @0 c6 {#2=#1-#2
#1=#1-#2
#3=#3+#4
9 a- ?! s8 a: K  Y, w4 i+ z#4=#3-#4
$ L; M- i# F8 {* {$ D#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

2 i. e' l; c4 @6 ?; s; X我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
3 L' \% s) H/ I9 r+ W& s方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
- V% B/ R. g! w6 x#2=#1-#2
" }* L  f( [( M5 S. e  [9 F#1=#1-#2
#3=#3+#4
+ |# w$ G, d' Z, b# o#4=#3-#4
#3=#3-#4
END1
% v/ Y% Y. x. }& \& e( A......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
$ q% F6 g/ [! l5 u2 X5 p& x#30=1.
9 t' o; m+ \% [2 \# X7 c*#31=#[#30+#500MOD2.]
& C. p9 }: R6 h, @$ ^1 G  MM0

又想把它這樣寫
2 e" m* ~5 A4 P' t8 b# Q- Z*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
( a" F) \- P" U1 E; h所以，以上语句可以运行的

羅蓋仙

5 C' O% Y$ o, ~* s0 l使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
. k' H* {' `1 [2 |! c; {#1=1.
#2=4.
#3=7.
0 D% _; v9 F% @) [4 F#4=9.
1 Q1 k1 [( \, r  C) LN1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
; v2 P9 b3 e9 b#1=#1-#2
0 r; k3 |# K# [% K! HEND1
N2WHILE[#2LT#3]DO2
9 u- @+ B, U  Q$ r#2=#2+#3
: p  c* t- \* L! l#3=#2-#3
' c' E3 r( d: [7 M- H$ [#2=#2-#3
6 d1 p! \* _  L3 f8 s& k5 BEND2
WHILE[#3LT#4]DO3
; ]) [; f/ S  S! Y; @+ N: q0 n& z#3=#3+#4
#4=#3-#4
#3=#3-#4
END3
) @5 g9 ~7 r8 l0 i+ QIF[#1LT#2]GOTO1
* o: I( g4 D' ]; b& KIF[#2LT#3]GOTO2
M0

4 c5 ~, G# I4 }" l& P9 ~
法1-2：使用一般耳熟能詳的IF-GOTO
7 n$ q! c# ^$ x' ~7 [7 d! a#1=A.
& N8 n& i: R+ I9 L1 e( ?( {#2=B.
#3=C.
#4=D.
7 F" z, y) r3 T; X: @$ FN1 IF[#1GE#2]GOTO2
% c4 r8 N" T+ h- q0 a3 N2 U5 K; w#1=#1+#2
#2=#1-#2
2 O) y2 F3 `5 Q; x#1=#1-#2
6 x1 V  q5 K, ?! L/ zN2 IF[#2GE#3]GOTO3
#2=#2+#3
4 _; ]/ j; i2 L9 [( I3 K$ T#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
  D- [3 Z& b6 o# n0 J#4=#3-#4
5 |! k$ q6 v& M7 j( M#3=#3-#4
N4 IF[#1LT#2]GOTO1
+ f& K. N! \# WIF[#2LT#3]GOTO2
8 g1 @( [- A4 p* n! qM0

羅蓋仙

8 V# ^/ f- `$ ?7 N. p2 I5 E5 x法二：使用変変數^^
#1=1.
1 p" I2 W' v& ]! c2 l8 A2 T7 F#2=4.
8 F" r, ?: ~" [; l$ W) `& r#3=7.
#4=9.
3 E- b. i5 L' a6 n4 LN2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
4 q3 ^3 u1 i6 V/ w- eEND1
$ L. d7 p$ u( x3 V* _$ A8 g, N9 M#31=3.
IF[#2LT#3]]GOTO1
1 T$ [6 V5 c+ F; P+ J' y7 O4 u#32=4.
* w& p. W& s8 d, k/ V, E* _6 PIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
( L# ^$ ?( A' P" m7 t0 u0 T; C( C#31=2.
% @/ c: A) a/ O+ U2 w#32=3.
3 F4 b) z. B& Y, z% R" h6 v, MIF[#2LT#3]GOTO1
' b: w  y  e. @; r* D% o5 zM0

9 Z" x$ k( n+ H5 X看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶