Рассчитать значения функции

Tip2

Рассчитать значения функции: Y=4.26Пe^-x-e^x( П имеется в виду Pi) При изменении аргумента от -1 с шагом дельта=0.1 до достижения условия Y<-10. Получить произведение положительных значений и среднеарифметическое отрицательных.
3 ответа

Tip2

Вот так?


Tip2

да так


Tip2

function f(x:real):real;
begin
f:=4.26*pi*exp(-x)-exp(x)
end;
var x,dx,y,p,sr:real;
    k:integer;
begin
x:=-1;
dx:=0.1;
p:=1;
k:=0;
sr:=0;
repeat
  y:=f(x);
  writeln('x=',x:5:1,' y=',y:7:2);
  if y<0 then
   begin
    k:=k+1;
    sr:=sr+y;
   end;
  if y>0 then p:=p*y;
  x:=x+dx
until y<-10;
sr:=sr/k;
writeln('Среднее арифметическое отрицательных=',sr);
write('Произведение положительных=',p);
end.