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

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

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

Рубрика: 

28
type t_slovo = string[20];
Elem = record
slovo : t_slovo;
count_sl : integer
end;
Путь поиска для дерев слов очевиден. И если он приводит к пустому (nil)
поддереву, то заданное слово нужно включить на место пустого поддерева.
procedure Slovar(var T : Tree; slovo : t_slovo);
begin
if T = nil then
begin { включение нового слова }
new(T);
with T^ do
begin
inf.slovo:=slovo; inf.count_sl:=1;
L:=nil; R:=nil
end
end
else
if slovo < T^.inf.slovo then
Slovar(T^.L, slovo)
else
if slovo > T^.inf.slovo then
Slovar(T^.R, slovo)
else T^.inf.count_sl:=T^.inf.count_sl+1
end; { Slovar }
Упражнение 4.4. Описать нерекурсивную логическую функцию, прове-
ряющую, входит ли заданный
элемент в дерево поиска.

Страницы