ВУЗ:
Составители:
34
begin
new(p);
with p^ do
begin
read(F,inf);
nl:=n div 2; nr:=n-nl-1;
L:=Balance(nl); R:=Balance(nr);
end
end;
Balance:=P
end; { Balance }
Пример 5.2. Построить идеально сбалансированное дерево, изображенное
на рисунке 8 а).
Число уровней дерева на рисунке 8 а) – n . Значение k вершины на каждом
уровне дерева меняется от 1 до n.
Рекурсивная функция Tree_1n построения дерева T вида 8 а) имеет 3 пара-
метра ( T, n, k ) и может быть описана так :