Тема: «Тип данных запись»

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

Тип данных запись описывается следующим образом:

Type

Record

<имя поля 1>:<тип поля 1>;

<имя поля 2>:<тип поля 2>;

. . .

<имя поля n>:<тип поля n>;

End;

Если тип нескольких полей совпадает, то имена полей могут быть просто перечислены. После объявления в программе переменной типа «запись» к каждому ее полю можно обратиться, указав сначала идентификатор переменной-записи, а затем через точку – имя поля. Поле записи может иметь практически любой тип. Доступ к вложенным элементам таких структур осуществляется по тем же правила, как и обычно.

Переменная типа «запись» может участвовать только в операциях присваивания. Но поле записи может принимать участие во всех операциях, применимых к типу этого поля.

Присвоение значений переменным типа запись производится одним из двух способов:

1) <имя переменной>.<имя поля 1>:=<выражение>;

<имя переменной>.<имя поля 2>:=<выражение>;

. . . . . . . .

<имя переменной>.<имя поля n>:=<выражение>;

2) для облегчения работы с полями записей вводится оператор присоединения.

With <имя переменной> do

Begin

<имя поля 1>:=<выражение>

<имя поля 2>:=<выражение>

. . . . .

<имя поля n>:=<выражение>

end;

Примеры решений задач

1. Для каждого студента указаны фамилия и оценки в баллах по пяти дисциплинам. Требуется вычислить средний балл.

ProgramBAL;

TypeSTR=

Record

Fam: Array [1..15]of char;

B1, B2, B3, B4, B5: 2..5;

SB:real;

End;

Var

Tbl: array[1..25]of str;

I:integer;

Begin

ForI:=1to25do

Read(TBL [I].FAM, TBL [I].B1, TBL [I].B2,

TBL [I].B3, TBL [I].B4, TBL [I].B5);

ForI:=1 to 25do

Begin

TBL[I].SB:=(TBL[I].B1+TBL[I].B2+TBL[I].B3+

+ TBL[I].B4+TBL[I].B5)/5;

Writeln(TBL[I].SB);

end;

End.