Добавил:
ivanov666
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Программирование. Методические рекомендации
.pdf
Вариант 28
Задание 1. Прочитать с диска файл irm.dat и найти: сумму первых 5 ком-
понент файла; заменить этим значением все компоненты файла ратные 4.
Задание 2. Создать новый файл B.dat, переписав в него сначала все поло-
жительные элементы файла a.dat, а затем все отрицательные.
Вариант 29
Задание 1. Прочитать с диска файл al.dat и найти: количество компонент
файла al.dat кратных 14; заменить этим значением первую и последнюю компоненту файла.
Задание 2. Даны два файла c.dat и d.dat. Сформировать новый файл e.dat,
переписав в него файл с меньшим количеством компонент.
Вариант 30
Задание 1. Прочитать с диска файл ril.dat и найти: произведение и количе-
ство компонент кратных 20; заменить этим значением все отрицательные компоненты файла.
Задание 2. Даны два файла kk.dat и mm.dat. Сформировать новый файл ll.dat,
переписав в него тот файл, у которого максимальные элемент наибольший.
51
Лабораторная работа №10 Файлы с записями. СУБД
Ва
ри
ант
База данных
Запись базы данных состоит из полей
Запросы для этих баз данных
1.
Успеваемость
Студентов
Ф.И.О., оценки на экзаменах по предметам: информатика, математика, эконометрика, АРМ, ИСЭ
1. Определить количество троек, четверок, пятерок по каждому предмету.
2. Сколько всего троек, четверок, пятерок.
2.
Кадры
Ф.И.О., пол, дата рождения, должность, оклад
1. Номер сотрудника, у которого ближайший к заданной дате рождения.
2. Сколько инспекторов и их фамилии
3.
Гараж
Номер машины, пробег,
марка, дата капитального
ремонта, цвет
1.Номер машины с последней датой капитального ремонта.
2. Распечатать все номера и марки машин зеленого цвета
4.
Библиотека
Автор, название, год издания, номер полки
1.Есть ли указанная книга в библиотеке,
если да — напечатать: Автор, название,
номе полки.
2. Сколько книг заданного автора в библиотеке, напечатать их
5.
Магазин игрушек
Наименование, количество, цена, для какого
возраста игрушка
1.Среднюю цену игрушки для десятилетнего ребенка
2. Каких игрушек меньше всего
6.
Автопарк
такси
Номерной знак, марка машины, километраж за 1 день
работы, километраж за 2
день работы, километраж за
3 день работы, километраж
за 4 день работы, километраж за 5 день работы
1. Километраж, пройденный автомо-
билями автопарк за рабочую неделю
2. Все номерные знаки такси, прошед-
шие больше чем средний километраж за неделю
Написать программу СУБД по следующим данным:
52
7.
Результаты
соревнования
Фамилия рабочего, номер
бригады, выработка за рабочую неделю (кол–во деталей за пятидневку)
1. Номер бригады, фамилия победителя
и среднюю выработку за один день в
личном соревновании
2. Какая бригада (номер) победила (все-
го три бригады)
8.
Клиентмагазин
Фамилия, адрес, телефон,
наименование покупки,
стоимость, дата покупки
1. Что купил заданный клиент в по-
следнее свое посещение
2. Фамилию клиента, сделавшего са-
мую дорогую покупку в заданный
день (ввести с экрана)
9.
Поликлиника
Ф.И.О., номер страхового
полиса, страховая компания, стоимость обслуживания, дата последнего обслуживания
1. Количество пациентов
2. Список пациентов, которые относятся
к заданной (вести с экрана) страховой
компании
3. Фамилию пациента, заплатившего
наибольшую сумму за обслуживание
10.
Строительные
материалы
Наименование материала,
количество, марка, номер
склада, цена
1. Сколько всего наименований и ка-
ких материалов больше всего на
складе номер 1
2. Среднюю цену условной единицы
некоторого материала (например, 1
листа шифера)
11.
Продовольственный
склад
Наименование продукта,
количество, дата-срок годности, цена
1. Напечатать все наименования продук-
тов, срок годности которых истекает
Сегодня (ввести дату)
В этом месяце
2. Сколько наименований хранится на
складе
Всего
На какую сумму
12.
Работник
Ф.И.О., оклад, дата отпуска
, дата рождения
1. Номер работника, который уходит последним в отпуск
2. Минимальную и среднюю заработную
плату работников
53
13.
Дни рождения
сотрудников
Число, месяц, год, ф.и.о.,
место рождения
1. Всех сотрудников родившихся весной
2. Самого молодого старшего сотрудника
14.
Турбюро
Клиент, страна, длительность,
месяц, стоимость путевки
1. Сколько клиентов у турбюро, желаю-
щих поехать в Англию в этом месяце
2. Самую дорогую путевку с длитель-
ностью не менее семи суток
15.
Железнодорожные билеты
Пункт назначения, номер
рейса, число свободных
мест в купейных вагонах,
число свободных мест в
плацкартных вагонах, дата
отправления, время
1. Есть ли в наличии требуемое число
(ввести с экрана) билетов на Москву в
купированных вагонах на заданную дату
2. Сколько всего свободных мест на за-
данное число и рейс
16.
Багаж пассажира
Ф.И.О., количество вещей, общий вес багажа,
номер места
1. Средний вес багажа и одной вещи
всех пассажиров
2. Средний вес вещей каждого пассажира, общий вес которых не превосходит
более чем на полкилограмма
17.
Банк
Ф.И.О. клиента, номер счета, сумма на счету, адрес
клиента, дата последней
операции, номер операции
1. Самого бедного клиента
2. Данные о конкретном клиенте (фамилию ввести с экрана)
3. Сумму вкладов всех клиентов и их
количество
18.
Больница
Фамилия пациента, дата
поступления, лечащий
врач, дата выписки, потребность в операции, стоимость лечения
1. Всех пациентов данного лечащего
врача (фамилия врача вводится с
экрана)
2. Общую стоимость лечения этих пациентов
3. Самого давнего пациента ( посту-
пившего ранее других)
19.
Студентинститут
Ф.И.О. студента, группа,
факультет, стоимость обучения, обучение по контракту или нет, стипендия
(сумма)
1. Студента с максимальной стипендией
2. Общую стоимость обучения студентов-контрактников и среднюю стоимость обучения в институте
3. Список студентов группы (наименование группы ввести с экрана)
54
20.
Оптовый
склад
Наименование организации
поставщика или клиента,
наименование товара, клиент или поставщик, количество реализованного товара (полученного), стоимость за партию товара,
дата поступления, дата реализации
1. Среднюю цену товара (наименова-
ние товара ввести с экрана) для
каждого поставщика
2. Поставщика с меньшей ценой этого товара
3. Список всех клиентов и требуемый
им товар
21.
Театр
Наименование спектакля,
дата, количество свободных
мест в партере, количество
свободных мест в ложе, количество свободных мест на
балконе, цена билета в партер, цена билета в ложу, цена билета на балкон
1.Осуществить заказ (наименование
спектакля ввести с экрана, дату, количество требуемых билетов тоже). Достаточно ли свободных мест, чтобы
выполнить заказ, если да — напечатать
сколько и каких билетов можно выдать
2.Подсчитать стоимость этого заказа
3.Найти спектакль, на который больше
всего невостребованных билетов
22.
Отдел кадров
Ф.и.о., пол, дата поступления на работу кол-во детей,
должность, образование
1.Всех сотрудников, проработавших
более десяти лет
2.Сколько женщин — сотрудников имеют двух и более детей и их фамилию
23.
Склад
Код товара .наименование
,количество ,цена за единицу товара ,дата реализации, поставщик
1.Среднюю цену товара с одним
наименованием
2.Товар, подлежащий списанию в следующем месяце
3.Какой товар поставляет заданный поставщик (ввести с экрана)
24.
Результаты
соревнования
Фамилия спортсмена,
наименование спортивной
организации ,время пробега
короткой дистанции (100м),
время пробега длинной дистанции (100 0м)
1.Фамилия, спортивное общество
победителя на короткой и на длинной дистанции
2.В какой организации средняя скорость участников наибольшая на короткой дистанции
55
25.
Цветочный
магазин
Название растения, стоимость
1 шт., количество, дата поступления, срок хранения
1.Определить количество имеющихся
растений заданного наименования
(ввести с экрана)
2.Самое дорогое растение и его количество
26.
Музыкальный магазин
Наименование произведения, исполнитель, форма
представления (диск, аудио
кассета и т.д.), стоимость,
количество экземпляров,
автор
1.Определить все, что имеется заданного
автора или исполнителя (список таблица)
2.Общая стоимость всех экземпляров,
имеющихся в наличии
27.
Магазин садовые инструменты
Наименование инструмента,
стоимость 1 шт., количество, дата поступления
1.Напечатать все наименования инструментов, стоимость которых, менее
заданной суммы
2.Посчитать среднюю цену инструмента
28.
Зоомагазин
Наименование животного
или предмета, стоимость
1шт., цвет, дата поступления, животное или предмет
1.Напечатать список всех предметов
выставленных на продажу
2.Самого дорогого животного
29.
Домашние
животные
Кличка, наименование животного, возраст, дата рождения, цвет, количество
прививок, стоимость питания в день
1.Кличку животного, у которого стоимость питания в день минимальна
2.Стоимость питания за месяц всех
животных
30.
Расписание
Корпус, аудитория, дисциплина, пара, преподаватель,
группа, вместимость, дата
1.Определить все свободные аудитории на
заданную дату и пару (вводятся с экрана)
2.Самую большую аудиторию (максимальной вместимости)
31.
Магазин
компьютеров
Наименование товара, стоимость единицы, количество, дата поставки, дата
продажи
1.Самый дешёвый компьютер
2.Найти стоимость ксероксов и принтеров
3.Найти наименование товаров проданных за день (дата вводиться с экрана)
56
32.
Магазин
продукты
Наименование товара, стоимость, количество, дата
завоза, срок хранения, поставщик
1.Какого товара больше всего
2.Напечатать все продукты, срок которых вышел
33.
Кафе
Наименование блюда, цена,
вес, повар, калорийность
1.Самое дорогое блюдо, которое может
позволить себе клиент имеющий заданную сумму (вводится с экрана)
2.Набор блюд, суммарная калорийность которых не превосходит, заданной величины (вводится с экрана)
34.
Нагрузка
Ф.и.о., дисциплина, количество часов в неделю, общее
число часов за семестр, количество студентов
1.Найти общее число часов за семестр
для заданного преподавателя
2.Найти все предметы, которые ведет
заданный преподаватель (вводится с
экрана)
35.
Оборудование
Наименование оборудования, состояние, остаточная
стоимость, дата поступления, место нахождения
1.Самое старое оборудование
2.Все наименования оборудования,
находящиеся в определённом (нормальном или другом) состояние (ввести с экрана)
57
Пример отчета лабораторной работы
a, k
x, y, z
начало
конец
1. Цель работы — закрепить основные понятия языка Паскаль
2. Задание 1 Дано целое число к и действительное число а.
Вычислить:
3. Схема алгоритма
58
4. Текст программы
– Program ex_1;
– var
– k:integer;
– a, x, y, z: real;
– begin write (‘a=’);
– readln (a);
– write (‘k=’);
– readln(k);
– x: =sqr(a) +abs(k)/sqrt(12.7+sin(sqr(a)));
– y:=exp(-1/a)+sin(sqr(k))/cos(sqr(k));
– z: =1/7+sqrt(a/sqr(k)+ln(a/3));
– writeln(‘x=’,x);
– writeln(‘y=’,y);
– writeln (‘z=’,z);
– end.
5. Тестовый пример
При a=5 и k=4
Результат:x=2.6128321810E+01;
y=1.1193629951E+00;z=1.2126997610E+00;
59
Список литературы
1. Акулич И.Л. Математическое программирование в примерах и зада-
чах.— М.: Высшая школа, 1993
2. Борзунова Т.Л. Алгоритмы и программы в примерах и блок—
схемах.— В.: Политехник, 2003.
3. Перри Г. Самоучитель программирования.— СПБ.: Питер, 2002.
4. Информатика: практикум по технологии работы на компьютере. / под
ред. Н.В. Макаровой. — М.: Финансы и статистика, 2001, 2003, 2004.
5. Информатика. Базовый курс / под ред. С.В. Симоновича.— СПБ.: Пи-
тер, 2007.
6. Информатика: учебник / под ред. Макаровой.— М.: Финансы и стати-
стика, 2007.
7. Журавлева Т.Ю. Информатика: учеб. Пособие. — М.: Изд–во МГОУ, 2003.
8. Кассера В.Ф. Turbo Pascal 7.0. — Диасофт, 2003.
9. Моргун А. Справочник по Turbo Pascal для студентов. — М.: Диалек-
тика, 2006, СПБ.: Питер, 2008.
10. http://tp7.info/.
11. http://ru.wikipedia.org/wiki/Turbo_Pascal.
12. http://allbest.ru/libraries.htm — каталог электронных библиотек.
60
Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]