數據交換法的使用

羅蓋仙

: \. A& Z9 C8 {' |8 Q5 v8 r
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
5 _  e# s1 A9 K5 m8 |，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
6 _: d" r; E5 \#1=#1+#2
( A$ U7 Q3 p- L$ ]3 X7 Y# ?3 @/ S. V#2=#1-#2
  D1 S, W) w  `% ^#1=#1-#2
+ L9 u9 D+ x" o8 I! H#3=#3+#4
#4=#3-#4
#3=#3-#4
( `1 `1 I, e; d6 b$ y% m# VN5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
) D& p) Q$ E* {( C# j. P1 k# l! uWHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
" C' ]9 {% Q( q; [4 S+ S" L#3=#3+#4
: h' d8 m  x- W#4=#3-#4
#3=#3-#4
8 t( V, [+ J2 B3 s0 h1 NEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
  b$ F& d& [6 U% `; U#30=1.
*#31=#[#30+#500MOD2.]
M0

又想把它這樣寫
*#31=#[#30+#500AND1.]
2 c/ d4 \# q7 P1 X4 nM0

空气中的小鱼

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

羅蓋仙

; a) r4 d% ]- W4 \+ M9 m0 n: D
; }1 D  N( U" O% @7 P# Q使用數據置換來按大小排列，大→小
  k1 \: s; X/ o1 }( P1 W法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
4 O4 |. n: ~2 j5 j7 `* j#1=1.
#2=4.
#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
  A9 Q+ I! q  J9 S* J9 ?# g+ A0 n! z#2=#1-#2
5 t: d" [0 |6 b#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
2 y9 w. E5 w" @1 C2 E0 S5 Q% q8 m#2=#2+#3
3 v* a/ `  o0 b( n#3=#2-#3
#2=#2-#3
END2
! y$ g! M! y& {- W4 j( UWHILE[#3LT#4]DO3
( _3 u% N$ L+ j3 ~$ K" v8 Q0 r9 I) N( u#3=#3+#4
" @2 r9 N& m$ I: M- t#4=#3-#4
#3=#3-#4
END3
IF[#1LT#2]GOTO1
5 e1 {# v0 K- uIF[#2LT#3]GOTO2
M0


0 P: e% o/ y- e, s0 Q: r% G法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
: A( g& D3 k* X. ?4 c#2=B.
7 W* Z5 j' @# M" Z. r* N#3=C.
" D" \. h2 E, z1 D- w& W#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
2 o% [% }4 \- I2 X- ]+ U8 i#2=#1-#2
0 A; f5 G4 L  C; m9 A8 ?' ]" i% x; p5 j#1=#1-#2
3 k' y% k( n/ m" R" wN2 IF[#2GE#3]GOTO3
#2=#2+#3
9 ]  I7 I2 w3 F3 I3 T! e& W#3=#2-#3
& [9 V8 [* H( D9 ^#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
8 u/ Y/ {/ f+ ^  M2 p5 r# X* A#4=#3-#4
+ k7 R: R3 ^3 `#3=#3-#4
* L; H( s# f8 Y: M" j% d( uN4 IF[#1LT#2]GOTO1
2 M& H' g; e) g# z/ Y$ n& hIF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
#1=1.
" P6 ?% x( q5 Q5 m& J4 S$ s#2=4.
1 [, ?, G1 f5 U% {/ w3 j#3=7.
- Z, s+ u' y) X- K& @#4=9.
N2 #31=1.
9 w) Z& ^" _1 M% ~/ O) p. J% Y  p8 r#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
! y* N2 z$ ^0 T" s#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
+ D7 w% ^5 c% {END1
# g4 n! M% `9 V- G1 R; Z; ]#31=3.
& N: m! s- v/ r5 ]0 dIF[#2LT#3]]GOTO1
#32=4.
% S% P9 F3 \) J) NIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
#32=3.
IF[#2LT#3]GOTO1
( U/ `# n' B2 W' F. a! gM0

; r$ ?- |  y# ]( o' H看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶