Курсовая работа: Вибір найкращого варіанта ГВС гнучкої виробничої системи

res:=0;

for i:=1 to n do

begin

res:=res+(stepen(r,i)/fakt(i));

end;

sum:=res;

end;

begin

clrscr;

a:= 91;

t:= 0.181;

d:= 9.1;

vv:= 6.9;

vn:= 1.9;

l:= 10;

r:=a*t;

mainr:=0;

writeln(' ----------------------------------');

writeln('| | k | n | dohid |');

writeln('|----------------------------------|');

for k:= 17 to 23 do

begin

for n:= 1 to 6 do

begin

part1:= stepen(r,(n+l*k))/(stepen(n,(l*k))*fakt(n));

part2:=1/(1+sum(r, n) + (stepen(r, (n+1))/n*fakt(n)) * ((1-stepen((r/n), (l*k)))/(1-(r/n))));

part3:=vv*n+vn*k;

result:=d*a*(1-part1*part2)-part3;

writeln('|pributok | [',k,'] | [',n,'] | = ', result:8:2,'|');