數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
5 h9 b7 W: w+ o6 {有人說數據交換法.能用于何處???我來舉個例子
& [  j) N/ `2 \2 x9 z
! u- s4 {6 D( R. l* t. y3 f如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
% L' ^1 s3 w* ?6 c2 r! k方法A：
  j, K5 Z5 ?  S2 QIF[#1GE#2]GOTO5
% i8 m4 ]. o# p# @#1=#1+#2
! M$ n3 {3 m4 Q1 n7 z#2=#1-#2
" t% F% ?) ]$ r5 I5 o( v$ x#1=#1-#2
#3=#3+#4
#4=#3-#4
: m: J5 ]" V& w# I/ ^$ @5 f#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
  y/ ?( u6 L3 ?. d7 \WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
5 e- P; U9 q" U. H' H#1=#1-#2
#3=#3+#4
#4=#3-#4
( m, w8 R8 t+ {1 u5 s9 O#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

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

又想把它這樣寫
" c- o2 N7 X8 Z2 K- ^*#31=#[#30+#500AND1.]
M0

空气中的小鱼

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

羅蓋仙

使用數據置換來按大小排列，大→小
- s# W& X# c6 B# @法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
2 L" c, M3 a" ]2 b( R# B* {#2=4.
#3=7.
; O& k' Q# c. H6 D# P+ X! }5 A3 J2 y#4=9.
N1WHILE[#1LT#2]DO1
) K! f1 z4 m: c% ]#1=#1+#2
* C! Y7 i- \6 i/ ]) A#2=#1-#2
0 x$ l; T# c* p4 w#1=#1-#2
END1
/ j5 k! ?  y8 \5 _9 d9 [1 ?N2WHILE[#2LT#3]DO2
  ]' E5 ^1 w; A#2=#2+#3
#3=#2-#3
5 k% z$ r, y( z. J- ?$ R6 v% ^#2=#2-#3
; Q, W) a, R3 i. O; A  V  IEND2
WHILE[#3LT#4]DO3
#3=#3+#4
6 w& E( \  H& Y1 B. ~#4=#3-#4
#3=#3-#4
" e, o% L; i' h/ b3 @/ F7 W6 }END3
IF[#1LT#2]GOTO1
- ]9 @. A, ]! t2 q$ X! UIF[#2LT#3]GOTO2
3 h5 @/ m7 n' {M0
9 u# W7 r0 @/ _) |9 O

, _4 s% {- l  |/ ]$ N# [$ A3 N+ ]法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
) u9 Z( Q9 l, R2 j# _* P#2=B.
#3=C.
3 }5 _; }* H$ A! b& \% ?#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
. K  r+ o  V, p#1=#1-#2
, A; f2 a7 {. n+ R  Z! ]- MN2 IF[#2GE#3]GOTO3
6 ^% o  K: L) u( O#2=#2+#3
. o3 Y3 X3 [+ W& d" J) c& P#3=#2-#3
  c( t( F3 b) B* P) z- E#2=#2-#3
3 E3 a2 ?1 m) x$ FN3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
#3=#3-#4
8 P7 v/ _2 z! HN4 IF[#1LT#2]GOTO1
- s, P# o, U9 `+ Q7 ^. _/ m+ ^1 }IF[#2LT#3]GOTO2
% o, G, _% K  ?+ `/ jM0

羅蓋仙

$ h7 U! p' v( J, j3 m* B( t法二：使用変変數^^
, A* O& D6 e' z8 a% L, F7 }#1=1.
; s; m* ]0 g) u" a& Y' O1 y#2=4.
% L# s% h' }+ \4 ~1 D#3=7.
#4=9.
N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
: E# {) ^# v" x#[#31]=#[#31]+#[#32]
2 _, h8 F/ K" a1 N#[#32]=#[#31]-#[#32]
! ~8 M5 w" G$ X#[#31]=#[#31]-#[#32]
3 U9 Y8 m% B- |+ S. F) ?& J4 A1 vEND1
& p! c& m' S3 x2 Q& p: \' W#31=3.
IF[#2LT#3]]GOTO1
#32=4.
$ H, {2 j! }  SIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
* _6 E* C/ Q* r#32=3.
IF[#2LT#3]GOTO1
& V; R& X) J) cM0
" F0 @( f6 |1 g3 t4 b' F- g4 Z9 X+ n
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶