
- •1. Общие положения
- •2. Требования к курсовой работе
- •2.1. Требования к отчету
- •2.2. Требования к программе
- •2.3. Требования к защите курсовой работы
- •3. Методические рекомендации
- •3.1. Структурное программирование
- •3.2. Виды меню
- •3.3. Заставка (текстовая, графическая)
- •4. Разработка информационно-поисковой системы (ипс)
- •5. Типовой пример
- •5.1. Постановка задачи
- •5.2. Описание базы данных
- •5.3. Структура программы
- •5.4. Первоначальные данные
- •5.5. Интерфейс программы
- •5.6. Разработка процедур
- •Пояснения к алгоритму
- •Программа процедуры
- •Пояснения к алгоритму
- •Программа процедуры
- •5.7. Текст программы
- •5.8. Результаты машинного тестирования
- •6. Литература
- •Оглавление
- •1. Общие положения…………………………………………….…2
- •2. Требования к курсовой работе……………………………….…3
5.2. Описание базы данных
База данных состоит из таблицы. Для работы с базой данных в Turbo Pascal используются типизированные файлы элементами которого являются записи.
Название
поля
Тип
поля
Размер
поля
Описание
continent
текстовый
13
часть
света
country
текстовый
13
название страны
area
числовой
вещественный
площадь
population
числовой
длинное
целое
население |
5.3. Структура программы
Программа, в общем случае, состоит из заставки, набора процедур, функций и глобального блока.
Program KURSOVIK; uses crt,graph;
const punkt:array[1..9] of string=
('1 - sozdaniye i dopolneniye',
'2 - display,
'3 - plotnost naseleniya',
'4 - sum naseleniye kontinenta',
'5 - correction', '6 - exit');
m='MAIN MENU'; v='Input number of punct ';
type zap=record
continent,country:string [13];
area:real; population:longint
end;
var {описание глобальных переменных, например, z:zap; f:file of zap} num,i:integer;
procedure zastavka;
{раздел описаний}
begin
{тело процедуры}
end;
{описание всех процедур пунктов меню}
................
begin
zastavka;
repeat
clrscr;
gotoXY (20,7); textcolor (red);
write (m); textcolor (yellow);
for i:=1 to 6 do
begin
gotoXY (15,10+i);
writeln (punkt[i])
end;
gotoXY (15,21); textcolor (white);
write (v); read (num);
case num of
1: create;
2: display
3: plotnst;
4: sumpop;
5: correct
else
begin
gotoXY(15,23);
write(‘Takogo puncta net. Repeat’);
delay(1000)
end
end
until num=6
end.
5.4. Первоначальные данные
Данные вводят и сохраняют в типизированном файле 'TIP1.DAT'. Эти данные введены с помощью procedure create;
continent country area population
Africa Egipet 1001 36000
Africa Togo 56 2092
Africa Tunis 164 5400
Asia India 3268 563490
Asia Japan 370 107880
Asia Kitai 9597 800720
Europe Avstriya 84 7490
Europe France 551 51921
Europe Spain 505 34328
North America Canada 9976 21854
North America USA 9363 210194
5.5. Интерфейс программы
Для того, чтоб понять, что делает программа, рассмотрим ее меню:
MAIN MENU
1 - sozdaniye i dopolneniye
2 - display
3 - plotnost naseleniya
4 - sum naseleniye kontinenta
5- correction
6 - exit
Input number of punct
Примечание: выбор пункта меню осуществляется путем ввода соответствующего номера.
Меню программы появляется при ее запуске после выполнения заставки.
Рассмотрим назначения каждого пункта меню:
1 – sozdaniye i dopolneniye - создание базы данных в типизированном файле и дополнение файла новыми записями (пункты 1 и 2 исходного задания);
2 – display – вывод базы данных на экран;
3 – plotnost naseleniya - ввод пользователем названия страны и получение информации о средней плотности населения данной страны (пункт 4 исходного задания). В случае неверного ввода программа сообщает пользователю об ошибке в названии страны или отсутствии сведений о данной стране в базе данных;
4 – sum naseleniye kontinenta - определение для каждого континента суммарной численности населения всех стран, имеющихся в базе данных, и вывод информации на экран в порядке убывания численности. Программа сообщает об отсутствии сведений по какому-либо континенту в случае отсутствия информации ни по одной из стран для данного континента;
5 – correction - коррекция записи в базе данных. В соответствии с желанием пользователя, программа позволяет произвести как полную коррекцию имеющейся информации для данной страны (название страны, континент, площадь, численность населения), так и заменить лишь числовые данные для введённой страны. В случае неверного ввода первоначального имени страны, нуждающейся в коррекции, программа сообщает пользователю об ошибке в названии или отсутствии данной страны в базе данных;
Каждый пункт меню формируется как отдельная процедура.
Создание и дополнение базы данных - procedure create;
Вывод на экран - procedure display;
Средняя плотность населения - procedure plotnst;
Суммарное население континента - procedure sumpop;
Коррекция записи - procedure correct.