數據交換法的使用

羅蓋仙

% e7 I. |/ W# z8 R, Z8 G
+ Z! O- {$ @4 B上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
  \* U! W  s+ N' M* D有人說數據交換法.能用于何處???我來舉個例子
: Z' {9 B$ H5 S8 c/ y' F3 {# Z6 Z
$ ]6 L/ `) t  r9 k: Z& J( I( C9 A如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
& j/ [2 P! o8 `" }方法A：
& w+ ^) P+ P' DIF[#1GE#2]GOTO5
' M. ^# d7 r; T#1=#1+#2
( D1 ]" o: J5 x) `) \#2=#1-#2
#1=#1-#2
4 D9 U- b# w0 S3 K: h/ u#3=#3+#4
#4=#3-#4
: E% F. c" l2 E) _3 o3 z: v#3=#3-#4
' A! b. X' L: A8 c0 lN5......此時#1的值已經置換過來了.#1的值一定比#2大

% e! Z5 ~  e8 U  B; n8 U, c. ?9 S! m我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
$ J: D+ Y: c1 y#3=#3+#4
! d( U/ r; H0 i- v9 D1 L0 J#4=#3-#4
#3=#3-#4
END1
4 v. q! ?9 Z# _  u; v2 [......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
4 C- B/ \% e' F1 W& h7 |
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
#30=1.
. G. r& e  w. X) i*#31=#[#30+#500MOD2.]
M0

又想把它這樣寫
) }1 w. j* {' Y*#31=#[#30+#500AND1.]
M0

空气中的小鱼

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

羅蓋仙

8 J( e, [$ J7 ^- V" t; A' x
8 X, E" b7 M) C, `' a+ Q% a9 N0 U使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
7 c7 r/ Q, Z5 D4 j9 ]; u8 O#1=1.
' B+ F" H, X; D% K+ |) a#2=4.
1 i) b1 H+ u! b; q# l) d#3=7.
  \4 \" @' I" i1 d2 ^% k2 m#4=9.
  c) p/ w/ E* n$ P. f' d* sN1WHILE[#1LT#2]DO1
* S9 n2 X+ H+ a#1=#1+#2
#2=#1-#2
1 x9 \5 {/ |! i% I) U# O1 i#1=#1-#2
END1
/ r9 a( {3 d8 G5 DN2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
6 U# @- c* H/ P4 [5 R) l#2=#2-#3
8 D) Z; O! ^0 L: O% N* V2 c- i. ?END2
6 b1 o3 r/ a! H! c$ iWHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
$ j( L) f( G4 n: U1 O# D#3=#3-#4
4 M7 H' Z; H( c; mEND3
IF[#1LT#2]GOTO1
/ ]2 u6 N$ r, `" R0 IIF[#2LT#3]GOTO2
8 H/ y: E  Y. P0 i) v2 A0 j% EM0
7 d1 u  t% P  H# x

5 [5 |, N( d6 @1 G$ t0 \法1-2：使用一般耳熟能詳的IF-GOTO
$ b! H- h0 c+ u6 n# Z6 |5 q#1=A.
8 O" [, p+ m" u: h% I, W! n$ B  U#2=B.
: t8 Q7 Y7 ?' B! M2 T#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
& h1 o/ e  G# S  m4 L#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
3 T* e8 A% i: `#2=#2+#3
#3=#2-#3
% `% d. ]3 P5 o0 \1 r#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
' l, }" S3 l4 }# f#4=#3-#4
#3=#3-#4
4 Q3 f' Q  R" G1 }0 M# ]! i7 FN4 IF[#1LT#2]GOTO1
& d& u( ~2 t! BIF[#2LT#3]GOTO2
M0

羅蓋仙

  V9 k4 Q5 O& l4 q法二：使用変変數^^
#1=1.
#2=4.
#3=7.
; \% `% H+ F. _#4=9.
& i0 T" l. K( h* JN2 #31=1.
+ X2 N  U1 e9 T- ^% U#32=2.
; q9 X1 @) v1 ]# C; l( q* ^* q0 ^. QN1WHILE[#[#31]LT#[#32]]DO1
6 O+ {+ l8 \; r: x' k& j#[#31]=#[#31]+#[#32]
8 W2 _5 v( `1 [( b  Y# Q#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
' I' w; j3 X- w, T$ ]#31=3.
$ _+ ]; J3 c6 ^IF[#2LT#3]]GOTO1
# Y. `& e' k9 n1 r3 U#32=4.
( l# [$ b# w3 k3 i! ~$ W9 c$ ?& [IF[#3LT#4]OTO1
4 W- h+ I, L& i4 WIF[#1LT#2]GOTO2
#31=2.
, w0 U& ~& j) N3 m$ \0 x8 \; u#32=3.
# y0 C( ?6 B) ]2 K) |# i& xIF[#2LT#3]GOTO1
' F( z$ S) Y/ BM0
' ~  F. K* I0 h! y
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶