Теория и практика объектно-ориентированного программирования. Ноткин А.М. - 19 стр.

                                    20
     Var stsex:string;
     Begin
     writeln;
     if sex then stsex:='мужской' else stsex:='женский';
     writeln('имя:',name,' пол:',stsex,' возраст:',age);
     End;

      3. Определить внешнюю процедуру View с параметром объектного
типа, которая показывает состояние объекта, передаваемого ей через пара-
метр.
      Например:
      Procedure View(AObject:PPerson);

     4. Написать демонстрационную программу, в которой создаются, по-
казываются и разрушаются объекты всех классах.

      Методические указания.
      1. Предметная область задается преподавателем или выбирается сту-
дентом самостоятельно. Для студентов заочного отделения эта область
должна быть связана с местом работы студента.
      2. Предусмотреть размещение объектов как в статической, так и в
динамической памяти.
      3. Предусмотреть просмотр объектов как с помощью методов Show,
так и с помощью процедуры View.
      4. Определение классов (объектных типов), процедур и функций по-
местить в модуль L02UXXX, где XXX- аббревиатура фамилии, имени и от-
чества, например, Иванов Петр Григорьевич − IPG.
      5.Демонстрационную программу поместить в файл L02XXX.PAS.

     Содержание отчета.
     1. Титульный лист.
     2. Постановка задачи.
     3. Определение классов.
     5. Реализация методов для одного из классов (выбирается самим сту-
дентом).
     6. Реализация процедуры View.
     7. Приложение: листинг демонстрационной программы.