數據交換法的使用

羅蓋仙

8 ~0 d9 G/ q- I& C+ G上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
5 u, H' q! G  M  |有人說數據交換法.能用于何處???我來舉個例子
4 m3 E; _; V9 l- \9 D9 g
( R, }) a$ X2 s# x' }如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
/ ~, Y1 Y( b) X& a# T( G1 x使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
$ c* }( R# S8 R) G7 B5 ^IF[#1GE#2]GOTO5
#1=#1+#2
7 I1 \6 H: |( x#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
1 E, w7 r8 m4 ~1 S  S#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
6 M1 h+ w# O5 C1 }- d. h
! A& {0 J$ J" m我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
! F! _" M; F) ~" |方法B：
- s8 ^  P( C9 U- b" A7 CWHILE[#1LT#2]DO1
# [5 f6 E' n# G: y" f) S, C#1=#1+#2
/ a- j8 `9 F' }6 {#2=#1-#2
#1=#1-#2
+ Z1 v8 j3 g# f- @#3=#3+#4
  `2 Z  I5 L4 ?#4=#3-#4
2 e) G# \, k) e& l2 o#3=#3-#4
4 O' |+ f5 x* p0 O8 ]: I' DEND1
" h9 B: r3 q$ c$ h$ j8 @......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
2 f4 y$ i3 a% x6 {4 d#1=5.
  L& G5 m: B- s' |: q#2=10.
#30=1.
% e) {6 J3 ]2 A; P" [*#31=#[#30+#500MOD2.]
M0

( R* d& I) F1 \3 ?1 I; w又想把它這樣寫
*#31=#[#30+#500AND1.]
' a0 @1 w5 Q$ I, p+ v$ WM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
: V$ D( p2 m8 c, u1 ~只有逻辑判断有些系统版本不支持
+ ]4 Y/ f* ]& _/ ?$ M' f所以，以上语句可以运行的

羅蓋仙

$ i" D' s' @' Y# G1 R使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
#3=7.
* H5 Y) m! L# s* l, n#4=9.
! w& ?9 g$ t# S# H, J& u: gN1WHILE[#1LT#2]DO1
#1=#1+#2
' {: Z  ~1 a; F0 B# A#2=#1-#2
#1=#1-#2
9 z. H; w4 n& M  S9 W0 GEND1
& u0 a8 U. R$ Q9 T2 IN2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
" z% @1 S8 c0 h#2=#2-#3
END2
, \0 f, a' ~1 y4 x+ AWHILE[#3LT#4]DO3
" o  V0 _" ^/ s- t#3=#3+#4
#4=#3-#4
) Q+ u4 `, _) @& `5 }7 h1 N#3=#3-#4
5 ^8 ?3 u" J4 m3 FEND3
  y6 u3 z/ \9 p0 s- s/ QIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
5 @3 ?5 c& U9 ]' Y+ c& cM0
% a' Y) f1 E  }9 ]

9 R3 ^% e. S& c& Z1 ~法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
% Y+ Q! `0 r' K$ d# r) H9 s#2=B.
( t( H. l4 `, ]2 m0 a$ ~1 P#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
- I5 b0 r  q3 n6 R2 R- D2 ^. g#1=#1+#2
#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
0 a3 p. b; A, A' k9 o#2=#2-#3
. d" e+ U6 u7 i; t8 R( r& d9 O) KN3 IF[#3GE#4]GOTO4
6 t$ W5 ]  u3 V: P4 g3 O5 Z+ Z; t#3=#3+#4
" x% o8 o; \9 }7 {#4=#3-#4
#3=#3-#4
( P3 c% l1 h8 v/ i9 KN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

. `9 G( N  R! w1 L' X0 `
, {2 H9 v# |% ^" a法二：使用変変數^^
#1=1.
#2=4.
7 k, b5 w# K# }0 @. q6 |#3=7.
#4=9.
N2 #31=1.
#32=2.
" z* b. f+ i- A8 f1 S1 B4 EN1WHILE[#[#31]LT#[#32]]DO1
; ^. c3 _8 L+ S1 c, N4 @% Y#[#31]=#[#31]+#[#32]
$ o7 O( R/ I/ [( z" A  V* j#[#32]=#[#31]-#[#32]
8 _! y, a3 s& g0 K9 M#[#31]=#[#31]-#[#32]
4 b9 ^  i9 J  A' pEND1
: J. I& q8 J" i) R) [/ X( X2 X#31=3.
$ e) ^/ f3 [& W2 yIF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
#32=3.
. L" J! o: N/ u" ?# f% NIF[#2LT#3]GOTO1
M0
) ]  T' E# f: N1 I  `: Y
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶