Студопедия

Главная страница Случайная страница

КАТЕГОРИИ:

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Лабораторная работа № 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


mylektsii.ru - Мои Лекции - 2015-2019 год. (0.004 сек.)Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав Пожаловаться на материал