Delphi.int.ru — Портал программистов

Вход Регистрация | Забыли пароль?

Просмотр кода

Идентификатор: c39239ca Код загружен: 15 декабря 2010, 21:49 (Мережников Андрей)

  1. function Наследник(а,в:name):boolean;
  2. var ft,mt:name;
  3. begin
  4. Result:=false;
  5. ft:=Отец(в);
  6. if ft=a
  7. then Result:=true
  8. else begin
  9. mt:=Мать(в);
  10. if mt=a
  11. then Result:=true
  12. else begin
  13. if ft<>'нет'
  14. then Result:=Наследник(а,ft);
  15. if not(Result)
  16. then if (mt<>'нет')
  17. then Result:=Наследник(а,mt);
  18. end;
  19. end;
  20. end;

Ссылка на данный код:

На главную страницу сервиса обмена кодом »