數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
6 R4 z6 p/ i+ J+ s* B' L，我看完之後有灵感，
, a  x' E2 n+ X5 w" }有人說數據交換法.能用于何處???我來舉個例子
, w$ m  b: @0 ~
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
. D; p2 \+ m( y7 S使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
% y( v+ b& F. ?& ^  b$ N8 R5 GIF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
#1=#1-#2
8 U+ n9 w# k( |#3=#3+#4
! B( K1 L' Z% A* O#4=#3-#4
4 @; x4 u: y) ^# b' K#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
" Q! J8 n4 r( l/ O9 C' Q
9 Y5 \9 Y$ o% X6 r) y我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
2 F" m$ h, V2 U方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
5 U8 X8 J- r8 r7 P0 o" f. m' e  V#2=#1-#2
# s+ e1 W6 m$ `  \#1=#1-#2
#3=#3+#4
) U. E6 p! N9 `0 F6 O2 s6 {#4=#3-#4
#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
! Q; a' d% @$ `6 Y" X. I; X9 R1 t
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
" o0 T8 k- z6 w2 h) J* Q#2=10.
. H9 }  d0 ~" \- L/ \#30=1.
*#31=#[#30+#500MOD2.]
# p7 k( x" h  bM0

又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
3 d3 s  t' E1 X( h9 j+ B0 X8 C所以，以上语句可以运行的

羅蓋仙

) G. D% f1 e3 S; G6 c& h/ m& N: A
! R9 p; c: q% c) H: @使用數據置換來按大小排列，大→小
/ z2 v) ~$ W( ^# C/ N法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
2 ~, m. ^' a; h& }#1=1.
6 c9 y# o  r" y) T#2=4.
#3=7.
" }! i4 [3 W6 O, O) Y#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
9 L% d3 n' @  o& ^4 Y* K#1=#1-#2
- X" m/ E. g$ C5 H' q' C# H' rEND1
N2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
#2=#2-#3
# J: p( k* w  N: F- t, Q4 V4 N/ AEND2
9 T0 n3 r0 I! \8 BWHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
#3=#3-#4
% h" s! }$ H. l3 \) r" @5 GEND3
, G4 c4 q8 Q# M( AIF[#1LT#2]GOTO1
2 n% ~, t7 u5 v7 GIF[#2LT#3]GOTO2
M0


法1-2：使用一般耳熟能詳的IF-GOTO
3 w/ [: N0 l' j+ s#1=A.
0 M* B5 e3 L0 c3 G#2=B.
4 ~8 x* n* x) d; C7 T  H3 I" A#3=C.
#4=D.
6 k1 U6 C# l# s7 z) ~  p' |N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
4 t0 O( |8 Y1 \. Y0 y( ^#2=#2+#3
0 s) \6 v' I9 K#3=#2-#3
9 t5 T& q7 R$ }* J) n+ A- C! y% o#2=#2-#3
$ M! r4 v" {2 N, B  R$ y1 y3 fN3 IF[#3GE#4]GOTO4
0 C1 R& U9 m6 K* [" M+ W) j3 y( N#3=#3+#4
#4=#3-#4
$ ^$ b$ y0 d. N$ w#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
; I1 [9 i, G6 ^* H9 XM0

羅蓋仙

$ X& |0 a8 U6 b% V法二：使用変変數^^
/ ?% [4 }0 t4 v3 m#1=1.
: J/ e1 w8 b6 k; R' j#2=4.
# ?5 K/ _% @( c9 Y- w# J( ~* n#3=7.
#4=9.
2 ?, v* U; P3 b5 C1 v, B1 \" ?N2 #31=1.
# K, b6 A% C  ~. {9 ^#32=2.
$ \5 w5 ?0 Z2 @0 K! M# [. oN1WHILE[#[#31]LT#[#32]]DO1
: Z' t5 Z+ H  X- O. Q! {#[#31]=#[#31]+#[#32]
7 F8 x& K1 d9 {5 H: l3 o#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
#31=3.
* Y9 R- r7 A& n  @( S  jIF[#2LT#3]]GOTO1
1 G# H0 P! i, B" K4 L1 A#32=4.
IF[#3LT#4]OTO1
* V  X! J' e  JIF[#1LT#2]GOTO2
2 O2 o* {& @( k#31=2.
#32=3.
9 M" i1 ?/ v+ y8 B- ~) ]/ B& k1 T: wIF[#2LT#3]GOTO1
' x: w* g; u6 e6 u: x/ t; B" F; ?M0

! J% B0 k3 X  E+ `看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶