數據交換法的使用

羅蓋仙

, T+ ^3 O" K  k- V
/ N$ @8 @* a8 |上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
8 N2 I. Y' c" z% b，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
) x1 ~2 `0 |9 Z! S6 f( U4 C! `
$ S4 b# o# O' j  }) ]! e7 \如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
: T, w, K0 c& @& u" H: A8 N5 J使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
+ C7 C: ?# e5 j1 S方法A：
$ B4 s0 D5 s& h8 n" Z# UIF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
$ p& U6 ]' R" e. U0 A2 M+ T#1=#1-#2
$ [; N; E0 S; ^) p4 v  I5 C#3=#3+#4
#4=#3-#4
#3=#3-#4
" h$ u" w+ _& Y. I2 B3 I2 N$ oN5......此時#1的值已經置換過來了.#1的值一定比#2大
4 q/ P; i$ ^# G1 r* Z/ P) r  [- j
8 t7 M' L+ S7 G我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
3 R  ~  t2 j2 _方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
% p0 ?* N* [  U; l" p#2=#1-#2
% k; H; z( I6 p% L6 E6 s9 M% r#1=#1-#2
% }/ k* K& p2 `1 \#3=#3+#4
#4=#3-#4
#3=#3-#4
  e# e2 [* j; W* I1 IEND1
/ d5 V! `9 \8 ~......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
5 E7 q6 O0 n/ m- Q; N6 Z#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
1 c- {& V8 n9 ~M0
' k7 B2 D* F2 o( ~
又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

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

羅蓋仙

- |* S7 h, F2 Y" \( e! J
# l6 s8 k' Q/ J" r! g+ u; h使用數據置換來按大小排列，大→小
2 F, q' |9 V3 z3 {- r法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
1 W% q4 Y; f& Q; a+ i#3=7.
0 `( L1 t" g1 |/ I' A+ D#4=9.
N1WHILE[#1LT#2]DO1
1 p8 F( M& Y+ W) F3 d, l* V2 S#1=#1+#2
$ c9 Y, f/ u& |/ N( X#2=#1-#2
#1=#1-#2
" x# l5 ^  c! z! E# lEND1
N2WHILE[#2LT#3]DO2
% ]+ S3 K& Z* I& v" _#2=#2+#3
- M! ]' |. h/ n  R#3=#2-#3
: \& L" D' p8 P& k#2=#2-#3
( c3 V, |, C* yEND2
( |/ v4 p: f/ P% _$ `7 w( AWHILE[#3LT#4]DO3
  U$ W! `9 n/ h; j1 c; K#3=#3+#4
3 G7 J. v4 y9 M  }6 u5 J#4=#3-#4
, Z* T9 x* R/ k: b#3=#3-#4
% D" \+ a- O% B2 lEND3
IF[#1LT#2]GOTO1
0 {0 D) i1 j: F9 V. w/ s# M% nIF[#2LT#3]GOTO2
M0


# _! X# C" H# B! O法1-2：使用一般耳熟能詳的IF-GOTO
" v8 Z8 c/ i( U9 G1 |#1=A.
) w; O1 i# B3 ^( g8 [#2=B.
#3=C.
6 V) _  K( m; P3 h7 F#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
- D2 @9 q' D# l- v2 l/ n#1=#1-#2
( H. B; H( v: x7 _; n4 \N2 IF[#2GE#3]GOTO3
6 M# c% c" {9 N# G6 Y4 O; x+ {#2=#2+#3
#3=#2-#3
& s( B9 O: j( P; M: |#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
, h( L2 ^: W, |. ^+ J( j  h#4=#3-#4
$ e) G4 g( b' i8 ]  ]  ?- v#3=#3-#4
5 `, k9 G- W+ uN4 IF[#1LT#2]GOTO1
! G5 o7 c- Q1 X6 c) J% V% EIF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
& N* o, @  Y+ @2 N6 ~0 V3 n#1=1.
* o4 E" g8 p( P+ z) G#2=4.
#3=7.
#4=9.
# u# }7 |; H4 T/ ?) O5 U6 ON2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
: ^8 ?4 V8 x8 a" M, ~9 c9 c- h#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
5 q; _) Z1 H' c) v/ b3 d: m#31=3.
. h6 K1 P& d3 C' |3 oIF[#2LT#3]]GOTO1
; N- Q. M: D# b; H# U% b4 C#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
" Q+ p/ ^/ I9 e% v% v5 t$ v9 W9 t#31=2.
3 i3 ~4 m: ^' g#32=3.
9 ^2 G& W/ d- t3 j' y% x' gIF[#2LT#3]GOTO1
M0
& n8 F. @+ h9 j& P  L+ X9 e1 p
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶