3-й семестр / Лекция 2 - Бинарное дерево

uses SysUtils,

Unit1 in 'Unit1.pas'; var

Root:BinTree;

n,i:integer;

a:TDar;

Procedure CreateArray(var x:TDar;n:integer); var i:integer;

begin setLength(x,n); writeln('Massiv'); for i:=0 to n-1 do read(x[i]);

end;

begin writeln('n=');readln(n); CreateArray(a,n); i:=0;

CreateBinTree(Root,n,a,i); writeln('Balancirovannoe derevo'); printBinTree(Root,0,4);

readln; readln end.

Результаты тестирования на дереве из 5 и 7 узлов.

Задание для самостоятельной работы.

1.Реализуйте обход в ширину, используя операции над очередью, разработанные в прошлом семестре.

2. Реализуйте все операции АТД на идеально-сбалансированном дереве.