Пример выполнения задания

Сформировать базу данных, состоящую из 10 записей по 4 поля в каждой: фамилия, имя, год рождения и телефон. Вывести на экран записи, в которых содержатся сведения об Иванове.

Листинг программы.

Program pr_12;

Uses Crt;

Type

person=Record

sname,name:String[14];

gr:Integer;

tele:String[8]; End;

Var spicok:Array[1..10] Of Person;

I: Integer;

Begin

For i:=1 To 10 Do

Begin

With spisok[i] Do

Begin

Writeln(‘Фамилия’); Readln(sname);

Writeln(‘имя’); Readln(name);

Writeln(‘Год рождения’); Readln(gr);

Writeln(‘Телефон’); Readln(tele);

End;

End;

Writeln(‘Список Фамилия Имя Год рождения Телефон’);

For i:=1 To 10 Do

Begin

With spicok[i] Do

If sname=’Иванов’then

Writeln (sname:15name10, gr:8,tele:10);

Writeln;

End;

Readln

End.

Практическая часть

Используя структурированный тип записи (структура данных), выполнить следующие действия с исходными данными. Предусмотреть сохранение двух таблиц в файлах на диске.

Вариант 1

Разработать базу данных «Абитуриенты» (фамилия, имя, адрес, оценки по 3 экзаменам, средний бал). Вывести на экран данные по абитуриентам, сдавшим вступительные экзамены со средним баллом не ниже 4,5.

Вариант 2.

Разработать базу данных «Отдела кадров университета» (фамилия, имя, отчество, адрес, стаж педагогической деятельности). Вывести на экран данные по преподавателям, имеющим стаж более 10 лет.

Вариант 3.

Разработать программу базу данных «Научно-техническая библиотека» (фамилия, имя, отчество, автор книги, название книги, город и издательство, год выпуска, тематика). Вывести на экран данные о книгах по программированию.

Вариант 4.

разработать программу базы данных «Легковые автомобили». Название (марка), завод изготовитель, год выпуска, стоимость. Вывести на экран данные обо всех автомобилях стоимостью менее 80 тысяч рублей.

Вариант 5.

Разработать б базу данных «Администратор железнодорожных касс» (номер поезда, пункты и время отправления и прибытия). Вывести на экран данные о поездах, следующих до Екатеринбурга.

Вариант 6.

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

Вариант 7.

Разработать базу данных «Районная поликлиника» (фамилия, имя, отчество, адрес, рост, вес, давление и т.п.). Вывести на экран данные по гипертоникам.

Вариант 8.

Разработать базу данных «Кондитерская» (наименование тортов, способ изготовления, цена, срок годности, калорийность). Вывести на экран данные о бисквитных тортах.

Вариант 9.

Разработать базу данных «Домашняя фонотека» (названия аудиокассет, компакт дисков, авторы и исполнители песен). Вывести на экран данные о произведениях одного автора.

Вариант 10.

Разработать базу данных «Список родственников» (фамилия, имя, отчество, дата рождения, адрес, № телефона). Вывести на экран данные обо всех родственниках, родившихся в январе.

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

1. Дайте определение типа записи.

2. Способы задания записей.

3. Что такое база данных?

4. Отличие записей от переменных типа string.

Дата добавления: 2015-07-19