Лабораторная работа № 9. Цель работы: освоение приемов объявления, обращения и использования типа данных – запись при решении задач.

Тема: ЗАПИСИ

Образец решения задачи.

Задача. Имеются данные о семи линиях электропередач (ЛЭП): шифр, напряжение, протяженность, год ввода в действие, дата последних линейных работ. Требуется выдать справку о ЛЭП, введенных в действие более 10-ти лет назад, а также выдать сведения о ЛЭП минимальной протяженности.

Постановка задачи.

В задаче будем использовать типовые алгоритмы обработки массивов: поиск по ключу (ключ – срок действия более 10 лет); поиск минимального (ЛЭП минимальной протяженности).

Построим информационную структуру одной ЛЭП с четырьмя полями типа: шифр – тип string; напряжение – тип word; протяженность – тип word; год ввода в действие – тип диапазон (1900..2011); одно поле типа запись – дата последних линейных работ, которое в свою очередь будет содержать три поля: день – тип диапазон (1..31); месяц – тип диапазон (1..12); год – тип диапазон (1900..2011).

Входные данные.

< Количество> ЛЭП – n (постоянное целое).

< Список ЛЭП> – lstLEP (тип – < Список ЛЭП>).

Выходные данные.

ЛЭП минимальной протяженности – (тип – < сведения о ЛЭП>).

Список ЛЭП, введенных в действие более 10-ти лет назад.

Алгоритм.

1. Ввод < Списка ЛЭП>.

2. Вывод справки о < ЛЭП>, введенных в действие более 10-ти лет назад.

3. Нахождение < ЛЭП> с минимальной протяженностью>.

4. Вывод сведений о < ЛЭП> с минимальной протяженностью.

Текст программы.

Модуль 1.

unit op;

Interface

Const

n=7;

Type

// структура данных «Дата работ»

tDateWork= record // запись из 3-х полей

day: 1..31; // день

month: 1..12; // месяц

year: 1900..2020 // год

end;

// структура данных «сведения о ЛЭП»

tLEP= record //запись из 5-и полей

сode: string [8]; // шифр

voltage: word; // напряжение

space: word; // протяженность

year: 1900..2010; // год ввод

data: tDateWork // дата последних работ

end;

// структура данных «Список ЛЭП»

tLstLEP= array [1..n] of tLEP; // массив из n значений типа tLEP