數據交換法的使用

羅蓋仙

6 B- H" d" k( ?' s  L7 c
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
4 z: s; ^( B. D/ k
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
" p' y9 h+ f6 P7 Q2 s8 {' D4 \使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
- Y8 K2 }( |. ^* o$ f+ q' z: i$ Y9 Z方法A：
5 j3 @7 B0 E: ]; GIF[#1GE#2]GOTO5
#1=#1+#2
: q8 u% z' N& a+ b* H& D1 d#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
4 _! a' f0 X7 ?#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

% k" K& O( Y  V( |* o9 k我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
. K' B* R5 @  s; m% MWHILE[#1LT#2]DO1
1 J* M  M0 U3 b/ B9 `; U: F( @#1=#1+#2
5 b; ]; E. i  h) ^4 [0 e  q3 J#2=#1-#2
#1=#1-#2
#3=#3+#4
9 o5 p4 ]4 D2 H0 ?$ L% F+ t; A4 O#4=#3-#4
% v* y# v: q4 [0 y#3=#3-#4
7 D$ P1 D. X& l! A% G8 E9 [END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
4 N/ v6 T5 X# X1 L" N& f' P
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
7 ~; t. G5 P4 o- c3 ^5 V& J  j- u( CM0

又想把它這樣寫
*#31=#[#30+#500AND1.]
; c/ L3 F  Q  h, D2 h9 sM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
  D/ K4 G( i' c只有逻辑判断有些系统版本不支持
8 L  N# j/ {- U% m6 m8 ^) y, X所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
5 v+ {9 h0 l6 u6 |#3=7.
4 Y, R8 g, k- [  u# R#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
+ K( s) L1 U0 h2 @% W  G; y5 q  ?#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
/ p0 q; T3 w6 J& k$ r5 a2 [#2=#2+#3
#3=#2-#3
1 y* r$ [5 J9 w0 B& }6 j#2=#2-#3
5 z" |5 c) T  U! n. e3 lEND2
WHILE[#3LT#4]DO3
) ^+ a; d8 r% w% ^0 l" k#3=#3+#4
0 [' U" W# F+ Y8 Q! b#4=#3-#4
' u- `, G7 g' g( V8 _#3=#3-#4
END3
IF[#1LT#2]GOTO1
, U- X+ {5 r6 {IF[#2LT#3]GOTO2
M0
' q2 [5 T2 M) {3 }7 G: U
& Q; z$ s; B) k' P' C
法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
; w2 {. y  m- v( D4 t, ~, P! t#3=C.
#4=D.
, C& g5 ?0 g9 FN1 IF[#1GE#2]GOTO2
#1=#1+#2
0 i; o/ y' t2 Y( \) W#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
3 b& R& [' c  \- q5 ?' ^! O- b#3=#2-#3
7 x  i, g" s; D0 K3 d3 u' E#2=#2-#3
- q5 I6 N( W9 T5 Z. {0 Z9 c+ a( xN3 IF[#3GE#4]GOTO4
1 m2 V- j% F5 b, w1 z#3=#3+#4
#4=#3-#4
0 V; {5 P+ W8 d! U% a: t$ ?2 U* V#3=#3-#4
1 Z! y# G9 H7 b# q4 P3 j1 g5 YN4 IF[#1LT#2]GOTO1
* c1 `0 t3 @  V5 BIF[#2LT#3]GOTO2
5 |7 f1 k) r' B0 rM0

羅蓋仙

3 g" @5 `2 X7 P4 N
2 u! ?7 R: M$ E; r: U6 c( u法二：使用変変數^^
#1=1.
#2=4.
" X/ o3 ?; {( L. y! P9 `6 g#3=7.
, Q' N! R7 U) }* E#4=9.
N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
0 E! y8 L0 P+ ]  T. g1 i2 O5 x#[#31]=#[#31]+#[#32]
( e4 i9 y5 z1 Y( g$ n" h" i  l#[#32]=#[#31]-#[#32]
! U" b) R' [9 f  H#[#31]=#[#31]-#[#32]
END1
#31=3.
IF[#2LT#3]]GOTO1
3 `) O2 |7 x. S# R% n#32=4.
( x) ?' \" t* ~3 kIF[#3LT#4]OTO1
& m  t9 E6 \4 h% ]IF[#1LT#2]GOTO2
" L1 {% v2 {' X  `- P#31=2.
" z0 g& b' W$ |; G  ?+ {4 C#32=3.
IF[#2LT#3]GOTO1
' u: m: e* i- E- ^1 PM0

看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶