Разработка информационно-поисковой системы

 

МИНИСТЕРСТВО  КУЛЬТУРЫ РОССИЙСКОЙ ФЕДЕРАЦИИ

ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ  ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ

ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО  ОБРАЗОВАНИЯ

«САНКТ-ПЕТЕРБУРГСКИЙ  ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ 

КИНО И ТЕЛЕВИДЕНИЯ»

 

_{Кафедра математики и информатики}

 

 

 

 

 

 

 

КУРСОВАЯ РАБОТА

 

дисциплина: _______________Информатика____________________

^{наименование  дисциплины}

тема: Разработка информационно-поисковой системы_________

^{полная  формулировка темы}

 

Вариант № 8

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Выполнил   Cолдатов Сергей Сергеевич

                    ФТКиТ 214 группа

Проверил    Ситникова Е.В.

Дата защиты:_____________________                              старший преподаватель

№ зачетной книжки _______________

Оценка: _________________________

 

__________________

  ^{подпись преподавателя}

Вариант 8

База данных «Служба занятости»

 

Составить программу  создания и обработки базы данных, которая содержит информацию о безработных, предприятиях и вакансиях. База данных должна содержать информацию о предприятиях, готовых предоставить рабочее место по специальности или имеющих вакансии, полную информацию о безработном, а также дату постановки безработного на учет в службе занятости и пособие, которое будет ему выплачиваться.

Информация  состоит из записей в типизированном файле. Каждая запись должна содержать следующие поля:

• фамилия, имя, отчество,
• адрес,
• телефон, 
• образование,
• специальность
• стаж,
• дата постановки на учет
• пособие
• название предприятия,
• адрес предприятия,
• телефон предприятия,
• количество вакансий,
• специальности,
• зарплата.

 

Программа должна содержать заставку и меню.

Обработка файла должна включать следующие  действия.

 

1. Создание базы данных в типизированном файле.
2. Дополнение файла новыми записями.
3. Вывод на экран базы данных.
4. Вывод списка тех предприятий, которые имеют вакансии с зарплатой более 5 000 руб.
5. Вывод списка тех безработных, которые имеют заданную специальность.
6. Вывод фамилий и телефонов тех безработных, которые имеют высшее образование.
7. Сделать выборку тех безработных, чей стаж составляет более 5 лет.
8. Вывести данные по тем безработным, которые имеют минимальный размер пособия и были поставлены на учет в 2009 году.
9. Вывести названия тех предприятий, которые имеют более 3 вакансий  или не имеют на текущий момент вакансий (указать).

 

Все элементы обработки файла должны быть оформлены в виде процедур. Количество записей произвольное (более 10).

 

 

           Введение

 

Цель работы – закрепление приобретенных  навыков алгоритмизации задач с  использованием структурного подхода, а так же навыков программирования на языке высокого уровня.

Программа построения базы данных реализована на языке Turbo Pascal.

Этот язык был разработан Н. Виртом первоначально для целей обучения программированию вообще. С этой точки зрения Паскаль имеет некоторое преимущество перед однотипными языками - такими, как, например, язык Си.

По своей идеологии Паскаль  близок к современной методике и  технологии программирования. Этот язык весьма полно отражает идеи структурного программирования, что отчетливо проявляется в основных управляющих структурах, предусмотренных в Паскале.

Паскаль хорошо приспособлен для применения общепризнанной в настоящее время  технологии разработки программ методом  нисходящего проектирования (пошаговой  детализации). Это проявляется в том, что Паскаль может успешно использоваться для записи программы на разных уровнях ее детализации, не прибегая к помощи блок-схем или специального языка проектирования программ.

 

В задачи данной курсовой входит:

-организация алгоритма программы;

-организация вывода информации;

-возможность добавления информации  в базу данных;

-поиск информации в базе данных  по заданному значению;

-информативность и удобство  в использовании.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Описание базы данных

База данных состоит из таблицы. Для работы с базой данных в Turbo Pascal используются типизированные файлы элементами которого являются записи.

 

Имя поля	Тип	Размер	Описание
name	строковый	10	имя
spez	строковый	20	специальность
obr	строковый	20	образование
adress	строковый	20	адрес
nomer	строковый	10	номер телефона
stag	целый	целый	год выпуска
dvd	целый	целый	день постановки на учет
dvm	строковый	10	месяц постановки на учет
dvg	целый	целый	год постановки на учет
zarplata	вещественный	вещественный	зарплата
vac	целый	целый	количество вакансий
posobie	строковый	15	наличие пособия
pred	строковый	15	название предприятия
apred	строковый	15	адрес предприятия
telpred	строковый	10	телефон предприятия
Spez2	строковый	15	требуемая специальность

 

Используемые переменные

В таблице перечислены глобальные переменные и типизированные константы, используемые в программе.

 

Имя	Смысл	Назначение	Ограничения
i	счетчик	промежуточная	целое
punkt	пункты меню	промежуточная	типизированная константа типа массив элементов string
m	выбранный пункт меню	промежуточная	целое
f	файл базы данных	исходная и результат	файл записей

 

 

Структура программы

Программа состоит из заставки, набора процедур, функций и глобального  блока. Далее приводятся описания и исходный код процедур, используемых в программе в порядке упоминания в исходном коде.

 

 

 

 

 

Процедура frame

Эта процедура служит для вывода на экран рамки, состоящей из псевдографики, и используемой в других процедурах.

Используемые переменные

Имя	Смысл	Назначение	Ограничения
x1	начальная абсцисса	исходная	целое (1 байт)
y1	начальная ордината	исходная	целое (1 байт)
x2	ширина рамки	исходная	целое (1 байт)
y2	высота рамки	исходная	целое (1 байт)
i	текущая абсцисса	промежуточная	целое (1 байт)
j	текущая ордината	промежуточная	целое (1 байт)

 

 

 

 

 

 

 

 

 

 

 

 

Текст программы

procedure frame(x1,y1,x2,y2:integer);

const A=#186; B=#187; C=#188; D=#200; E=#201; F=#205;

var I,j:integer;

begin

     clrscr; textcolor(lightcyan);

     gotoxy(x1,y1);

     write(E);

     for i:=(x1+1) to (x2-1) do write(F);

     write(B);

     for i:=(y1+1) to (y2-1) do

         begin

         gotoxy(x1,i);

         write(A);

         gotoxy(x2,i);

         write(A);

         end;

     gotoxy(x1,y2);

     write(D);

     for i:=(x1+1) to (x2-1) do write(F);

     write(C)

end;

Блок схему см. в  Приложении (Рис.1)

 

Процедура zastavka

Эта процедура выводит на экран  заставку и удерживает её до нажатия  любой клавиши.

 

Текст программы

procedure zastavka;

begin textcolor(red);

     clrscr;

     textcolor(white);

     textmode(co40);

     frame(2,2,40,25);

     gotoxy(5,3); textcolor(lightblue);

     write('SAINT-PETERSBURG STATE');

     gotoxy(5,5);

     write('UNIVERSITY OF CINEMA AND TELEVISION');

     textcolor(yellow);

     gotoxy(15,10); write('KURSOVAYA RABOTA');

     gotoxy(15,12); write('PO INFORMATIKE');

     gotoxy(20,18); write('Vypolnil student');

     gotoxy(20,19); write('gruppy 214');

     gotoxy(20,20); write('Sergey Soldatov');

     gotoxy(15,22); write('SAINT-PETERSBURG');

     gotoxy(20,23); write('2013');

     readkey;

     clrscr; textmode(co80)

     end;

Блок схему см. в Приложении (Рис.2)

Снимок экрана

 

 

Процедура menu

Процедура используется для навигации  по программе. Она выводит на экран  все доступные пункты и предоставляет удобную «стрелочную» навигацию.

 

Используемые переменные

Имя	Смысл	Назначение	Ограничения
punkt	выбранный пункт	результат	целое
key	нажатая клавиша	промежуточная	символ

 

 

Текст программы

procedure menu(var punkt:integer);

var i:integer; key:char;

begin CLRSCR; textcolor(white);

     gotoxy(30,7); write('MENU');

     for i:=1 to k do

         begin gotoxy(30,10+i); write(name[i]) end;

     punkt:=1;

     repeat

           textbackground(lightblue);

           gotoxy(30,10+punkt);

           write(name[punkt]);

           repeat until keypressed;

           key:=readkey;

           if key=#0 then key:=readkey;

           textbackground(0);

           gotoxy(30,10+punkt);

           write(name[punkt]);

           case key of

                #72:punkt:=punkt-1;

                #80:punkt:=punkt+1;

           end;

           if punkt>k then punkt:=1

           else if punkt<1 then punkt:=k;

     until key=#13;

     clrscr;

end;

 

Блок схему см. в Приложении (Рис.3)