Лабораторная работа № 9 Составление программ с записями

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

Варианты заданий

Вариант 1.

Дана ведомость абитуриентов, сдавших вступительные экзамены в институт. В каждой строке данной ведомости записаны фамилия абитуриента, его постоянное местожительство и полученные им оценки по 4-м дисциплинам. Необходимо определить количество абитуриентов, проживающих в городе Смоленске и сдавших экзамены со средним баллом не ниже 4, распечатать их фамилии.

Вариант 2.

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

Вариант 3.

У администратора железнодорожных касс хранится информация о свободных местах в поездах. Данная информация представлена в следующем виде: конечный пункт назначения, время отправления, число свободных купейных мест. Оргкомитет международной конференции обращается к администратору с просьбой зарезервировать 10 купейных мест до Берлина. При этом время отправления поезда должно быть не позднее 10 часов вечера. Выдать на печать время отправления или сообщение о невозможности выполнить заказ в полном объеме

Вариант 4.

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

Вариант 5.

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

Вариант 6.

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

Вариант 7.

На складе комплектующих деталей хранятся N деталей, каждая из которые характеризуется записью следующего вида

Type

ZAP =Record

DTL: string [10];

PR1: integer;

PR2, PR3: Boolean;

End;

Здесь DTL - наименование детали, PR1, PR2, PR3 - некоторые признаки детали. Необходимо подготовить детали к запуску в сборочный цех. Для этого их следует разбить на пары, где PR2 - True, PR3 – False. Вывести на печать перечень наименований деталей.

Вариант 8.

На складе комплектующих изделий хранятся N деталей (см задание 7) Необходимо рассортировать детали по группам с учетом признаков PR2 и PR3 Первая группа - это детали, для которых PR2=false и PR3=false, для второй труппы PR2= true и PR3=true. Вывести на печать перечень наименований деталей по каждой группе.

Вариант 9.

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

Вариант 10

В больнице имеется общий список больных, каждый из которых характеризуется записью

Type

ZAP=Record

FIO: string [25];

NP: Integer;

DGN: string [20];

End;

Где FIO - фамилия и инициалы больного, NP - номер палаты, DGN - диагноз Требуется вывести на печать перечень больных по каждой палате и по каждому диагнозу.

Вариант 11.

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

Вариант 12.

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

Вариант 13.

Имеется N различных деталей, которые необходимо обработать на одном станке. Каждая деталь характеризуется записью вида

Type

ZAP =Record

I, DN, DL: integer;

End;

где I - номер детали, DN-длительность наладки станка (в часах) для обработки i-й детали, DL - длительность обработки i-й детали на станке (в минутах) Суммарное время обработки каждой детали включает время наладки станка и непосредственно время ее обработки. Определить время обработки всей последовательности деталей.

Вариант 14.

Разработать программу ("электронную сваху") для службы знакомств Имеется список женихов. В каждом списке кандидат характеризуется записью вида

Type

ZAP = Record

Norm: integer;

Vz, Rst, Vs: integer;

End;

где Norm - порядковый номер кандидата, Vz, Rst, Vs - данные о кандидате (возраст, рост, вес). По запросу (возраст, рост) вывести порядковые номера кандидатов.

Вариант 15.

В библиотеке имеется список книг. Каждая запись этого списка содержит фамилии авторов, название книги, год издания. Определить, имеются ли в данном списке книги, в названии которых встречается некоторое ключевое слово (например, "ПЭВМ") Если имеются, то выдать на печать фамилии авторов, название и год издания всех таких книг. Ключевое слово ввести с клавиатуры.

Вариант 16.

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

Вариант 17.

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

Вариант 18.

Дан одномерный массив из N элементов, каждый из которых представляет собой запись вида Type

ZAP=Record

St: string [10];

Dt: integer;

end;

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

Вариант 19.

В технической службе аэропорта имеется справочник, содержащий записи следующей структуры: тип самолета, год выпуска, расход горючего на 1000 км. Для определения потребности в горючем техническая служба запрашивает расписание полетов. Каждая запись расписания содержит следующую информацию номер рейса, пункт назначения, дальность полета. Рассчитать суммарное количество горючего, необходимое для обеспечения полетов на следующие сутки, и вывести его на печать.

Постановка задачи для вариантов 20 - 31

Составить список учебной группы, включающей в себя 15 человек. Для каждо­го учащегося указать фамилию, дату рождения, место рождения, группу, оценки 1-го года обучения (по 10 оценок). Информацию о каждом учащемся оформить в виде записи. Совокупность записей объединить в массив.

Составить программу, которая обеспечивает ввод полученной информации, а также распечатку информации согласно конкрет­ном варианту.

ВАРИАНТ 20.

Распечатать анкетные данные студентов, успевающих на 4 и 5.

ВАРИАНТ 21

Распечатать анкетные данные студентов, получивших одну оцен­ку 3

ВАРИАНТ 22

Распечатать анкетные данные студентов, получивших все оценки 5.

ВАРИАНТ 23

Распечатать список студентов, фамилии которых начинаются с буквы А, и их оценки.

ВАРИАНТ 24

Распечатать список студентов, фамилии которых начинаются с буквы Б, и их даты рождения.

ВАРИАНТ 25

Вычислить средний балл каждого студента

ВАРИАНТ 26

Распечатать список студентов 1989 года рождения

ВАРИАНТ 27

Вычислить количество студентов в группе по запросу пользователя

ВАРИАНТ 28

Вычислить количество иногородних студентов

ВАРИАНТ 29

Вычислить количество неуспевающих студентов

ВАРИАНТ 30

Вычислить количество студентов, получивших одну оцен­ку 3

ВАРИАНТ 31

Дан список очерёдности запуска деталей в обработку. Из данного списка определить общее количество деталей, тип которых начинается с Д2 и объём партии запуска не меньше 15. Исходные данные:

Тип детали Д11 Д21 Д31 Д22 Д41 Д23 Д32 Д25

Размер партии 20 10 15 30 25 6 22 30

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

1. Определение «запись».

2. Объявление данных типа запись в интегрированной среде TurboPascal.

3. Каким образом осуществляется обращение к элементу записи?