Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364150
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62792)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21320)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21697)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8694)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3463)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20645)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

Контрольная работа: Автоматизований аналіз злочинності по областям

Название: Автоматизований аналіз злочинності по областям
Раздел: Рефераты по информатике, программированию
Тип: контрольная работа Добавлен 16:30:32 03 октября 2010 Похожие работы
Просмотров: 15 Комментариев: 2 Оценило: 0 человек Средний балл: 0 Оценка: неизвестно     Скачать

Автоматизований аналіз злочинності по областям


Вступ

Злочинність все більше розвивається в сучасному світі. І тому необхідно вести строгий облік всієї злочинності. Розробити програму яка буди здійснювати автоматизований аналіз злочинності по певній області. Так як ця задача не вимагає великих та жорстких методів написання, я оберу мову програмування Turbo Pascal.

Я вибрав мову програмування Turbo Pascal, з метою закріплення своїх навиків з програмування.


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

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

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

- Введення і збереження інформації до файлу:

o Назва області

o Кількість вбивств

o Кількість зґвалтувань;

o Кількість крадіжок

o Кількість пограбувань.

- Можливість редагування даної бази

- Аналіз

o Область з най білими показниками злочинності

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

o Перегляд скороченого варіанту бази

o Перегляд повного варіанту даних, які занесені до бази

- Можливість видалення всієї бази.

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

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

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

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

Позначимо сукупність всіх даних, які будуть заноситись до бази даних через множину А, таким чином А={А1, А2, …, Аі }, де і=1..n, Аі – певна область.

Кожен область складається з певного виду злочину, отже маємо Аі ={Аі1, Аі2, …, Аіj }, j=1..4.

Таким чином ми маємо матрицю всіх відомостей які зберігаються в базі даних, та заносяться користувачем.

Результат: множина Рij , яка формуються з вхідних даних а саме множини Аij .

Математична модель: з матриці вибираютьсяАі з найбільшими показниками Аj .

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

Nb – структура для введення та зберігання інформації що вводить користувач.

· Nas – назва області

· Ub – поле для кількості вбивств в конкретній область

· Iz – поле для кількості зґвалтувань в конкретній області

· Kr – поле для кількості крадіжок в конкретній області

· Pas – поле для кількості грабіжей в конкретній області

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

izi – процедура яка виводить в певних координатах певні відомасті

ram – процедура яка малює рамочку іншого типу

zao – процедура для введення та зберігання до файлу відомостей які вводить користувач

anal – процедура яка здійснює автоматизований аналіз злочинності

ual – процедура видалення всієї бази

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

uses crt, dos;

type nb=record

nas:string[10];

ub, iz, kr, pas:integer;

end; {avt al zl po abl}

var f:file of nb; obl:nb;

procedure ramo4ka (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 izi (x, y:byte; s1, s2, s3, s4:string);

begin

gotoxy (x, y);

write(s1);

gotoxy (x+15, y+2);

write(s2);

gotoxy (x, y+4);

write(s3);

gotoxy (x+15, y+6);

write(s4);

end;

{–}

procedure ram (x, y, x1, y1, a, b:byte);

begin

ramo4ka (x, y, x1, y1, a, b);

end;

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

var i, c:integer;

begin

textcolor(7);

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

begin

gotoxy (x2-i, y2);

write(#205);

end;

gotoxy (x1, y2);

write(#200);

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

begin

gotoxy (x1, y1+i);

write(#186);

end;

end;

{……………….}

procedure zao;

var i, n:integer;

begin

window (1,1,40,25);

textbackground(1);

clrscr;

pamka (6,6,34,18);

window (7,7,33,17);

textbackground(14);

clrscr;

write ('Vvedite kol-vo oblastey – '); readln(n);

assign (f, 'c:\te.j');

rewrite(f);

for i:=1 to n do

begin

clrscr;

seek (f, filesize(f));

with obl do

begin

write ('vvedi oblast:'); readln(nas);

write ('Vvedi kol-vo ubiystv: '); readln(ub);

write ('Vvedi kol-vo iznasilovaniy: '); readln(iz);

write ('vvedi kol-vo kraj: '); readln(kr);

write ('vvedi kol-vo rasboyev: '); readln(pas);

end;

write (f, obl);

end;

close(f);

end;

{…………………………….}

procedure anal;

var k, i, j:integer;

begin

if FSearch ('te.j', 'c:\')='' then

begin

window (1,1,40,25);

textbackground(1);

clrscr;

pamka (1,1,39,25);

window (2,2,38,24);

textcolor(132);

writeln ('FAILA NET'); readln;

end

else

begin

window (1,1,40,25);

textbackground(1);

clrscr;

pamka (1,1,39,25);

window (2,2,38,24);

writeln ('Dlya analiza nagmi «Enter» ');

readln; clrscr;

assign (f, 'c:\te.j');

reset(f);

k:=-9999;

j:=0;

for i:=0 to filesize(f) – 1 do

begin

seek (f, i);

read (f, obl);

with obl do

begin

if ub>k then

begin

k:=ub;

j:=i;

end;

end;

end;

seek (f, j);

read (f, obl);

with obl do

begin

writeln ('sam. bolh. kol. ubiystv-', ub);

writeln ('v ', nas, ' oblasti');

writeln(#219);

end;

k:=-9999;

j:=0;

for i:=0 to filesize(f) – 1 do

begin

seek (f, i);

read (f, obl);

with obl do

begin

if iz>k then

begin

k:=iz;

j:=i;

end;

end;

end;

seek (f, j);

read (f, obl);

with obl do

begin

writeln ('sam. bolh. kol. iznosilovaniy-', iz);

writeln ('v ', nas, ' oblasti');

writeln(#219);

end;

k:=-9999;

j:=0;

for i:=0 to filesize(f) – 1 do

begin

seek (f, i);

read (f, obl);

with obl do

begin

if kr>k then

begin

k:=kr;

j:=i;

end;

end;

end;

seek (f, j);

read (f, obl);

with obl do

begin

writeln ('sam. bolh. kol. kraj-', kr);

writeln ('v ', nas, ' oblasti');

writeln(#219);

end;

k:=-9999;

j:=0;

for i:=0 to filesize(f) – 1 do

begin

seek (f, i);

read (f, obl);

with obl do

begin

if pas>k then

begin

k:=pas;

j:=i;

end;

end;

end;

seek (f, j);

read (f, obl);

with obl do

begin

writeln ('sam. bolh. kol. rasboev-', pas);

writeln ('v ', nas, ' oblasti');

writeln(#219);

end;

for i:=1 to 37 do

begin

gotoxy (i, 13);

write(#196);

end;

readln;

close(f);

end;

end;

{…………………}

procedure ual;

begin

if FSearch ('te.j', 'c:\')='' then

begin

window (1,1,40,25);

textbackground(1);

clrscr;

pamka (1,1,39,25);

window (2,2,38,24);

textcolor(132);

writeln ('FAILA NET'); readln;

end

else

begin

window (1,1,40,25);

textbackground(1);

clrscr;

pamka (1,1,39,25);

window (2,2,38,24);

writeln ('Dlya udalenia nagmi «Enter» ');

readln;

assign (f, 'c:\te.j');

erase(f);

writeln('Udaleno');

readln;

end;

end;

{:}

var s1, s2, s3, s4, s5:string;

p:char; z, k:byte;

begin

textmode(C40);

repeat

window (1,1,40,25);

textbackground(1);

textcolor(7);

clrscr;

s1:='Vvod';

s2:='Analizirovat';

s3:='Udalit';

s4:='Vixod';

izi (10,7, s1, s2, s3, s4);

ram (9,6, length(s1)+10,9,1,14);

k:=1;

repeat

newreadkey (p, z);

if z=80 then

k:=k+1;

if z=72 then

k:=k-1;

if k=5 then

k:=4;

if k=0 then

k:=1;

if k=1 then

begin

ram (9,6, length(s1)+10,9,1,14);

ram (24,8, length(s1)+25,11,1,1);

end;

if k=2 then

begin

ram (9,6, length(s1)+10,9,1,1);

ram (24,8, length(s1)+25,11,1,14);

ram (9,10, length(s1)+10,13,1,1);

end;

if k=3 then

begin

ram (24,8, length(s1)+25,11,1,1);

ram (9,10, length(s1)+10,13,1,14);

ram (24,12, length(s1)+25,15,1,1);

end;

if k=4 then

begin

ram (9,10, length(s1)+10,13,1,1);

ram (24,12, length(s1)+25,15,1,14);

ram (9,14, length(s1)+10,17,1,1);

end;

until p=#13;

case k of

1:zao;

2:anal;

3:ual;

end;

until k=4;

end.

Висновок

В даній курсовій роботі я програмував мовою Turbo Pascal. Практично реалізував всі ті знання які мені давалися в теоретичному виді. Само вдосконалив свої навички. Створив програму автоматизовано аналізує злочинність по областям. В даній роботі були використані як свої створені процедури так і запозичені. Було підключено два модулі, які додали до моєї програми гарний графічний інтерфейс, та можливість зберігати всі відомості в електронному вигляді в виді файлу.

Була вибрана мова Pascal, оскільки я вважаю що вона найбільш підходить для реалізації цієї задачі

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

1. Струков В.М. Основи алгоритмизации и програмирования. Часть 2. Учебное пособие. – Харьков: Изд. Нац. ун-та внутр. дел, 2003. – 188 с.

2. Сердюченко В.Я. Розробка алгоритмів та програмування на мові Turbo Pascal. – X., 1995.

3. Немнюгин С.А. Turbo Pascal. – СПб.: Питер, 2002. – 496 с.

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Где скачать еще рефератов? Здесь: letsdoit777.blogspot.com
Евгений07:27:45 19 марта 2016
Кто еще хочет зарабатывать от 9000 рублей в день "Чистых Денег"? Узнайте как: business1777.blogspot.com ! Cпециально для студентов!
14:45:52 25 ноября 2015

Работы, похожие на Контрольная работа: Автоматизований аналіз злочинності по областям

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

Да, в любом случае.
Да, но только в случае крайней необходимости.
Возможно, в зависимости от цены.
Нет, напишу его сам.
Нет, забью.



Результаты(150984)
Комментарии (1842)
Copyright © 2005-2016 BestReferat.ru bestreferat@mail.ru       реклама на сайте

Рейтинг@Mail.ru