數據交換法的使用

羅蓋仙

4 r5 b, n9 N# B, f7 [
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
9 I, x4 G& ^- F/ x) X& W0 Z6 M
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
- J, o9 V# F, R  B+ G3 Z2 U使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
9 m: j' c, }" [8 Q, s2 o5 f$ |#1=#1+#2
4 V( Z9 |3 e" p) A( r0 I#2=#1-#2
3 u$ N9 f7 Q, T! r( z7 m#1=#1-#2
#3=#3+#4
#4=#3-#4
. J; Q  j8 @! x; X1 k, ]) Y#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
. t" B! p; q, \' A& y9 y7 S+ }#1=#1+#2
# _1 A& m4 I( U8 s: i#2=#1-#2
#1=#1-#2
' C& g) c7 e$ i# K#3=#3+#4
#4=#3-#4
#3=#3-#4
END1
/ E; C. O' c7 H......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
/ j  t% V$ H- o! C9 B
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
5 E, p  w, J# k#1=5.
#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
M0

, z* Z% B2 r3 o1 T" v3 b2 D9 y' N& X又想把它這樣寫
) k( y: V( @8 o8 U*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
2 h3 ^' }) y* ~# N! U+ q# d: M. k9 M7 t只有逻辑判断有些系统版本不支持
2 w, L3 y; a/ k2 |! r. V' Z  q1 s  r所以，以上语句可以运行的

羅蓋仙

: n' B  g3 g' r
使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
* v) W7 Q' B" }9 J* i#1=1.
#2=4.
" `9 l" r: S, i/ J& A#3=7.
#4=9.
* Y( ~$ o# ]2 Q/ A3 p' ]% dN1WHILE[#1LT#2]DO1
#1=#1+#2
9 G2 S' ^6 s- B; ?#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
, V$ k4 L: q( A6 g1 n5 l#2=#2+#3
#3=#2-#3
#2=#2-#3
$ B% f! x5 P0 PEND2
WHILE[#3LT#4]DO3
$ W% L) e; E5 @  p# J3 ~5 V#3=#3+#4
4 Q5 _9 u$ }1 W( F#4=#3-#4
% X; b8 K/ g  @) p9 S2 }#3=#3-#4
END3
, l; h- i( n  F+ u! JIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
* @$ q3 _' u8 n6 \/ F

0 v& F* P" L# ^法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
9 z7 c, J0 m/ f6 c, P#2=B.
: ^5 X3 G$ b# q# Y#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
/ Q3 p3 ^% s2 n  l#1=#1+#2
#2=#1-#2
$ l" l- Z+ n* s#1=#1-#2
3 t% w  v& y0 _8 @. E+ vN2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
* ^5 C5 x. H. t' Q+ P#4=#3-#4
5 N0 j# n3 g: D' D  e+ I#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
& u) q: P# n/ y4 |#1=1.
  @+ K; r+ p0 S0 G0 B+ i# v#2=4.
#3=7.
3 R9 R4 G# M+ p2 `#4=9.
N2 #31=1.
#32=2.
2 u. [& G2 d& {8 x( Q- p0 h7 K6 BN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
5 J5 p( l4 q! X4 E6 o4 l" c#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
- {$ [# ~2 ^! u5 f. C#31=3.
( ?0 g- V  S" ?/ t( ~IF[#2LT#3]]GOTO1
( P% i) @( K- Q) a, g2 O# d#32=4.
IF[#3LT#4]OTO1
% m9 B) [$ B4 nIF[#1LT#2]GOTO2
#31=2.
( y9 Y0 I, A' D! |9 |0 @+ L/ O$ B#32=3.
IF[#2LT#3]GOTO1
; v& p- T, V4 ?4 dM0

* z% L1 s' w  O6 `! b7 ~/ f) E- [看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶