Задания для самостоятельного выполнения.

1. Разработать базу данных "Абитуриенты" (Фамилия, имя, адрес, оценки по 3 экзаменам, средний балл). Получить данные по абитуриентам, сдавшим вступительные экзамены со средним баллом не ниже 4,5.

2. Разработать базу данных "Отдела кадров университета" (Фамилия, имя, отчество, адрес, стаж педагогической деятельности). Получить данные по преподавателям, имеющим стаж больше 10 лет.

3. Разработать базу данных "Избирательная комиссия предвыборной кампании" (Фамилия, имя, отчество, адрес, № и серия паспорта.). Получить данные по избирателям, проживающим на заданной улице.

4. Разработать базу данных "Научно – техническая библиотека" (Фамилия, И. О. автора книги, Название книги, город, издательство, год выпуска, тематика). Получить данные о книгах по заданной тематике.

5. Разработать базу данных "Библиотека художественной литературы" (Фамилия, И. О. автора книги, Название книги, город и издательство, год выпуска). Получить данные о книгах заданного автора.

6. Разработать базу данных "Детская библиотека" (Фамилия, И. О. автора книги, Название книги, город и издательство, год выпуска). Получить данные о книгах, выпущенных в заданном году.

7. Разработать базу данных "Запасные детали для ремонта радиоаппаратуры" (Название, завод изготовитель, область применения, цена одной штуки, количество, стоимость всех деталей). Распечатать данные о деталях для заданной области применения.

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

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

10. Разработать базу данных "Администратор железнодорожных касс" (Номер поезда, пункты и время отправления и прибытия). Получить данные о поездах, следующих в заданный город.

11. Разработать базу данных "Магазин по продаже персональных компьютеров (Процессор, ОЗУ, ПЗУ, винчестер и т. п., стоимость ). Получить данные о компьютерах, стоимость которых менее 6 тысяч рублей.

12. Разработать базу данных "Районная поликлиника" (Фамилия, имя, отчество, адрес, рост, вес, давление и т.п.). Получить данные по гипертоникам.

13. Разработать базу данных "Бюро по трудоустройству" (Предприятие, отдел, специальность, стаж работы, особые требования к сотруднику). Получить данные по ИТР.

14. Разработать базу данных "Администратор гостиницы" (Фамилия, имя, отчество, адрес, № комнаты, этаж, стоимость). Получить данные о проживающих в номерах "люкс".

15. Разработать базу данных "Адресное бюро города". (Фамилия, имя, отчество, возраст, адрес, № телефона). Получить данные о жителях, возраст которых превышает 60 лет.

16. Разработать базу данных “Городская справка" (Рестораны, гостиницы, магазины, их адреса, телефоны). Получить данные о гостиницах.

17. Разработать базу данных "Кондитерская" (Наименование тортов, способ изготовления, цена, срок годности, калорийность). Получить данные о заданных тортах.

18. Разработать базу данных "Столовая" (Название блюда, основные компоненты, калорийность, цена). Получить данные обо всех вторых блюдах.

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

20. Разработать базу данных "Домашняя фонотека" (Название аудиокассет, компакт дисков, Авторы и исполнители песен). Получить данные о произведениях одного автора.

21. Разработать базу данных "Каталог видеозаписей" (Название фильма, режиссер, исполнители главных ролей). Получить данные о всех фильмах с участием заданного актера.

22. Разработать базу данных "Рецепты салатов" (Название салата, компоненты для его приготовления). Получить данные о всех салатах в состав которых входит капуста.

23. Разработать базу данных "Список знакомых" (Фамилия, адрес, № телефона, книги, кассеты, видеокассеты, которые они у Вас взяли). Получить данные о всех знакомых, которые не вернули книги.

24. Разработать базу данных "Список родственников" (Фамилия, имя, отчество, дата рождения, адрес, № телефона). Получить данные о всех родственниках, родившихся в заданном месяце.

Тема 14. Сортировка.

Написать программу сортировки записей в соответствии c условием задания. Записи считываются из типизированного файла, полученного в соответствии с условиями заданий темы 13. Сортировка записей должна быть реализована в подпрограммах. Исходные записи вывести в главной программе. Имя файла ввести с клавиатуры в главной программе. Отсортированные записи вывести на экран монитора в главной программе. Метод сортировки задан.

Пример 1.Отсортировать записи из примера 1 задания 13. Сортировку провести методом “пузырька” по признаку пола (3-е поле в записи).

program pr14;

uses crt;

type Tsotr = record

code: string;

fam: string;

pol: char

end;

TsotrAr = array[1..20] of Tsotr;

procedure swap(var x, y: Tsotr);

var

temp: Tsotr;

begin

temp:= x;

x:= y;

y:= temp

end;

procedure sort(n: byte; var A: TsotrAr);

var i, j: byte;

begin

for i:= 1 to n - 1 do

for j:= n downto i + 1 do

if A[j].pol < A[j - 1].pol then

swap(A[j], A[j - 1])

end;

var

sot: TsotrAr;

fl: file of Tsotr;

s: string;

i, n1: byte;

begin clrscr;

write('Введите имя файла -> ');

readln(s);

assign(fl, s);

reset(fl);

writeln('Исходные записи:');

writeln(' код фамилия пол');

writeln('==================');

n1:= 0;

repeat

inc(n1);

read(fl, sot[n1]);

with sot[n1] do

writeln(code:3, fam: 10, pol:3);

until eof(fl);

sort(n1, sot);

writeln('После сортировки:');

writeln(' код фамилия пол');

writeln('==================');

for i:= 1 to n1 do

with sot[i] do

writeln(code:3, fam: 10, pol:3);

close(fl);

readkey

end.