3. Записи

Запись, как и массив, - это сложная переменная с несколькими компонентами, т.е. тоже структурированного типа. Однако в отличие от массивов, компоненты записи могут иметь разные типы. Кроме того, доступ к элементам массива осуществляется по индексу, а к компонентам записи - по имени.

Записи удобно использовать для хранения и обработки разнородной информации о каких-либо объектах. Например, в школе часто требуется обрабатывать на ЭВМ сведения об успеваемости учащихся. Они обязательно включают фамилии учащихся и полученные ими отметки. Фамилия конкретного учащегося будет представлена строковой константой, а его отметки - арифметическими константами целого типа.

Как средство, позволяющее обрабатывать подобные данные, используется запись. Запись - это конструкция, состоящая из фиксированного числа элементов, называемых полями. Тип записи специфицируется ключевым словом RECORD. Определение типа записи осуществляется в разделе определения типов и задается следующей конструкцией:

TYPE <идентификатор типа> = RECORD <список полей> END;

Список полей в свою очередь состоит из перечисления имен полей, отделенных друг от друга запятыми. После перечисления ставится двоеточие и указывается тип, относящийся ко всем именам, входящим в перечисление. Список полей может состоять из отдельных имен полей, после каждого из них следует двоеточие и идентификатор типа. Описание каждого поля похоже на описание обычной переменной. Например, запись DATA может быть определена так:

TYPE DATA = RECORD DAY:1..31;

MONTH:(JAN, FEBR, MARCH, APRIL,MAY, JUNE,

JULY, AUG, SEPT, OCT, NOV, DEC);

YEAR: INTEGER;

END;

Переменные типа “запись” описываются в разделе описания переменных обычным образом. Например, дата поступления в школу может быть описана следующим образом:

VAR SCHOLL: DATA;

Доступ к отдельным компонентам записи (к отдельным полям) осуществляется по составным именам. Составное имя состоит из имени переменной типа “запись” и имени поля, разделенных точкой. Например:

SCHOOL.DATA - день поступления в школу

В качестве примера использования записи рассмотрим программу для обработки результатов сдачи выпускных экзаменов учащимися 11-го класса. В классе 30 учащихся (kc), экзамены сдают по 7 дисциплинам (kd). Для упрощения записи каждый учащийся представлен своим порядковым номером hc. Требуется ввести результаты сдачи экзаменов по каждой дисциплине, определить средний балл полученных отметок по одной дисциплине (номер hd) и средний балл каждого учащегося.

program ekzamens;

Const kc=30; kd=7;

Type pupils=record hc:1..kc;

ball:array[1..kd] of 1..5;

sr:real;

end;

Var gr:array [1..kc] of pupils;

i:1..kc; hd:1..kd; cm:real;

Begin

writeln(‘Введите оценки по всем дисциплинам’);

for hd := 1 to kd do

for i := 1 to kc do

read(gr[i].ball[hd]);

writeln(‘Введите номер предмета’);

readln(hd); cm := 0;

for i := 1 to kc do

cm := cm + gr[i].ball[hd];

writeln(‘Средний балл по предмету=‘, cm/kc:7:2);

writeln(‘Средние баллы учащихся ’:56);

for i := 1 to kc do begin

gr[i].sr := 0;

for hd := 1 to kd do

gr[i].sr := gr[i].sr + gr[i].ball[hd];

writeln(gr[i].sr/kd:8:2);

End.