數據交換法的使用

羅蓋仙

! I  b# I, y  s! G
% x# W4 U, J% q) L上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
( z1 ^7 B& ]. Q8 K，我看完之後有灵感，
8 U9 L/ D; B+ c有人說數據交換法.能用于何處???我來舉個例子

$ d8 y( ?6 J( Y7 P$ f如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
+ [5 t5 @0 v0 {2 v4 O6 {9 a0 F使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
. `  ]* k! A) T0 ~  D方法A：
IF[#1GE#2]GOTO5
! m7 ^8 C2 w& [- D. I( E9 Q#1=#1+#2
#2=#1-#2
' G4 L5 |$ v9 V+ m#1=#1-#2
' ]! t% P3 c1 f& n- X  v$ H8 i; m#3=#3+#4
8 B) J* U) A7 Y" T0 T, ~: T#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

2 x: p2 i' T- Q) \6 `* J我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
# y/ x2 V3 R5 X5 K1 B方法B：
WHILE[#1LT#2]DO1
* t, P7 w3 d* B5 I/ ?- k#1=#1+#2
$ p; a8 P# z* t% {; j#2=#1-#2
- K4 Z" n) q- P/ P8 @% P- H#1=#1-#2
' Z7 g4 R3 |3 ^$ K( N#3=#3+#4
#4=#3-#4
#3=#3-#4
3 `' Z0 A! g* L% X& V; p4 d9 TEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
- s, j, T$ l' ^+ L, K
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
! d; }' `- n( U4 v, ]/ q2 Q7 h; n#1=5.
#2=10.
% K$ M8 Y0 m; s) J' R  C7 }#30=1.
*#31=#[#30+#500MOD2.]
M0
1 R9 I- s; x# R- Q7 t- p$ Z4 S
$ G6 u+ |) ^9 K; A7 _; p又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
4 r9 Y% P# ?! B9 p只有逻辑判断有些系统版本不支持
6 T  {, d2 {. n' q# V8 G所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
' @; g: t" p! ?( s  L$ m法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
: A8 E/ R" e- z2 C/ ^' M  i- V#1=1.
( B- @  C: V+ m2 z+ S#2=4.
. W9 W2 j. O$ E) Q1 z( p9 j7 B7 d#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
( G/ Z# x  z* D+ ^$ _#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
#2=#2+#3
$ [; P/ f% K  {2 ~0 \/ y9 N, z7 u7 ^#3=#2-#3
#2=#2-#3
END2
WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
9 O; n( ]4 c* I2 D#3=#3-#4
" j0 q) \9 L+ r& N$ {! A) VEND3
; [( h( E2 C0 w# Z& oIF[#1LT#2]GOTO1
5 e$ |& d( ~$ f" R) E( O. lIF[#2LT#3]GOTO2
) g: j  N) H' i: wM0
7 W5 g; x7 [+ B: I
  [* V# ^* X- w3 C4 K
6 z8 c; J- X. S  u% o7 {法1-2：使用一般耳熟能詳的IF-GOTO
. q1 {. E( o. }#1=A.
% N: c/ X5 U% }" c3 `#2=B.
#3=C.
#4=D.
2 c( @4 ?/ b& C- U9 bN1 IF[#1GE#2]GOTO2
" K4 A/ K: N1 Z9 I. ^% U3 o# u3 U: U#1=#1+#2
; B8 [$ R6 ]: Y% P4 ^2 ~#2=#1-#2
#1=#1-#2
; x  ?, k/ `5 V" U3 Y* }, ~N2 IF[#2GE#3]GOTO3
3 X+ L$ p3 ^$ I9 p#2=#2+#3
" D* C/ e5 ]& H; P9 h/ k5 I#3=#2-#3
2 }. W, f& A" ?  b. v#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
$ m' A* }% H+ X7 F#4=#3-#4
/ b+ T: b! k$ U#3=#3-#4
N4 IF[#1LT#2]GOTO1
5 G5 V. b9 i; U3 U- i! u0 h, HIF[#2LT#3]GOTO2
5 I) _, h* g& ^+ l) c# y# WM0

羅蓋仙

; @, ]* U2 ]# @- R$ l
, p# h& U* ]# B" T" d法二：使用変変數^^
#1=1.
( h. n; \# Z- b( h  T#2=4.
7 s+ D( d" L- Z* Z% K. ?7 m#3=7.
) i; m$ ?4 b' A0 W& {8 Q& s4 P( `#4=9.
) a% R9 D' d& |" xN2 #31=1.
2 ^4 E( o# O4 {7 a) K' \#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
6 |/ z8 F4 @# B. ?#[#31]=#[#31]+#[#32]
4 m( G' @' e* s9 ~* v#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
  ~  ~" g1 J, c' y- bEND1
#31=3.
+ c0 Y, H, b) W6 nIF[#2LT#3]]GOTO1
# l" w8 g& _. K#32=4.
IF[#3LT#4]OTO1
! T+ J- H+ V9 m" OIF[#1LT#2]GOTO2
#31=2.
#32=3.
5 `* N% \6 V5 l1 [) r/ D3 Z- [IF[#2LT#3]GOTO1
' V. w( R" I' EM0
, {- E" t* a2 t, {+ w" B
: M2 \- T! v' E) B2 o- p8 j. F. L看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶