База даних по приватних підприємствах регіону

Міністерство внутрішніх справ України Харківський національний університет внутрішніх справ Навчально-науковий інститут менеджменту, соціальних та інформаційних технологій Кафедра інформаційних систем і технологій в діяльності ОВС

Курсова робота

з дисципліни «Основи програмування та алгоритмічні мови»

на тему: «База даних по приватних підприємствах регіону»

Харків

Зміст

Вступ

1. Основна частина

1.1 Неформальна постановка задачі

1.2 Формальна постановка задачі

1.3 Структура зберігаючих даних:

2. Алгоритми

2.1 Алгоритм основної програми

2.1 Алгоритм процедури Is

3. Вихідний код програми

Висновок

Список використаної літератури

Вступ

Все більше і більше в регіонах реєструється приватних підприємців. Таким чином для обробки інформації яка надана по приватним підприємствам заносять до бази даних. Для полегшення цього процесу потрібно створити спеціалізовану програму, яка буду з простим, доступним інтерфейсом, але в той же час вона виконуватиме всі покладені на неї сподівання.

Інформатизація суспільства значним чином полегшила обробку інформації. Я вибрав мову програмування Турбо Паскаль, з метою закріплення своїх навиків з програмування.

1. Основна частина
1.1 Неформальна постановка задачі

Розробити програму-«приватні підприємства регіону», для реєстрації та автоматизованої обробки відомостей про підприємців в певному регіоні.

Занесення до бази даних (спеціальний файл) всіх відомостей про приватне підприємство:

o ФІО власника підприємства;

o Назва приватного підприємства;

o Вид діяльності підприємства;

o Адреса реєстрації;

o Номер телефону.

Можливість видалення відомостей

Організація пошуку за критеріями:

o ФІО власника;

o Назва приватного підприємства;

o Вид діяльності підприємства;

o Адреса реєстрації;

o Номер телефону.

Можливість перегляду всіх існуючих відомостей;

Зручний інтерфейс для користувача;

В складних випадках створення підказок для користувача;

Швидкість та простота роботи в даній програмі;

1.2 Формальна постановка задачі

Вихідні дані:

Нехай П={П1
,П2
,…,Пi
}, де ( i=1, 2, ..., N ) – множина підприємств.

Рi
є Пi
– ПІБ власника приватного підприємстваFi
є Пi
– адреса підприємстваDi
є Пi
– рід діяльності підприємстваHi
є Пi
– назва підприємстваLi
є Пi
– номер телефону

Таким чином отримуємо нову сукупність Пij
– яка більш розширена в плані інформації про підприємства

Результат:

Множина Zj
, яка формуються з вхідних даних а саме множини Пij.

Таким чином множина Zj
є підмножиною Пij

1.3 Структура зберігаючих даних

Tyr – запис, який приймає на себе відомості та потім зберігається в файл.

- Naz – поле куди заноситься назва підприємства

- Vd – поле куди заноситься вид діяльності підприємства

- Reg – поле куди заноситься інформація про адресу підприємства

- Vl – ПІБ власника приватного підприємства

- Nt – поле куди заноситься телефон підприємства

F – типізований файл

Kl – процедура яка малює рамочку

Rrr – процедура яка вимальовує меню без управляючої частини

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

Is – процедура яка забезпечує виконання пошуку

Ud – процедура для видалення

2. Алгоритми
2.1 Алгоритм основної програм
и

2.1
Алгоритм процедури Is

3.
Вихідний код програми

uses crt,dos;

type tyr=record

naz,vd,reg,vl,nt :string[15];

end;

var f:file of tyr; pr:tyr;

{..........................................}

procedure kl (x1,y1,x2,y2,a,b:byte);

var i:integer;

begin

textbackground(a);

textcolor(b);

window (x1,y1,x2,y2);

write('Й');

for i:=1 to (x2-x1)-1 do

begin

write('Н');

end;

write('»');

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

begin

gotoxy(1,i);

write('є');

gotoxy(x2-x1+1,i);

write('є');

end;

write('И');

for i:=1 to (x2-x1)-1 do

begin

write('Н');

end;

write('ј');

end;

{------------------------}

procedure newreadkey (var a:char;var b:byte);

begin

b:=0;

a:=readkey;

if a=#0 then

b:=ord(readkey);

end;

{------------------}

procedure rrr(st1,st2,st3,st4:string);

begin

window(1,1,40,25);

textbackground(7);

clrscr;

kl(5,2,35,5,7,0);

gotoxy(3,1);

write (#181,st1,#198);

kl(5,8,35,11,7,0);

gotoxy(3,1);

write (#181,st2,#198);

kl(5,14,35,17,7,0);

gotoxy(3,1);

write (#181,st3,#198);

kl(5,20,35,23,7,0);

gotoxy(3,1);

write (#181,st4,#198);

end;

{------------------}

procedure prig(x,y,u,n:byte);

var i:byte;

begin

textbackground(0);

textcolor(u);

gotoxy(x,y);

for i:=1 to n do

write(#176);

end;

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

var i,c:integer;

begin

gotoxy(x1,y1);

write(#201);

for i:=1 to x2-x1-1 do

begin

gotoxy(x1+i,y1);

write(#205);

end;

gotoxy(x2,y1);

write(#187);

for i:=1 to y2-y1-1 do

begin

gotoxy(x2,y1+i);

write(#186);

end;

gotoxy(x2,y2);

write(#188);

for i:=1 to x2-x1-1 do