Programming Taskbook


E-mail:

Пароль:

Регистрация пользователя   Восстановление пароля

 

ЮФУ

Электронный задачник по программированию

©  М. Э. Абрамян (Южный федеральный университет), 1998–2023

 

Решения | PascalABC.NET | Деревья

PrevNext


Выполнение заданий на обработку деревьев

Данная страница содержит описание процесса решения типового задания на обработку бинарных деревьев, а также примеры решения заданий на бинарные деревья с обратной связью и деревья общего вида.

В отличие от описания, приведенного в разделе «Pascal | Деревья», в котором для реализации бинарных деревьев использовались записи и указатели, здесь рассматриваются группы заданий, в которых бинарные деревья реализуются с помощью класса Node.

Анализ бинарного дерева: ObjTree2

В заданиях группы ObjTree, как и в заданиях группы ObjDyn, мы встречаемся с двумя новыми видами данных: это объекты-узлы типа Node, а также древовидные динамические структуры, реализованные в виде наборов связанных друг с другом объектов-узлов. Класс Node не входит в стандартную библиотеку PascalABC.NET; он определен в задачнике Programming Taskbook, а точнее, в модуле PT4.

Особенности, связанные с использованием новых типов данных, рассмотрим на примере задания ObjTree2.

ObjTree2°. Дан объект A1 типа Node — корень дерева. Эта объект связан свойствами Left и Right с другими объектами того же типа (дочерними вершинами), они, в свою очередь, — со своими дочерними вершинами, и так далее до объектов, свойства Left и Right которых равны nil (у некоторых вершин может быть равно nil одно из свойств Left или Right). Вывести количество вершин дерева.

Создание программы-заготовки и знакомство с заданием

Напомним, что программу-заготовку для решения задания можно создать с помощью модуля PT4Load. Приведем текст созданной заготовки (здесь и далее мы не будем указывать начальную директиву uses PT4):

begin
  Task('ObjTree2');
end.

После запуска программы на экране появится окно задачника. На рисунке приводится вид окна в режиме с динамической компоновкой, появившемся в версии 4.11 задачника.

Это окно содержит в качестве исходных и результирующих данных новые элементы: бинарные деревья и ссылки на объекты типа Node.

Начнем с описания того, как отображается на экране дерево. Для его вывода используется несколько экранных строк. На каждой строке изображаются вершины дерева, находящиеся на определенном уровне (номер уровня указывается слева от изображения дерева). Для каждой вершины выводится ее значение, т. е. значение свойства Data соответствующего объекта типа Node. Любая вершина соединяется линиями со своими дочерними вершинами, расположенными на следующем уровне дерева; левая дочерняя вершина изображается слева от родительской вершины, а правая — справа. Отсутствие у вершины одной или обеих дочерних вершин означает, что ее свойства Left и/или Right содержат нулевую ссылку nil.

Рассмотрим в качестве примера дерево, приведенное на рисунке. Корень этого дерева имеет значение 60, левая дочерняя вершина корня равна 90, правая дочерняя вершина равна 13, глубина дерева равна 4. Все листья дерева находятся на уровнях 2 и 4; лист на уровне 2 имеет значение 14, листья на уровне 4 — значения 51, 63, 75, и 47. Некоторые из внутренних вершин дерева имеют по две дочерние вершины (это корень и вершины со значениями 90, 13 и 21), некоторые по одной: левой (вершины 52, 74, 88 и 84) или правой (вершина 60 на уровне 3).

Поскольку это дерево указано в разделе исходных данных, следовательно, после инициализации задания оно уже существует и размещается в некоторой области динамической памяти. Для доступа к дереву, размещенному в динамической памяти, достаточно иметь переменную типа Node, ссылающуюся на некоторую вершину этого дерева — объект класса Node (напомним, что в языке PascalABC.NET любая переменная классового типа содержит ссылку, т. е. адрес той области динамической памяти, в которой размещается объект данного класса). Поэтому в любом задании на обработку деревьев в набор исходных данных входят данные типа Node, которые содержат ссылки на какие-либо вершины деревьев, созданных задачником (как правило, указывается ссылка на корень дерева).

Из текста, описывающего дерево, видно, что на ее корень ссылается объект с именем A1, который также содержится в наборе исходных данных. Описание этого объекта имеет вид

A1 = Node

Здесь текст «A1 =» является комментарием и выделяется, как обычный комментарий, черным цветом, а текст «Node», выделенный синим цветом, означает, что этот элемент исходных данных является объектом типа Node, который надо ввести в программу с помощью функции ReadNode. Если в задании требуется передать задачнику некоторую ссылку, связанную с вершиной дерева, то необходимо использовать функции вывода Write или Print. Более подробно работа с исходными и результирующими данными типа Node обсуждается в разделе, посвященном линейным динамическим структурам.

Решение задачи

Вернемся к заданию ObjTree2. В нем не требуется ни создавать, ни преобразовывать исходное дерево; его необходимо лишь проанализировать, а именно определить количество его вершин.

Для выполнения этого задания, как и для подавляющего большинства других заданий на обработку деревьев, следует воспользоваться вспомогательной рекурсивной функцией. Рекурсивная природа алгоритмов, связанных с обработкой деревьев (в частности, бинарных деревьев), объясняется тем, что сами определения деревьев общего вида и бинарных деревьев являются рекурсивными. Так, дать словесное описание функции NodeCount(a), подсчитывающей число вершин дерева с корнем, с которым связан объект a, можно следующим образом: если объект a содержит нулевую ссылку, то следует вернуть значение 0; в противном случае следует вернуть значение 1 + NodeCount(a.Left) + NodeCount(a.Right) (в этом выражении первое слагаемое соответствует корню дерева, второе — его левому поддереву, а третье — его правому поддереву; при этом не требуется проверять, что указанные поддеревья существуют, так как при их отсутствии соответствующее слагаемое просто будет равно нулю).

Таким образом, решение задачи будет иметь следующий вид:

function NodeCount(a: Node): integer;
begin
  result := a = nil ? 0 : 1 + NodeCount(a.Left) + NodeCount(a.Right);
end;
begin
  Task('ObjTree2');
  Print(NodeCount(ReadNode));
end.

Цепочка рекурсивных вызовов функции NodeCount завершается при достижении терминальной вершины (листа), у которой свойства Left и Right равны nil. Благодаря наличию функции NodeCount, раздел операторов становится очень простым: в нем считывается корень исходного дерева, который передается функции NodeCount, а возвращаемое значение этой функции выводится процедурой Print.

Проверив программу на пяти тестовых наборах, мы получим сообщение «Задание выполнено!».

Примечание 1. Начиная с версии 4.15, в вариант задачника для языка PascalABC.NET включена группа GCTree, отличающаяся от группы ObjTree тем, что при выполнении заданий группы GCTree на удаление вершин дерева (эти задания имеют номера 40–43, 55) не требуется освобождать ресурсы, связанные с удаляемыми вершинами (предполагается, что эти действия автоматически выполняются специальным сборщиком мусора — Garbage Collector, GC).


Бинарные деревья с обратной связью и деревья общего вида: ObjTree49, ObjTree86

Деревья с обратной связью

Рассмотренная выше реализация бинарных деревьев позволяет легко переходить от родительских вершин к их дочерним вершинам, но не допускает обратного перехода. В то же время, для некоторых задач, связанных с обработкой деревьев, возможность обратного перехода от потомков к их предку позволяет получить более простое решение. Ясно, что для обеспечения возможности обратного перехода каждую вершину дерева надо снабдить еще одним свойством типа Node, в котором должна храниться ссылка на ее родительскую вершину. Это свойство естественно назвать Parent. Поскольку корень дерева предка не имеет, его свойство Parent должно содержать нулевую ссылку.

Деревья, вершины которых содержат информацию о своих родителях, будем называть деревьями с обратной связью. Особенности работы с подобными деревьями рассмотрим на примере задания ObjTree49.

ObjTree49°. Дан корень A1 дерева, вершинами которого являются объекты типа Node, связанные между собой с помощью свойств Left и Right. Используя свойство Parent объекта Node, преобразовать исходное дерево в дерево с обратной связью, в котором каждая вершина связана не только со своими дочерними вершинами (свойствами Left и Right), но и с родительской вершиной (свойством Parent). Свойство Parent корня дерева положить равным nil.

Запустив программу-заготовку, созданную для задания ObjTree49, мы увидим в области исходных данных изображение «обычного» бинарного дерева, в то время как в области результатов будет изображено дерево с обратной связью, вершины которого связаны не одинарными, а двойными линиями.

Обратите также внимание на то, что в области результатов отсутствуют какие-либо данные, кроме измененного дерева. Это означает, что в программе, решающей задачу, не требуется использовать процедуры вывода; достаточно лишь преобразовать исходное дерево требуемым образом. Поскольку при таком преобразовании корень дерева A1 не изменится, задачник сможеть получить доступ к этому дереву и проверить его правильность.

Для преобразования исходного дерева в дерево с обратной связью необходимо задать правильные значения для свойств Parent всех вершин дерева, перебирая эти вершины с помощью подходящей рекурсивной функции. В эту функцию удобно передавать в качестве параметров не только текущую вершину a, но и предка par этой вершины:

procedure SetParent(a, par: Node);
begin
  if a = nil then
    exit;
  a.Parent := par;
  SetParent(a.Left, a);
  SetParent(a.Right, a);
end;
begin
  Task('ObjTree49');
  SetParent(ReadNode, nil);
end.

При стартовом запуске рекурсивной функции SetParent в качестве второго параметра указывается нулевая ссылка.

Отображение деревьев: дополнительные сведения

Обозначение для двойной связи может оказаться полезным при анализе ошибочного решения. Так, если в изображении дерева с обратной связью имеется вершина, соединенная со своей родительским вершиной не двойной, а одинарной линией, значит, у этой вершины свойство Parent содержит ошибочное значение (например, нулевую ссылку).

Специальное обозначение предусмотрено также для ситуации, когда корень дерева с обратной связью имеет значение, отличное от нулевой ссылки. Эту ситуацию можно промоделировать с помощью приведенной выше программы, если изменить раздел операторов, например, следующим образом:

begin
  Task('ObjTree49');
  Node a1 = ReadNode;
  SetParent(a1, a1);
end.

В результате подобного изменения свойство Parent корня дерева будет указывать на этот же самый корень, что является ошибочным. При запуске измененной программы окно задачника примет следующий вид:

Признаком ошибочного значения свойства Parent для корня полученного дерева является красная звездочка, отображаемая выше этого корня.

Отметим также, что для новых вершин (которые требуется создать программе учащегося), а также для вершин исходных деревьев, которые требуется удалить в ходе выполнения задания, используются те же обозначения, что и для аналогичных узлов линейных динамических структур: значения новых вершин обрамляются точками, а значения удаляемых вершин изображаются с использованием бирюзового цвета большей яркости. Более подробно эти обозначения описываются в разделе, посвященном линейным динамическим структурам (см. решения задач на добавление узлов к динамической структуре и на их удаление).

Деревья общего вида

С помощью связанных объектов типа Node можно моделировать не только бинарные деревья, но и произвольные упорядоченные деревья, вершины которых имеют любое число непосредственных потомков (будем называть такие деревья деревьями общего вида; для них также используется название «деревья с множественным ветвлением»). Рассмотрим задание ObjTree86 — первое из заданий, связанных с деревьями общего вида, в котором описываются особенности подобных деревьев.

ObjTree86°. Дерево общего вида (каждая вершина которого может иметь произвольное число дочерних вершин, расположенных в фиксированном порядке в направлении слева направо) реализуется с помощью набора связанных объектов типа Node следующим образом: для каждой внутренней вершины ее свойство Left содержит ссылку на ее первую (т. е. левую) дочернюю вершину, а свойство Right — ссылку на ее правую сестру, т. е. вершину, имеющую в дереве общего вида того же родителя. Свойство Right корня дерева общего вида всегда равно nil, так как корень сестер не имеет. Дан корень A1 непустого бинарного дерева. Создать дерево общего вида, соответствующее исходному бинарному дереву, и вывести ссылку A2 на его корень.

Приведем пример дерева общего вида, которое реализовано с помощью связанных объектов типа Node (аналогичным образом деревья общего вида изображаются в окне задачника):

Корень этого дерева (со значением 13) имеет три дочерние вершины (71, 73 и 29), причем вершина 71 не имеет потомков, вершина 73 имеет три непосредственных потомка (18, 93 и 92), а вершина 29 — два (24 и 84). На последнем уровне располагается вершина 46, являющаяся единственной дочерней вершиной вершины 93.

При ознакомительном запуске задания ObjTree86 на экране появится окно, подобное следующему.

Обратите внимание на то, как выглядит одно и то же дерево в двух различных представлениях: вариант, соответствующий обычному бинарному дереву, приводится в разделе исходных данных, а вариант, соответствующий дереву общего вида, — в разделе результатов. При переходе от бинарного дерева к дереву общего вида часть информации о структуре бинарного дерева теряется, поскольку в случае, если некоторая вершина дерева общего вида имеет только одного непосредственного потомка, нельзя определить, каким был этот потомок в исходном бинарном дереве — левым или правым.

Напомним, что точки, обрамляющие значения вершин в разделе результатов, означают, что все эти вершины должны быть созданы программой учащегося (в отличие от вершин исходного дерева, созданных самим задачником при инициализации задания).

При формировании нового дерева будем использовать рекурсивную функцию CreateNode(a). Параметр a содержит вершину исходного дерева, копия которой создается при вызове функции. Возвращаемым значением функции является созданная вершина (как обычно, если исходная вершина a содержит нулевую ссылку, то функция не выполняет никаких действий и возвращает нулевую ссылку). Для создания дочерних вершин выполняется рекурсивный вызов этой функции. Заметим, что цепочка дочерних вершин может быть пустой (если вершина a является листом), содержать один элемент (если вершина a имеет только одного непосредственного потомка) или два элемента. Перед формированием цепочки дочерних вершин удобно занести ссылки на дочерние вершины вершины a во вспомогательные переменные a1 и a2. При этом в случае, если вершина a имеет только одного потомка (неважно, левого или правого), ссылка на этого потомка заносится в переменную a1, а переменная a2 остается равной nil. Благодаря использованию переменных a1 и a2, фрагмент кода, отвечающий за формирование списка дочерних вершин, удается сделать более кратким. Приведем текст программы, решающей задачу ObjTree86.

function CreateNode(a: Node): Node;
begin
  result := nil;
  if a = nil then
    exit;
  result := new Node(a.Data);
  var (a1, a2) := (a.Left, a.Right);
  if a1 = nil then
    (a1, a2) := (a2, a1);
  // формирование списка дочерних вершин
  result.Left := CreateNode(a1);
  if a1 <> nil then
    result.Left.Right := CreateNode(a2);
end;
begin
  Task('ObjTree86');
  Print(CreateNode(ReadNode));
end.

Примечание 2. Фрагмент дерева общего вида, содержащий все дочерние вершины некоторой вершины, можно рассматривать как односвязный список, элементы которого связаны между собой с помощью свойства Right (у последнего элемента списка свойство Right содержит нулевую ссылку). Каждый элемент подобного списка может содержать «подсписок» своих дочерних элементов; ссылка на начало этого подсписка хранится в свойстве Left данного элемента. Поэтому в алгоритмах, связанных с обработкой вершин деревьев общего вида, для перебора непосредственных потомков некоторой вершины удобно использовать цикл (как при переборе элементов списка), в то время как для обработки каждой дочерней вершины следует, как обычно, использовать рекурсию.


PrevNext

 

Рейтинг@Mail.ru

Разработка сайта:
М. Э. Абрамян, В. Н. Брагилевский

Последнее обновление:
01.01.2023