Пример 2.2

Program Number_2_2; {текст основной программы}

uses crt,prg8;

Var t:tPerson;

begin

t.run;

end.

Unit Prg8; текст модуля, содержащего все

объявления объекта -последовательности

Interface

uses Crt;

{Создать последовательность из некоторых сведений о жителях некоторого района. Данные представлены в формате: фамилия, возраст. Отсортировать последовательность по возрасту методом простых включений. Синтаксически решение задачи оформить через структуру объект- последовательность. Эту структуру можно рассматривать, как объект- персона.}

type

Telement = record { Структура- запись }

Title : string[20]; { Фамилия }

age: integer; { Номер по порядку }

end;

pVec=^Vector;

Vector=array[0..0] of Telement;

TPerson=object

pV:pVec;

n,nm:integer;

constructor Init(a:integer);

destructor Done;

procedure Insert; {Вставить элементы

в последовательность}

procedure Show; {Вывести на экран последовательность в заданной форме}

procedure Sort; {Сортировка последовательности

методом простого включения по возрасту}

procedure Run; {выполнить заранее определенную

последовательность действий}

end;

ff=file of Telement;{}

Implementation

constructor TPerson.init(a:integer);

begin

Getmem(pv,a*sizeof(Telement));

{Выделение памяти для динамического вектора}

nm:=a;

end;

destructor TPerson.Done;

begin

Freemem(pv,nm*sizeof(Telement));

{Освобождение динамической памяти}

end;

procedure Tperson.Insert;

var