Дерево — это граф, в котором нет циклов, т. е. в нём нельзя из некоторой вершины пройти по нескольким различным рёбрам и вернуться в ту же вершину. Отличительной особенностью дерева является то, что между любыми двумя его вершинами существует единственный путь.
Всякая иерархическая система может быть представлена с дерева.
У дерева выделяется одна главная вершина, называемая его корнем. Каждая вершина дерева (кроме корня) имеет только одного предка, обозначенный предком объект входит в один класс (класс — множество объектов, обладающих общими признаками.) высшего уровня.
Любая вершина дерева может порождать несколько потомков — вершин, соответствующих классам нижнего уровня. Такой принцип связи называется «один-ко-многим». Вершины, не имеющие порождённых вершин, называются листьями.
Родственные связи между членами семьи удобно изображать с графа, называемого генеалогическим или родословным деревом.
{Метод прямоугольников, рекурсия}
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, т.е. заданная точность обеспечивается.