Структурированные типы данных

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

Записи

Записи – это структурированный тип данных, позволяющих хранить вместе различные типы данных.

Запись состоит из нескольких полей, для каждого из которых при объявлении (описании) указывается имя и тип.

Например:

type

student = record; {запись}

surname : string[20];

year : integer;

bal : real;

end; {завершает список полей}

var

st:student;

Сформирован пользовательский тип данных – student, он базируется на стандартных типах (string, integer,real).

Переменная st - имеет тип student (запись), состоит из 3-х полей:

surname – фамилия студента;

year – год рождения;

bal – средний бал.

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

st.surname:='Иванов';

st.year:=1905;

st.bal:=4.5;

Для уменьшения записи обращения к отдельным полям используют оператор with … do

Например:

with st do

begin

surname:='Иванов';

year:= 1905;

bal:=4.5;

end;

Для обработки большого объема информации комбинированного типа целесообразно строить массивы записей, где каждый элемент массива – запись, состоящая из нескольких полей разного типа.

Например, чтобы сохранить информацию о студентах группы в 25 человек, можно создать следующий массив записей:

type

student = record; {запись}

surname : string[20];

year : integer;

bal : real;

end;

var

st:array[ 1..25 ] of student;

st – массив записей. Каждый элемент массива(St[i])содержит информацию об одном студенте:

St[i].surname – фамилия;

St[i].year - год рождения;

St[i].bal - средний бал.

Задача.

Создать массив записей, содержащий информацию о студентах группы. Каждая запись содержит поля – фамилия, год рождения, пол. Подсчитать средний возраст студентов мужского пола группы.

Таблица идентификаторов

program rec;

uses crt;

type

student = record; {запись}

surname : string[20];

year : integer;

pol : char;

end;

var

st:array[ 1..30 ] of student;

i,n,t:integer; p:real;

begin

clrscr;

writeln(‘Введите текущий год’);

readln(t)

writeln(‘Введите количество студентов’);

readln(n)

for i:=1 to n do

with st[i] do

begin

writeln(‘Сведения о ’,i,‘ студенте’);

writeln(‘Введите фамилию’); readln(surname);

writeln(‘Введите год рождения’); readln(year);

writeln(‘Введите средний бал’); readln(bal);

end;

p:=0;

for i:=1 to n do

begin

if st[i].pol=’m’ then

begin

p:=p+(t-st[i].year);

k:=k+1;

end;

writeln(‘Средний возраст мужчин =’,(p/k):8:3 );

readln;

end.

Пример программы использования массива записей

Задача:

Создать массив записей, содержащий сведения о сотрудниках фирмы. Каждая запись содержит поля – фамилия сотрудника, наименование отдела, оклад, трудовой стаж. Написать программу, выдающую следующую информацию:

• список сотрудников отдела Х с указанием оклада и трудового стажа;
• подсчитать среднюю заработную плату сотрудников отдела Х.

Название отдела Х вводится по запросу с клавиатуры.

1. Таблица идентификаторов

1. Листинг программы

program rec_1;

uses crt;

type

firma = record; {запись}

surname : string[20];

otdel : string[20];

oklad : real;

Stag : integer;

end;

var

f:array[ 1..30 ] of firma; {массив записей}

X:string[20];

i,n,k:integer;

sred:real;

begin

clrscr;

writeln(‘Введите n’); readln(n);

writeln(‘Введите информацию о сотрудниках’);

for i:=1 to n do

with f[i] do

begin

writeln(‘Введите фамилию ’); readln(surname);

writeln(‘Введите отдел ’); readln(otdel);

writeln(‘Введите оклад ’); readln(oklad);

writeln(‘Введите стаж ’); readln(Stag);

end;

writeln(‘Введите название отдела’); readln(X);

sred:=0; k:=0;

writeln(‘Список сотрудников отдела ’,X);

for i:=1 to n do

if f[i].otdel=X then

begin

writeln(f[i].surname,’ ‘,f[i].oklad:8:3);

sred:=sred+f[i].oklad;

k:=k+1;

end;

writeln(‘Средняя зарплата отдела=’,(sred/k):8:3);

readln;

end.

Вопросы для самоконтроля

1. В чем состоит основное преимущество записи?
2. Почему записи называют комбинированным типом записи?
3. Чем записи отличаются от массивов?
4. Что называется полем записи?
5. Какие требования предъявляются к идентификаторам поля записи?
6. Как определить объем памяти, требуемый для размещения записи?
7. С какой целью при обращении к полю записи используется оператор with … do?

Методические указания к выполнению индивидуального задания по Модулю 2. «Массивы записей»

Цель работы: Ознакомиться с пользовательскими типами данных, записями. Научиться организовывать массивы записей.

Задание:

1. В приложении 11 выбрать вариант задания.

2. Выполнить индивидуальное задание по Модулю 2 , на примере программы использования массива записей.

3. Составить блок-схему алгоритма.

4. Утвердить блок-схему у тьютора.

5. Написать программу и отладить ее по заранее подготовленному тесту.

6. Результат выполнения программы предъявить преподавателю.

7. Оформить ИДЗ в формате А4, титульный лист по образцу Приложение 4

8. Защитить выполненную работу у преподавателя.

Приложение 11. Таблица вариантов индивидуального задания