Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Требования к курсовой работе.DOC
Скачиваний:
0
Добавлен:
01.03.2025
Размер:
715.78 Кб
Скачать

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.