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

UptoLike

ВУЗ: 

ПНИПУ | Пермь

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

Рубрика: 

13
if person^.age>age1 then PersonShow(person);
end;
Begin
AssignFile(f1,'person1.dat');
AssignFile(f2,'person2.dat');
GroupCreate(a,'ГРУППА А');
GroupCreate(b,'ГРУППА Б');
p:=PersonCreate('Иванов',25);
GroupInsert(a,p);
p:=PersonCreate('Петров',35);
GroupInsert(a,p);
p:=PersonCreate('Сидоров',45);
GroupInsert(a,p);
{аналогично для группы b}
GroupShow(a);
OpenFileWrite(f1);
WritePersons(f1,a);
CloseFile(f1);
GroupDestroy(a);
GroupShow(a); {показываем группу, чтобы убедиться, что она
пустая}
{ аналогично для группы b }
OpenFileRead(f1);
ReadPersons(f1,a);
GroupShow(a);
{ аналогично для группы b }
GroupIter(a,Show,35);
GroupDestroy(a);
GroupDestroy(b);
End. 
                              13

     if person^.age>age1 then PersonShow(person);
     end;
     Begin
     AssignFile(f1,'person1.dat');
     AssignFile(f2,'person2.dat');
     GroupCreate(a,'ГРУППА А');
     GroupCreate(b,'ГРУППА Б');
     p:=PersonCreate('Иванов',25);
     GroupInsert(a,p);
     p:=PersonCreate('Петров',35);
     GroupInsert(a,p);
     p:=PersonCreate('Сидоров',45);
     GroupInsert(a,p);
     {аналогично для группы b}
     GroupShow(a);
     OpenFileWrite(f1);
     WritePersons(f1,a);
     CloseFile(f1);
     GroupDestroy(a);
     GroupShow(a); {показываем группу, чтобы убедиться, что она
пустая}
     { аналогично для группы b }
     OpenFileRead(f1);
     ReadPersons(f1,a);
     GroupShow(a);
     { аналогично для группы b }
     GroupIter(a,Show,35);
     GroupDestroy(a);
     GroupDestroy(b);
     End.

Страницы