數據交換法的使用

羅蓋仙

0 S" c% [% h* h' H% S1 w上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
0 Q% H+ J6 M2 m# j* a8 ?，我看完之後有灵感，
7 n; v$ N  O; g* ]! s* N. C有人說數據交換法.能用于何處???我來舉個例子

  ]. p- m* Z9 e& N& W# F" w如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
: C  Z4 i7 A& b. o* E使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
1 h. t; ]% K* u( h2 m" {( U方法A：
IF[#1GE#2]GOTO5
/ B/ t% m! E  v! E1 J* d9 i#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
7 U1 g& \5 h% T& o方法B：
; \; Q% `2 Q! I1 NWHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
  q0 E$ }9 x( V2 V$ b+ q; A; E#1=#1-#2
#3=#3+#4
#4=#3-#4
4 h1 Y9 D& ^$ a- M6 v9 K5 s: G#3=#3-#4
' u9 d1 i! R9 r3 X& NEND1
- `9 I6 G' A  k: L( L; L......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
) k* P& {# k% e7 w# |+ C#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
M0

又想把它這樣寫
*#31=#[#30+#500AND1.]
% `1 T5 R: B$ C8 B2 @* V2 @2 w0 v% BM0

空气中的小鱼

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

羅蓋仙

使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
2 B0 r: k# ?1 M# z, {& E7 H& f#2=4.
" Y( O3 b1 [. X8 r# R( U7 T#3=7.
#4=9.
. B! Y6 `8 N3 ~- F7 E5 w8 I5 QN1WHILE[#1LT#2]DO1
#1=#1+#2
# d4 q8 _- F2 }: Y#2=#1-#2
0 e+ p+ G+ X' ]* U* R+ J3 m#1=#1-#2
- R5 S* L" z  w' N' p, BEND1
3 ]- `+ l! ~# D: C- _7 h( |N2WHILE[#2LT#3]DO2
, L" f6 C- H6 V% J8 w" Q. y#2=#2+#3
; W$ ?- `7 U  A" X. u7 p#3=#2-#3
1 X' {7 n# H7 F( _5 j- b#2=#2-#3
END2
# F; k7 m, \) h5 f) Q, E, U$ JWHILE[#3LT#4]DO3
' g9 X9 e9 W7 ~- K#3=#3+#4
#4=#3-#4
#3=#3-#4
END3
& b: m% N" c$ y) d9 BIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

7 F& }0 d& @, e! N$ B* S" l# t
+ i) }) g& S: F& X/ N6 K法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
, _9 I% B+ s7 I9 T0 f- q* Z#2=B.
#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
% Y; |0 j+ h" F' p) l/ R( U. c#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
7 R( {& @# [$ Y& y6 }& K& U#3=#3+#4
1 j3 ~/ C  ^! s5 Y#4=#3-#4
#3=#3-#4
2 r" s* |; c* l1 H/ [: L/ ?  u5 wN4 IF[#1LT#2]GOTO1
) D/ v; d6 ?4 `& f  Z3 EIF[#2LT#3]GOTO2
M0

羅蓋仙

4 m2 u( W1 |% M3 J法二：使用変変數^^
#1=1.
" s/ P4 L* s' f# X#2=4.
#3=7.
. B) e3 [+ ]/ A  O2 H8 n7 W#4=9.
N2 #31=1.
$ E8 i! R5 Q8 L5 u, i- m#32=2.
$ A7 |' i% K4 G+ S4 Y( AN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
1 r- f. w9 X) d#[#31]=#[#31]-#[#32]
END1
) {' M8 U. E4 z5 i#31=3.
IF[#2LT#3]]GOTO1
#32=4.
7 N* G& ~' q0 U, }! w9 ]IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
  Z6 f; M# t9 ^#32=3.
' s* @5 z6 ^% v8 T8 KIF[#2LT#3]GOTO1
M0

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

longmeier

好帖子顶