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

UptoLike

ВУЗ: 

ПНИПУ | Пермь

Составители: 

Рубрика: 

26
Destructor Done;virtual;
Function GetName:string;;
Function GetHead:PPerson;
Procedure SetName(NewName:string);
Procedure SetHead(NewHead:PPerson);
Procedure Insert(p:PObject); {вставить объект в группу}
end;
PFaculty=^TFaculty; {факультет}
TFaculty=object(TDepartment)
counte:word;{ количество сотрудников на факультете }
counts:word;{количество студентов на факультете }
Constructor Init(name1:string;head1:PPerson;counte1:word;counts1:word);
Function GetCountE:byte;
Function GetCountS:byte;
Procedure SetCountE(NewCountE:byte);
Procedure SetCountS(NewCountS:byte);
Procedure Show;virtual;
end;
PStudentGroup=^TStudentGroup ;{студенческая группа}
TStudentGroup=object(TDepartment)
count:byte;{ количество студентов в группе }
speciality:string;{специальность }
Constructor Init(name1:string;head1:PPerson;
count1:byte;speciality1:string);
Function GetCount:byte;
Function GetSpec:string;
Procedure SetCount(NewCount:byte);
Procedure SetSpec(NewSpec:string);
Procedure Show;virtual;
end;
3. Для включения объектов в группу использовать третий способ (см.
п. “Основные теоретические сведения”).
4. факультет создается следующим образом
:
а) создается пустой ФАКУЛЬТЕТ;
б) создается пустая КАФЕДРА;
в) создаются ПРЕПОДАВАТЕЛИ и включаются в КАФЕДРУ;
г) кАФЕДРА включается в ФАКУЛЬТЕТ;
д) создается пустая ГРУППА;
е) создаются СТУДЕНТЫ и включаются в ГРУППУ;
ж) ГРУППА включается в ФАКУЛЬТЕТ. 
                                    26
      Destructor Done;virtual;
      Function GetName:string;;
      Function GetHead:PPerson;
      Procedure SetName(NewName:string);
      Procedure SetHead(NewHead:PPerson);
      Procedure Insert(p:PObject); {вставить объект в группу}
     end;

     PFaculty=^TFaculty; {факультет}
     TFaculty=object(TDepartment)
      counte:word;{ количество сотрудников на факультете }
      counts:word;{количество студентов на факультете }
      Constructor Init(name1:string;head1:PPerson;counte1:word;counts1:word);
      Function GetCountE:byte;
      Function GetCountS:byte;
      Procedure SetCountE(NewCountE:byte);
      Procedure SetCountS(NewCountS:byte);
      Procedure Show;virtual;
     end;

      PStudentGroup=^TStudentGroup ;{студенческая группа}
      TStudentGroup=object(TDepartment)
       count:byte;{ количество студентов в группе }
       speciality:string;{специальность }
       Constructor Init(name1:string;head1:PPerson;
                  count1:byte;speciality1:string);
       Function GetCount:byte;
       Function GetSpec:string;
       Procedure SetCount(NewCount:byte);
       Procedure SetSpec(NewSpec:string);
       Procedure Show;virtual;
      end;
      3. Для включения объектов в группу использовать третий способ (см.
п. “Основные теоретические сведения”).
      4. факультет создается следующим образом:
      а) создается пустой ФАКУЛЬТЕТ;
      б) создается пустая КАФЕДРА;
      в) создаются ПРЕПОДАВАТЕЛИ и включаются в КАФЕДРУ;
      г) кАФЕДРА включается в ФАКУЛЬТЕТ;
      д) создается пустая ГРУППА;
      е) создаются СТУДЕНТЫ и включаются в ГРУППУ;
      ж) ГРУППА включается в ФАКУЛЬТЕТ.

Страницы