![]() |
|
сделать стартовой | добавить в избранное |
![]() |
База даних по обліку вогнепальної зброї |
Міністерство внутрішніх справ України Харківський національний університет внутрішніх справ Навчально-науковий інститут менеджменту, соціальних та інформаційних технологій Кафедра інформаційних систем і технологій в діяльності ОВС Курсова робота з дисципліни «Основи програмування та алгоритмічні мови» на тему: «База даних по обліку вогнепальної зброї» Харків р. Зміст & bsp; Вступ 1. Основна частина 1.1 Неформальна постановка задачі 1.2 Формальна постановка задачі 1.3 Структура зберігаючих даних 2. Алгоритми 2.1 Алгоритм основної програми 2.2 Алгоритм процедури Zap 2.3 Алгоритм процедури Udal 3. Вихідний код програми Висновок Список використаної літератури Вступ Оскільки в сучасному світі існує дуже велика кількість вогнепальної зброї, то реєстрація і облік її просто необхідний, адже саме вона стає причиною багатьох людських смертей. Таким чином для полегшення роботи працівникам міліція я вирішив створити програму яка полегшить роботу працівникам ОВС і переведе їх з паперової реєстрації до більш сучасної електронної. Де також з’являється можливість передачі даної бази мережею Інтернет. Я вибрав мову програмування Турбо Паскаль, з метою закріплення своїх навиків з програмування. 1. Основна частина & bsp; 1.1 Неформальна постановка задачі Розробити програму « облік вогнепальної зброї» бля більш простої та оптимальної обробки інформації по зброї. Ø& bsp;& bsp;& bsp; Занесення відомостей по вогнепальній зброї користувачем та зберігання її до типізованого файлу: o& bsp;& bsp;& bsp;& bsp;& bsp;& bsp;& bsp; Модель зброї; o& bsp;& bsp;& bsp;& bsp;& bsp;& bsp;& bsp; Калібр вогнепальної зброї; o& bsp;& bsp;& bsp;& bsp;& bsp;& bsp;& bsp; Вага зброї; o& bsp;& bsp;& bsp;& bsp;& bsp;& bsp;& bsp; Довжина зброї; o& bsp;& bsp;& bsp;& bsp;& bsp;& bsp;& bsp; Реєстраційний номер зброї; o& bsp;& bsp;& bsp;& bsp;& bsp;& bsp;& bsp; Висота зброї. Ø& bsp;& bsp;& bsp; Можливість редагування даної бази Ø& bsp;& bsp;& bsp; Можливість видалення всієї бази Ø& bsp;& bsp;& bsp; Організація пошуку за критеріями: o& bsp;& bsp;& bsp;& bsp;& bsp;& bsp;& bsp; Модель зброї; o& bsp;& bsp;& bsp;& bsp;& bsp;& bsp;& bsp; Калібр вогнепальної зброї; o& bsp;& bsp;& bsp;& bsp;& bsp;& bsp;& bsp; Вага зброї; o& bsp;& bsp;& bsp;& bsp;& bsp;& bsp;& bsp; Довжина зброї; o& bsp;& bsp;& bsp;& bsp;& bsp;& bsp;& bsp; Реєстраційний номер зброї; o& bsp;& bsp;& bsp;& bsp;& bsp;& bsp;& bsp; Висота зброї. Ø& bsp;& bsp;& bsp; Можливість перегляду всіх існуючих відомостей; Ø& bsp;& bsp;& bsp; Зручний інтерфейс для користувача; Ø& bsp;& bsp;& bsp; Швидкість та простота роботи в даній програмі; 1.2 Формальна постановка задачі Вихідні дані: Нехай А множина всієї вогнепальної зброї. Тоді А={А1, А2, ,Аі} і=1. . Аі – певний вид зброї Аі = {Р1, Р2, ,Рj} де Рj – певна характеристика даної зброї. Множина Рi, яка формуються з вхідних даних а саме множини Аi. під дією певного критерію: К1 – критерій Модель зброї К2 – критерій Калібр вогнепальної зброї К3 – критерій Вага зброї К4 – критерій Довжина зброї К5 – критерій Реєстраційний номер зброї К6 – критерій Висота зброї Математична модель Результат: Ак = { А1, А2, ,Аі }, де Аі є σк(А) вибірка 1.3
Структура зберігаючих даних: e – тип запис для занесення даних про автомобілі kal – перемінні строкового типу для зберігання калібоу ves – перемінні строкового типу для зберігання ваги dl – перемінні строкового типу для зберігання довжини vis – перемінні строкового типу для зберігання висоти med – перемінні строкового типу для зберігання моделі pr om – перемінні строкового типу для зберігання реєстраційного номеру polo - процедура для малювання рамочки me u - процедура для управління та виведення меню програми s relka - процедура для пунктів меню zap - процедура для занесення та збереження даних udal – процедура для видалення всієї бази poisk - процедура для пошуку за певними критеріями prosm - процедура для виведення всіх відомостей які містяться в базі 2. Алгоритми & bsp; 2.1 Алгоритм основної програми & bsp; & bsp; & bsp; & bsp; 2.2 Алгоритм процедури Zap 2.3 Алгоритм процедури Udal & bsp; & bsp; 3. Вихідний код програми & bsp; uses cr ,dos; ype e=record kal,ves,dl,vis:s ri g; e d; var f:file of e;oru: e;s 1,s 2,s 3,s 4,s 5:s ri g; x1,x2,y1,y2,i,b:by e; a1:char; procedure polo (x1,y1,x2,y2{Љ®®а¤Ё& bsp;вл а& bsp;¬ЄЁ ўе®¤лҐ}, {x01,y01{Љ®®а¤Ё& bsp;вл ўлў®¤ ⥪бв ў а& bsp;¬ЄҐ}{:i eger; s {’ҐЄбв ўлў®¤Ё¬л© ў а& bsp;¬ЄҐ}{:s ri g;} a{ЏҐаҐ¬Ґ& bsp;п д® а& bsp;¬ЄЁ}:by e); var i:i eger; begi ex backgrou d(a); ex color(red); wi dow (x1,y1,x2,y2); wri e(''); for i:=1 o (x2-x1)-1 do begi wri e('Д'); e d; wri e('ї'); for i:=2 o (y2-y1)-1 do begi go oxy(1,i); wri e('і'); go oxy(x2-x1 1,i); wri e('і'); e d; wri e('А'); for i:=1 o (x2-x1)-1 do begi wri e('Д'); e d; wri e('Щ'); e d; procedure ewreadkey (var a{‘зЁвлў& bsp;Ґ¬л© Є®¤ бЁ¬ў®«& bsp;}:char; var b{ђ& bsp;§иЁаҐл© Є®¤ Є«& bsp;ўЁиЁ}:by e); begi b:=0; a:=readkey; if a=#0 he b:=ord(readkey); e d; procedure begi wi dow(1,1,40,25); clrscr; wi dow(x1,y1,x2,y2); ex backgrou d(a); clrscr; ex color(b); wri el (s 1);wri el ; wri el (s 2);wri el ; wri el (s 3);wri el ; wri el (s 4);wri el ; wri el (s 5);wri el ; wi dow(1,1,40,25); ex color (2); go oxy(x1-2,y1); wri e('=&g ;'); e d; procedure s relka(var xx,i:by e;x1,y1,a,b:by e); begi wi dow(12,6,14,14); ex backgrou d(0); clrscr; wi dow(1,1,40,25); ex color(2); case b of 72: begi if i&g ;1 he begi i:=i-1; xx:=xx-2; go oxy(x1,xx); wri e('=&g ;'); exi ; e d; if i=1 he begi i:=5; xx:=y1 8; go oxy(x1,xx); wri e('=&g ;'); e d; e d; 80: begi if i&l ;5 he begi i:=i 1; xx:=xx 2; go oxy(x1,xx); wri e('=&g ;'); exi ; e d; if i=5 he begi i:=1; xx:=y1; go oxy(x1,xx); wri e('=&g ;'); e d; e d; e d; e d; procedure zap; var i, :i eger; begi clrscr; wri el ('vvedi kol-vo orugia'); readl ( ); assig (f,'d: uy.rer'); rewri e(f); for i:=1 o do begi wi h oru do begi wri el ('vvedi model orugia'); readl (med); wri el ('vvedi kalibr '); readl (kal); wri el ('vvedi ves '); readl (ves); wri el ('vvedi dli u'); readl (dl); wri el ('vvedi viso u'); readl (vis); wri el ('vvedi por. omer'); readl (pr om); seek(f,filesize(f)); e d; wri e(f,oru); e d; close(f); me u(15,6,27,16,0,14,s 1,s 2,s 3,s 4,s 5); e d; procedure udal; var c:char; begi clrscr; if FSearch('uy.r
er','d: ')='' he begi wri el ('faila e sushes vue '); for b:=1 o 25 do Delay(9999); me u(15,6,27,16,0,14,s 1,s 2,s 3,s 4,s 5); e d else begi assig (f,'d: uy.rer'); wri el ('&quo ;y&quo ;-ydali basy'); wri el ('&quo ; &quo ;-o me a'); c:=readkey; if c='y' he begi erase(f); me u(15,6,27,16,0,14,s 1,s 2,s 3,s 4,s 5); e d; if c=' ' he me u(15,6,27,16,0,14,s 1,s 2,s 3,s 4,s 5); e d; e d; procedure poisk; var p,x:s ri g;i:i eger; begi clrscr; if FSearch('uy.rer','d: ')='' he begi go oxy(15,12); ex color(132); wri el ('zapisi e '); for b:=1 o 40 do Delay(9999); me u(15,6,27,16,0,14,s 1,s 2,s 3,s 4,s 5); e d else begi assig (f,'d: uy.rer'); rese (f); wri el ('mog o iska po:'); wri el ; wri el ('dla poiska po modeli orugia vvedi-&quo ;model&quo ;'); wri el ; wri el ('dla poiska po kalibru vvedi-&quo ;kalibr&quo ;'); wri el ; wri el ('dla poiska po vesu vvedi-&quo ;ves&quo ;'); wri el ; wri el ('dla poiska po dli e vvedi-&quo ;dli a&quo ;'); wri el ; wri el ('dla poiska po viso e vvedi-&quo ;viso a&quo ;'); wri el ; wri el ('dla poiska po por. omeru vvedi-&quo ; omer&quo ;'); wri el ; wri el ('vvedi po hom budem iska i agm. &quo ;E ER&quo ;'); readl (p); if (p= 'model') or (p='kalibr') or ( p='ves') or (p='dli a') or (p='viso a') or (p=' omer') he begi if p='model' he begi clrscr; wri el ('vvedi iskaemou model'); readl (x); for i:=0 o filesize(f)-1 do begi seek(f,i); read(f,oru); wi h oru do if x=med he begi wri el ('model orugia-',med); wri el (' kalibr-',kal); wri el (' ves-',ves); wri el (' dli a-',dl); wri el (' viso a-',vis); wri el ('por. om-',pr om); e d; e d; e d; if p='kalibr' he begi clrscr; wri el ('vvedi iskaeiy kalibr'); readl (x); for i:=0 o filesize(f)-1 do begi seek(f,i); read(f,oru); wi h oru do if x=kal he begi wri el ('model orugia-',med); wri el ('kalibr-',kal); wri el ('ves-',ves); wri el ('dli a-',dl); wri el ('viso a-',vis); wri el ('por. om-',pr om); e d; e d; e d; if p='ves' he begi clrscr; wri el ('vvedi iskaeiy ves'); readl (x); for i:=0 o filesize(f)-1 do begi seek(f,i); read(f,oru); wi h oru do if x=ves he begi wri el ('model orugia-',med); wri el ('kalibr-',kal); wri el ('ves-',ves); wri el ('dli a-',dl); wri el ('viso a-',vis); wri el ('por. om-',pr om); e d; e d; e d; if p='dli a' he begi clrscr; wri el ('vvedi iskaemou dli y'); readl (x); for i:=0 o filesize(f)-1 do begi seek(f,i); read(f,oru); wi h oru do if x=dl he begi wri el ('model orugia-',med); wri el ('kalibr-',kal); wri el ('ves-',ves); wri el ('dli a-',dl); wri el ('viso a-',vis); wri el ('por. om-',pr om); e d; e d; e d; if p='viso a' he begi clrscr; wri el ('vvedi iskaemou viso u'); readl (x); for i:=0 o filesize(f)-1 do begi seek(f,i); read(f,oru); wi h oru do if x=vis he begi wri el ('model orugia-',med); wri el ('kalibr-',kal); wri el ('ves-',ves); wri el ('dli a-',dl); wri el ('viso a-',vis); wri el ('por. om-',pr om); e d; e d; e d; if p=' omer' he begi clrscr; wri el ('vvedi iskaemiy por. omer'); readl (x); for i:=0 o filesize(f)-1 do begi seek(f,i); read(f,oru); wi h oru do if x=pr om he begi wri el ('model orugia-',med); wri el ('kalibr-',kal); wri el ('ves-',ves); wri el ('dli a-',dl); wri el ('viso a-',vis); wri el ('por.
Также он рассказал о том, что источники у него достаточно свежие, и обновление практически всех баз у него происходит раз в квартал (или раз в полгода). Подобные обновленные базы у него можно было приобрести за полцены. Всего он продал 4 базы данных, расположенных на трех записанных CD база "Лабиринт" (база данных о политиках и их биографиях), база "Лунар" (телефоны и справочная информация о руководящем составе МВД, Налоговой Полиции, Правительства, Прокуратуры, Газпрома и пр.), база "БТИ" (собственники жилья в Москве), база "ГИБДД" (полные данные по автовладельцам Москвы). Общую стоимость покупки студент МАТИ оценил в 600$ США. При передаче денег он был задержан с поличным сотрудниками ОБЭП СЗАО. В ходе дальнейшей отработки оперативной информации, в течение часа, в районе м. "Пушкинская", при передаче денег, были также задержаны два его поставщика, оба студенты Университета Культуры. У них также были изъяты базы данных "Таможня" (данные об импортно-экспортных операциях), база "ЕГТС" (телефоны Москвы), и база "Прописка" (данные обо всех москвичах)
1. Організація бухгалтерського обліку в Австралії і Данії
2. База данных для проекта досугового учреждения в городе Муроме Владимирской области
4. Форматы баз данных в автоматизированных библиографических системах
5. Различные классы баз данных по предметным областям использования
9. Работа с Базами данных в Delphi
10. Разработка базы данных, отражающей учет успеваемости студентов
11. Базы данных Microsoft Access
12. Разработка базы данных "Культурный досуг"
13. Системы управления базами данных
14. Алгоритм создания базы данных складского учета
15. Разработка базы данных для объекта автоматизации: гомеопатическая аптека
16. Отчёт по созданию курсовой работы «База данных ACCESS»
17. Инструкция по эксплуатации базы данных магазина «Телевизоры» средствами Access 2000
18. Системы обработки информации - язык баз данных SQL со средствами поддержания целостности
21. База данных периодического издания
26. Особливості обліку на підприємстві роздрібної торгівлі – платника єдиного податку
27. GeoCad, как база данных для ведения реестра регистрации прав на недвижимость и сделок с ним
28. Активи як найважливіший об’єкт бухгалтерського обліку укр
29. Организация удаленного доступа к распределенным базам данных
30. Опыт использования ADO для доступа к базам данных форматов MS Access, xBase и Paradox
31. Ответы на теоретические вопросы по предмету База данных
32. Инфологическая модель баз данных "Сущность-связь"
33. Пример проектирования базы данных "Библиотека"
34. Основы использования WWW - технологий для доступа к существующим базам данных
35. Основы работы с базами данных Delphi
36. Параллельные машины баз данных
37. Инфологическое моделирование базы данных
41. Защита баз данных. Access 2000
42. Курсовая работа по базе данных СУБД
43. Организация Web-доступа к базам данных с использованием SQL-запросов
45. Проектирование базы данных Библиотека
46. Разработка баз данных в Delphi
47. Реляционные базы данных-правила формирования отношений
48. Создание базы данных в интегральном пакете Works
49. Создание учебной базы данных Телефонный справочник в Access 97
50. Учет очереди на получение квартир по организациям (база данных)
51. Создание базы данных в Access и работа с ней
52. Реляционные модели базы данных
53. Система баз данных MS Access
57. Использование модели briefcase при разработке приложений баз данных
58. Базы данных SQL
59. Аспектно-ориентированные методы в управлении информационными потоками баз данных ДП АСУТП
60. Использование пакета Cold Fusion для MS Windows при построении WWW - интерфейсов к базам данных
61. Разработка базы данных «Магазин бытовой техники “Электрон” средствами СУБД MS Access»
62. Діюча практика обліку операцій з векселями
64. Вдосконалення організації бухгалтерського обліку на ТОВ "СКОП"
65. Вибір форми ведення бухгалтерського обліку
66. Вибуття запасів: оцінка та відображення в обліку
67. Етапи організації бухгалтерського обліку
68. Іноземний досвід ведення бухгалтерського обліку
69. Методи обліку витрат на виробництво і калькулювання собівартості в будівництві
73. Організація бухгалтерського обліку в Пакистані та Фінляндії
74. Організація бухгалтерського обліку на підприємстві
75. Організація бухгалтерського обліку на підприємстві
76. Організація бухгалтерського обліку на підприємстві ТзОВ "Авто-Лайф"
77. Організація бухгалтерського обліку у Франції та Китаї
79. Організація обліку в Франції та Люксембурзі
80. Організація обліку власного капіталу підприємства України
81. Організація обліку запасів на підприємствах
82. Організація обліку на підприємствах малого бізнесу
83. Організація обліку на підприємстві ТОВ "ВІРКО"
84. Організація обліку реалізації сільськогосподарської продукції, робіт і послуг
85. Організація обліку та контролю в Біловодському районному центрі зайнятості
89. Організація управлінського обліку на підприємстві
90. Основи бухгалтерського обліку
91. Поняття документу та діловодства в бухгалтерському обліку
92. Предмет, об’єкти і метод бухгалтерського обліку
93. Рахунки бухгалтерського обліку
94. Роль обліку в управлінні підприємством
95. Системи обліку в бюджетних організаціях (меморіально-ордерна система)
96. Стан та шляхи удосконалення обліку адміністративних витрат
97. Сутність організації бухгалтерського обліку в Україні