НУЖНА сделайте в Exel Для выполнения задания необходимо организовать табличные вычисления над данными, расположенными на разных листах рабочей книги. 1. Торговая фирма, в состав которой входят три магазина, занимается продажей товаров бытовой химии. Еженедельно составляется отчет по продажам. Автоматизируйте процесс создания отчета: - данные о еженедельных продажах для каждого магазина разместите на отдельных листах рабочей книги; - поместите на отдельный лист итоговый отчет по всем магазинам, в котором подсчитывается суммарное количество проданного товара каждого типа, денежная сумма по каждому товару, итоговая денежная сумма по каждому товару, итоговая денежная сумма по всем магазинам. 2. На трех метеостанциях ежедневно измеряются температура и влажность воздуха, а также атмосферное давление. Метеоданные по каждой станции за один месяц разместите на отдельных листах рабочей книги. На отдельном листе в каждый день сесяца вычислите усредненные (по всем трем метеостанциям) метеоданные.

function Len(x1,y1, x2, y2:real):real;

begin

   Len := sqrt( sqr(x1 - x2) + sqr(y1 - y2) );

end;

 

var

  x1,x2,x3,x4,x5, y1, y2, y3, y4, y5:real;

begin

   write('x1 = '); readln(x1);

   write('y1 = '); readln(y1);

   write('x2 = '); readln(x2);

   write('y2 = '); readln(y2);

   write('x3 = '); readln(x3);

   write('y3 = '); readln(y3);

   write('x4 = '); readln(x4);

   write('y4 = '); readln(y4);

   write('x5 = '); readln(x5);

   write('y5 = '); readln(y5);

   writeln('P = ', Len(x1,y1,x2,y2) + Len(x2,y2,x3,y3) + Len(x3,y3,x4,y4) + Len(x4,y4,x5,y5) + Len(x5,y5,x1,y1));

end.

 

function Len(x1,y1, x2, y2:real):real;

begin

   Len := sqrt( sqr(x1 - x2) + sqr(y1 - y2) );

end;

 

var

  x1,x2,x3,x4,x5, y1, y2, y3, y4, y5:real;

begin

   write('x1 = '); readln(x1);

   write('y1 = '); readln(y1);

   write('x2 = '); readln(x2);

   write('y2 = '); readln(y2);

   write('x3 = '); readln(x3);

   write('y3 = '); readln(y3);

   write('x4 = '); readln(x4);

   write('y4 = '); readln(y4);

   write('x5 = '); readln(x5);

   write('y5 = '); readln(y5);

   writeln('P = ', Len(x1,y1,x2,y2) + Len(x2,y2,x3,y3) + Len(x3,y3,x4,y4) + Len(x4,y4,x5,y5) + Len(x5,y5,x1,y1));

end.