Дерево Опции

[-Олеся-]

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

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]

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

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;

[Гость]

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