Question

Помогите пожалуйста написать на Паскале программу. Нужно вычислить среднее арифметическое всех положительных значений такой функции y(x) = x3 + cos4x, на промежутке [-2; 2] с шагом h = 0.2

Answer 1

Ответ:

program zadacha;

var x, y, sr: real;

   k: integer;

   

begin

   x := -2;

   while x <=2 do begin

       y := x*x*x+cos(4*x);

       if y > 0 then begin

           sr := sr + y;

           k := k+1;

       end;

       x := x+0.2;

   end;

   sr := sr / k;

   writeln(sr);

end.

Объяснение:

Answer 2

Вот пример программы на языке Паскаль, которая вычисляет среднее арифметическое всех положительных значений функции y(x) = x^3 + cos^4(x) на промежутке [-2; 2] с шагом h = 0.2:

program AverageFunction;

var
  x, sum, count: real;

function FunctionValue(x: real): real;
begin
  FunctionValue := power(x, 3) + power(cos(x), 4);
end;

begin
  sum := 0;
  count := 0;

for x := -2 to 2 step 0.2 do
  begin
    if FunctionValue(x) > 0 then
    begin
      sum := sum + FunctionValue(x);
      count := count + 1;
    end;
  end;

if count > 0 then
  begin
    writeln('Среднее арифметическое положительных значений функции: ', sum / count);
  end
  else
  begin
    writeln('На заданном промежутке нет положительных значений функции.');
  end;
end.

Эта программа использует цикл `for` для перебора значений `x` на заданном промежутке [-2; 2] с шагом 0.2. Внутри цикла проверяется, является ли значение функции `y(x)` положительным. Если да, то значение добавляется к сумме `sum`, а счетчик `count` увеличивается на 1.

После завершения цикла, программа проверяет значение `count`. Если оно больше 0, то выводится среднее арифметическое положительных значений функции `y(x)`. В противном случае выводится сообщение о том, что на заданном промежутке нет положительных значений функции.

Обратите внимание, что данная программа предоставляется в качестве примера и может потребоваться дополнительная проверка и оптимизация для обработки других случаев или более сложных функций.