Оператор типа RECORD

Так же, как и массив, запись объединяет переменные. Однако у записи переменные могут быть различных типов. Каждая компонента записи называется полем. Каждое поле записи имеет свой тип.

Мы уже знаем, что элементы массива всегда могут использоваться как отдельные переменные. Например, определив

type RY = array [1..10] of integer;

var A : RY ,

можно писать А [1], ..., A [10]. Аналогичная ситуация имеет место и для записи. Здесь также можно использовать поля записи как отдельные переменные, например:

type PATIENT = record

NAME : string [20];

MALADI : string [40];

AGE : integer;

MARIE : boolean;

end;

.......................

var NEKTO: PATIENT.

Это есть описание типа RECORD. Структура записи такого типа определяется здесь с помощью всех полей между RECORD и END (см. рис. 38).

В рассмотренном выше примере всей структуре этого типа присвоено имя PATIENT (пациент). Запись типа PATIENT состоит из четырех отдельных переменных, т.е. полей, которые имеют имена: NAME, MALADI, AGE, MARIE. Каждое из этих полей имеет свой тип. В разделе TYPE описывается тип PATIENT, который затем присваивается переменной NEKTO. Именно NEKTO есть переменная типа PATIENT, т.е. переменная типа RECORD.

Рис. 38. Синтаксическая диаграмма типа RECORD

Чтобы обратиться к некоторым полям записи, следует написать имя переменной и имя поля. Эти два идентификатора должна разделять точка, например:

NEKTO.NAME := 'MANUELA'; NEKTO.AGE := 20;

NEKTO.MALADI := 'GRIP'; NEKTO.MARIE := true.

Отметим, что поле записи, например поле NEKTO.AGE, может рассматриваться как обычная простая переменная целого типа: NEKTO.AGE := NEKTO.AGE + 1. Вместе с тем запись может рассматриваться как единое целое. Пусть имеется следующее описание:

type DATE = record

DAY : 1..31 ;

MONTH : (JAN, FEB, MAR, APR, MAY, JUN, JUL,

AUG, SEP, OCT, NOV, DEC);

YEAR : integer;

end;

var HB, MB : DATE .

Мы видим, что HB и MB имеют тип DATE. Помимо действий над отдельными полями записей HB и МB можно выполнять операции над всей записью, например: HB := MB.

Это присваивание эквивалентно следующей последовательности операторов:

HB.DAY := MB.DAY;

HB.MONTH : = MB.MONTH;

HB.YEAR := MB.YEAR.

Для переменных этого типа вводятся сравнения: «=» и «<>».

Так, в нашем случае логическое выражение МB = HB является истинным.

Так как на тип компонент массива не накладывается ограничений, то можно образовывать массивы, компонентами которых являются записи. Например, вместо VAR NEKTO: PATIENT можно записать VAR NEKTO: ARRAY [1..N] OF PATIENT. Тогда фамилию первого пациента можно указать как NEKTO [1]. NAME. Аналогично можно задать множество дат рождений N персон VAR BD: ARRAY[1..N] OF DATE.

Отсюда мы видим, что компоненты (элементы) массива BD есть записи. Чтобы обратиться к некоторому полю определенной записи массива, следует определить имя массива, индекс интересующей записи и имя необходимого поля. Например, для печати года рождения 3-й персоны необходим оператор WRITELN (BD [3].YEAR).

Как и в случае с массивом, на типы компонент записи не накладывается каких-либо ограничений. Поля могут быть массивами, множествами или даже записями.