Рекурсии

[Logan]

type имя = (Алла, ... , Юрий, нет);

Предполагая уже описанными функции Отец(Х) и Мать(Х), значениями которых являются имена соответственно отца и матери человека по имени Х или идентификатор нет, если отсутствуют сведения соответствующего родителся, описать функцию Потомок(а,b), проверяющую, является ли человек с именем b потомком (ребенком, внуком, правнуком и т.п.) человека с именем а.

[alexBlack]

function Потомок(а,b):boolean;
var r:boolean;
     O,M:имя;
begin
    r := false;
    if b <> нет then begin 
       O := Отец(b);
       М := Мать(b);
       r := (O = a) or (М = a) or Потомок(a, О) or Потомок(a, М);
    end;
    Потомок := r;
end;