Гомель, 2012

PROGRAM OO_Beispiel_01;

USES Crt;

{ Декларация типов объектов (классов) }

TYPE

Person-OBJЕСТ Name,

Vorname : STRING; PROCEDURE Einlesen; PROCEDURE Ausgeben; END;

{ Методы для класса "Person" }

PROCEDURE Person.Einlesen; BEGIN

Write('Фамилия ');

ReadLn(Name);

Write ('Имя');

ReadLn(Vorname); END;

PROCEDURE Person.Ausgeben; BEGIN

WriteLn;

Write ('Фамилия:');

Write(Name);

Wrlte (Имя: ');

WriteLn(Vorname); END;

{ Декларация экземпляров (Обьектов - переменных) }

VAR

Pers: Person;

BEGIN

Pers.Einlesen;

Pers.Ausgeben;

ReadLn; { Ожидание нажатия клавиши" Enter" }

END.

В программе объявляется класс "Person", которому поставлены в соответствие два поля — "Name" и "Forname" — и методы — "Einlesen" и "Ausgaben". Как видно из текста программы, методы только объявляются в декларации класса, а полностью специфици­руются (описываются) несколько позже. В таких спецификациях имя метода (процедуры или функции) предваряется префиксом —именем класса, к которому относится данный метод. Это необходимо, т.к. в разных классах могут использоваться методы, разные по содер­жанию, но одинаковые по именам. Без префикса привязка методов к своим классам была бы невозможной. В программе объявлен объект "Pers", принадлежащий классу "Person". В главной программе мето­ды "Einlesen" и "Ausgeben" применены к этому объекту "Pers".

Класс "Person" в определенном смысле может рассматриваться как класс верхнего уровня. Персоны могут обладать различными качествами, что позволяет выделять их из класса "Person". Так, совокупность персон (составляющих класс "Person") может быть по­делена на два подкласса — "Kraftfahrer" (водитель) и "Nichkraftfahrer" (неводитель). Объекты обоих подклассов имеют те же поля, что и объекты класса "Person": поле "Name" (фамилия) и " Vorname" (имя). Кроме того, для подклассов можно вывести допол­нительные поля, отсутствующие в классе верхнего уровня. Так, для класса "Person" можно объявить, что подкласс водителей имеет до­полнительные поля идентификатора водительских прав и марки ав­томобиля.