Очень срочно!!!
10-11 класс
|
найти среднее арифметическое значений функции y=2(x+1) на интервале x1<=x<=x2, где x1=-20, x2=10 при шаге x3=5
const
x1 = -20;
x2 = 10;
x3 = 5;
var
x, s: real;
n: integer;
begin
x := x1;
n := 0;
while x <= x2 do
begin
s := s + 2 * (x + 1);
n := n + 1;
x := x + x3
end;
writeln('Среднее арифметическое равно ', s / n)
end.
Результат работа программы:
Среднее арифметическое равно -8
Другие вопросы из категории
1) a=0;
for i:=1 to 4 do
a:=a*i;
write (a)
2)a:=1;
for i:=2 to 5do
a:=a+i;
write (a)
сомаолов.сравните обьемы информации содержащейся в этих сообщениях
Читайте также
1) Найти количество отрицательных элементов в массиве А [3,8].
2) Заполнит и вывести массив Р [6,7], запросить номер строки и вывести её на экран.
3) Заполнить и вывести массив Р [6,7], запросить номер строки, заменить все её элементы на 5 и вывести новый массив.
4) В квадратной матрице А [10,10] заменить элементы главной диагонали на 0.
Всё нужно очень срочно