Массивы записей

Комбинированный тип данных, его использование.

Лабораторная работа № 4

Контрольные вопросы

1. Каков порядок выполнения цикла с параметром?

2. Каков формат объявления типа массив?

3. Каков формат объявления переменной типа массив?

4. Как обратится к элементу массива?

5. Какие виды массивов Вы знаете?

6. Что такое генератор случайных чисел?

7. Как можно задать значения элементов массива или другой числовой переменной?

8. Какие операторы используются для работы с элементами массива?

9. Что такое вложенные операторы цикла и для чего их используют?

1.Цель работы:

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

2.Краткая теория:

Комбинированный тип данных (тип запись)

Комбинированный тип данных или тип запись, в отличии от типа массив, позволяет объединить элементы имеющие различные типы. Элементы записи называются полями записи.

Формат объявления комбинированного типа

TYPE < тип запись > = RECORD

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

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

…

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

END;

Переменные комбинированного типа перед использованием должны быть объявлены одним из 2 способов:

1 способ: VAR < имя записи >: < тип запись >;

где тип запись описан в разделе описания типов (см. выше)

2 способ: VAR < имя записи >: RECORD

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

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

…

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

END;

Пример 1: Допустим, необходимо хранить информацию личного дела студента:

- Номер личного дела

- Фамилия

- Имя

- Отчество

- Дата рождения

- Документ об образовании

- Номер документа об образовании

- Кем выдан

- номер паспорта

- кем выдан

- номер зачетки

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

Объявление типа запись

TYPE L_Delo = RECORD

N_L_Delo: integer;

Fam: string[20];

Imy: string[15];

Otch: string[15];

data: string[8];

dok: string[10];

Ndok: string[10];

VydDok: string[15];

Npas: string[10];

VydPas: string[15];

END;

Тогда объявление переменной типа запись:

VAR PerL_Delo: L_Delo;

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

<Имя записи>. < имя поля>

Пример 2: Присваивание значения полям записи:

PerL_Delo.N_L_Delo:=1056;

PerL_Delo.Fam:=’Иванов’;

PerL_Delo.Imy:=’Иван’;

PerL_Delo.Otch:=’Иванович’;

Пример 3: Для ввода значений в поля записи с клавиатуры

READ (PerL_Delo.N_L_Delo);

READ(PerL_Delo.Fam);

READ(PerL_Delo.Imy);

READ(PerL_Delo.Otch);

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

Массивы записей – это массивы элементами которых являются записи.

Массивы записей объявляются следующим образом:

TYPE < тип запись > = RECORD

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

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

…

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

END;

VAR <массив>: ARRAY [1..n] of <тип запись>;

Пример 4: Объявить массив записей

TYPE tip_zap = RECORD

FIO: STRING[25];

ZACH:INTEGER;

END;

VAR MAS: ARRAY [1..5] of tip_zap;

Тогда к полю записи обращаются так:

МАS[1].FIO:= ’ИВАНОВ И.И.’; или READ ( МАS[1].FIO );

Для упрощения обращения к полям некоторой записи используют оператор над записями

WITH <имя записи> do <оператор>;

Пример 5: Для предыдущего примера можно записать:

а) WITH MAS[1] DO READ (FIO);

б) WITH MAS[1] DO

Дата добавления: 2014-12-17