Question

Y=0,5+√x2+1-tg2(x2+1), найти среднее арифметическое отрицательных значений функции . исходные данные xmin- 1,5, xmax-2,3,∆x-0,1

Answer 1

PascalABC.NET 3.4.2, сборка 1979 (16.02.2019)

$\tt\displaystyle y = 0.5 + \sqrt{x^2 + 1} - tg^2(x^2 + 1)$

const  xMin    = 1.5;  xMax    = 2.3;  xDelta  = 0.1; var  x, y, resultSum: real;  valueOfIt: integer; begin  x := xMin;  while x <= xMax do    begin      y := 0.5 + Sqrt(Power(x, 2.0) + 1) - Power(Tan(Power(x, 2.0) + 1), 2.0);      if (y < 0) then        resultSum := resultSum + y;      x := x + xDelta;      valueOfIt := valueOfIt + 1;    end;  Writeln('Среднее отрицательных значений: ', resultSum / valueOfIt); end.ответ

Среднее отрицательных значений: -12.7547010184892