Помогите пожалуйста написать на Паскале программу. Нужно вычислить среднее арифметическое всех положительных значений такой функции
y(x) = x3 + cos4x, на промежутке [-2; 2] с шагом h = 0.2
y(x) = x3 + cos4x, на промежутке [-2; 2] с шагом h = 0.2
More Questions From This User See All
Answers & Comments
Ответ:
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.
Объяснение: