Версия для печати темы

Автор: -Олеся- 6.05.2007 20:46

Помогите найти ошибку в коде:

function exist(start:tree; a:char):boolean;
   begin
        if start<>nil then
           begin
                if start^.inf=a then exist:=true else
                exist:=((exist(start^.l,a))or(exist(start^.r,a)));
           end;
   end;

ф-я должна проверить, есть ли элемент а в дереве с корнем start

Автор: klem4 6.05.2007 21:10

попробуй так:

function exist(start:tree; a:char):boolean;
begin
  if start = nil then exist := false else
   if start^.inf=a then exist:=true else
    exist:=((exist(start^.l,a))or(exist(start^.r,a)));          
end;

Автор: Гость 6.05.2007 21:16

klem4, Спасибо! работает