數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
& O' ~" W5 \4 `2 u, T" R( R4 u% f有人說數據交換法.能用于何處???我來舉個例子

$ Q& q% s3 J0 \9 @( W$ y4 d如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
2 }7 x4 i5 t4 n- T4 f/ J方法A：
$ @1 N4 Z, _' HIF[#1GE#2]GOTO5
#1=#1+#2
6 ~& T3 @' |* d7 {- k#2=#1-#2
#1=#1-#2
; Z% f5 q# V5 V3 r2 Z#3=#3+#4
9 R. T5 d* [$ n# z7 g#4=#3-#4
& R6 k1 h* }% C. r4 V#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
9 @& d# J  ?8 @' mWHILE[#1LT#2]DO1
#1=#1+#2
& D. W9 A0 F- i- n  o! L$ ~% L/ o#2=#1-#2
3 H( {/ j/ M( e# G/ I+ t+ @0 |( C5 H  t#1=#1-#2
/ I! G: c0 Q8 M) J" [. v( h, x#3=#3+#4
1 c& I, ^2 a6 E2 e#4=#3-#4
4 N: ]' p  w% X) i. J: A#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
/ F" R5 H: W: b
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
+ l8 E( ]& Q1 g( T) Y#1=5.
#2=10.
- W. J3 J6 R1 m8 _3 p% r#30=1.
) C+ a8 d) w. X$ h; D$ K*#31=#[#30+#500MOD2.]
, M  v. p1 R2 i( NM0

* _* M# q+ I6 q. S: ^; h( K; Q& ]又想把它這樣寫
" L& ?% x# @* g*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
  k$ }& X+ h2 I8 O你的表达式中没有只是逻辑运算，
) f; S, r6 S) H" R, }& p+ v7 w只有逻辑判断有些系统版本不支持
; Z& J4 [+ q& y, I2 H所以，以上语句可以运行的

羅蓋仙

0 e# H, m3 X; {* B' A
: Z8 W% q7 {" @使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
9 H8 e' s& R7 z# ]! a9 O#1=1.
#2=4.
- p$ J: A9 o: N/ y#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
# D" ^3 r0 V  [) pEND1
& w8 X0 ]# `8 q5 p/ sN2WHILE[#2LT#3]DO2
0 M' N* s4 A. s* x/ G& S#2=#2+#3
#3=#2-#3
8 P4 U$ u7 R  F, Y# a' k#2=#2-#3
END2
1 M  G, K! _/ K* v) r, i6 ?WHILE[#3LT#4]DO3
7 x8 ]9 [  ~% ^& w9 k/ z#3=#3+#4
#4=#3-#4
#3=#3-#4
; g, {5 X: ^; l+ I( J0 iEND3
IF[#1LT#2]GOTO1
  F* F' t. c1 G6 w, hIF[#2LT#3]GOTO2
M0

  _  C0 B2 U# q6 ~! @
法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
9 i7 p- [  K7 ?+ L2 s#3=C.
+ {+ S2 Z- K$ ]% t: W% Z3 o#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
#1=#1-#2
: n3 K3 b4 @. VN2 IF[#2GE#3]GOTO3
2 H: y4 Q$ `, u* e#2=#2+#3
" G% G2 E9 H5 d( A  r8 U#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
7 C) [' V0 o, z- R1 [$ Z# v+ k#3=#3+#4
#4=#3-#4
) B& y- W, {9 I) C#3=#3-#4
: @. V+ a% }, J1 M" gN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
) z! A; [; I9 F% B7 hM0

羅蓋仙

' v1 p2 ?, W6 s* {
法二：使用変変數^^
6 S3 w& r# _& W; _7 [#1=1.
#2=4.
#3=7.
#4=9.
0 Q# r- J' C' n% ON2 #31=1.
" ]8 r' P* n* D3 M#32=2.
5 S2 V7 |# D* Q% JN1WHILE[#[#31]LT#[#32]]DO1
' H7 k7 w1 C, T6 l- `( ]#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
0 {! d/ N& I: I  GEND1
#31=3.
$ c( B5 j. S' w3 o; o$ xIF[#2LT#3]]GOTO1
0 ^& N) e0 L2 F% o3 X$ h% o. D#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
; g) r$ {( F3 V: v' M#31=2.
) J; u! H0 l2 C) O#32=3.
" |2 O4 ]; X0 QIF[#2LT#3]GOTO1
8 Y- a# |( X2 {M0
# i# m, }* j' z' }5 f
" w& s( n1 T( g# g# V" Y$ D看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶