Структуры данных. Деревья - 22 стр.

UptoLike

Составители:

Рубрика:

begin

write('Задайте имя файла - ');

readln(imf);

assign(F,imf); reset(F);

Root:=nil;

while not eof(F) do

begin

read(F,x);

InTree(Root,x)

end;

close(F);

writeln('Упорядоченная последовательность чисел :');

PrintInf(Root)

end.

Если в файле F содержится такая последовательность чисел:

5 2 8 0 9 6 3

то программа UP построит дерево поиска, показанное на рисунке 6 а).