Один человек в 8 утра увидел НЛО. В течение 15 минут он встретил трех
своих знакомых и рассказал об этом. В течение следующих 15 минут каждый из
этих троих тоже встретил трех своих знакомых и т.д. Продемонстрируйте
процесс, пока количество людей не станет больше 100 0 Сколько пройдет
часов? (сделать через ms exel)
{Метод прямоугольников, рекурсия}
var
a, x, h, s: real;
i: integer;
begin
a := 0;
h := (b - a) / n;
x := a;
s := 0;
for i := 1 to n do
begin
s := s + sin(x);
x := x + h;
end;
if abs(s * h - p) > eps then
Intg := Intg(s * h, b, 2 * n, eps)
else
Intg := s * h;
end;
var
b, eps: real;
begin
write('Задайте верхний предел интегрирования и точность: ');
Readln(b, eps);
writeln('Значение интеграла: ', Intg(0, b, 2, eps):0:7);
end.
Тестовое решение:
Задайте верхний предел интегрирования и точность: 2 0.000001
Значение интеграла: 1.4161460
Точное значение интеграла равно 1-cos(2) ≈1.416146836, т.е. заданная точность обеспечивается.