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

UptoLike

ВУЗ: 

ПНИПУ | Пермь

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

Рубрика: 

12
− процедуру, удаляющую структуру из памяти, например:
procedure PersonDestroy(Var p:PPerson); где р − указатель на удаляе-
мую структуру;
− процедуры для установки полей структуры, например:
procedure PersonInit(p:PPerson;name1:string35;age1:integer);
procedure SetName(p:PPerson;name1:string35);
procedure SetAge(p:PPerson;age1:integer);
− функции, возвращающие значения полей, например:
function GetName(p:PPerson):string35;
function GetAge(p:PPerson):integer;
− процедуру для просмотра структуры (вывода значений ее полей),
например: procedure PersonShow(p:PPerson);
3. Второй модуль(unit2) содержит определения типов, процедур и
функций для организации работы с группой (см. п. “Краткие теоретиче-
ские сведения”).
4. Следует определить процедуру типа:
procedure GroupInsert(var group:TGroup;p:PPerson);
которая включает в группу group структуру PPerson.
Следует определить также процедуры для создания (инициализации)
группы, для ее просмотра и удаления: GroupCreate, GroupShow, GroupDe-
stroy.
5. Третий модуль (unit3 ) содержит процедуры, необходимые для со-
хранения группы в файле и загрузке
ее из файла. Здесь необходимо опре-
делить следующие процедуры:
AssignFile − связать файловую переменную с внешним файлом;
OpenFileRead − открыть файл для чтения;
OpenFileWrite − открыть файл для записи;
ReadPersons − читать записи из файла и поместить их в группу;
WritePersons − сохранить группу (входящие в нее структуры) в
файле;
CloseFile − закрыть
файл.
6. Примерный вид основной программы:
uses Unit1,Unit2,Unit3;
Type TProc=procedure(person:TPerson);
Var p:PPerson;
a,b:TGroup;
f:TFile;
Procedure Show(person:PPerson;age1:integer);far;
{Показывает студентов, чей возраст больше age1}
begin 
                                    12

       − процедуру, удаляющую структуру из памяти, например:
       procedure PersonDestroy(Var p:PPerson); где р − указатель на удаляе-
мую структуру;
       − процедуры для установки полей структуры, например:
       procedure PersonInit(p:PPerson;name1:string35;age1:integer);
       procedure SetName(p:PPerson;name1:string35);
       procedure SetAge(p:PPerson;age1:integer);
       − функции, возвращающие значения полей, например:
       function GetName(p:PPerson):string35;
       function GetAge(p:PPerson):integer;
       − процедуру для просмотра структуры (вывода значений ее полей),
например: procedure PersonShow(p:PPerson);
       3. Второй модуль(unit2) содержит определения типов, процедур и
функций для организации работы с группой (см. п. “Краткие теоретиче-
ские сведения”).
       4. Следует определить процедуру типа:
       procedure GroupInsert(var group:TGroup;p:PPerson);
       которая включает в группу group структуру PPerson.
       Следует определить также процедуры для создания (инициализации)
группы, для ее просмотра и удаления: GroupCreate, GroupShow, GroupDe-
stroy.
       5. Третий модуль (unit3 ) содержит процедуры, необходимые для со-
хранения группы в файле и загрузке ее из файла. Здесь необходимо опре-
делить следующие процедуры:
       AssignFile       − связать файловую переменную с внешним файлом;
       OpenFileRead − открыть файл для чтения;
       OpenFileWrite − открыть файл для записи;
       ReadPersons      − читать записи из файла и поместить их в группу;
       WritePersons     − сохранить группу (входящие в нее структуры) в
файле;
       CloseFile        − закрыть файл.
       6. Примерный вид основной программы:
       uses Unit1,Unit2,Unit3;
       Type TProc=procedure(person:TPerson);
       Var p:PPerson;
          a,b:TGroup;
          f:TFile;
       Procedure Show(person:PPerson;age1:integer);far;
       {Показывает студентов, чей возраст больше age1}
       begin

Страницы