Предмет: Информатика,
автор: trashmusorvedmak
Ребят, помогите.....я вообще не шарю в Паскале, кошмар какой-то:
Напишите программу на языке Паскаль, а также постройте блок-схему алгоритма для решения следующей задачи:
Вычислить среднее арифметическое всех положительных значений функции
y(x) = x3 + cos4x (если что, то здесь числа- степени), на промежутке [-2; 2] с шагом h = 0.2.
denisukdara:
дай свою телегу,,.!!
Ответы
Автор ответа:
6
Ответ:
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.
Объяснение:
Приложения:

Интересные вопросы
Предмет: Технология,
автор: d0geykin
Предмет: Английский язык,
автор: Неудачник69
Предмет: Қазақ тiлi,
автор: отличник339
Предмет: Химия,
автор: grigorijvashhu