![]() |
|
сделать стартовой | добавить в избранное |
![]() |
База даних по приватних підприємствах регіону |
Міністерство внутрішніх справ України Харківський національний університет внутрішніх справ Навчально-науковий інститут менеджменту, соціальних та інформаційних технологій Кафедра інформаційних систем і технологій в діяльності ОВС Курсова робота з дисципліни «Основи програмування та алгоритмічні мови» на тему: «База даних по приватних підприємствах регіону» Харків Зміст Вступ 1. Основна частина 1.1 Неформальна постановка задачі 1.2 Формальна постановка задачі 1.3 Структура зберігаючих даних: 2. Алгоритми 2.1 Алгоритм основної програми 2.1 Алгоритм процедури Is 3. Вихідний код програми Висновок Список використаної літератури Вступ Все більше і більше в регіонах реєструється приватних підприємців. Таким чином для обробки інформації яка надана по приватним підприємствам заносять до бази даних. Для полегшення цього процесу потрібно створити спеціалізовану програму, яка буду з простим, доступним інтерфейсом, але в той же час вона виконуватиме всі покладені на неї сподівання. Інформатизація суспільства значним чином полегшила обробку інформації. Я вибрав мову програмування Турбо Паскаль, з метою закріплення своїх навиків з програмування. 1. Основна частина 1.1 Неформальна постановка задачі Розробити програму-«приватні підприємства регіону», для реєстрації та автоматизованої обробки відомостей про підприємців в певному регіоні. Занесення до бази даних (спеціальний файл) всіх відомостей про приватне підприємство: ФІО власника підприємства; Назва приватного підприємства; Вид діяльності підприємства; Адреса реєстрації; Номер телефону. Можливість видалення відомостей Організація пошуку за критеріями: ФІО власника; Назва приватного підприємства; Вид діяльності підприємства; Адреса реєстрації; Номер телефону. Можливість перегляду всіх існуючих відомостей; Зручний інтерфейс для користувача; В складних випадках створення підказок для користувача; Швидкість та простота роботи в даній програмі; 1.2 Формальна постановка задачі Вихідні дані: Нехай П={П1,П2, ,Пi}, де ( i=1, 2, ., ) – множина підприємств. Рi є Пi – ПІБ власника приватного підприємства Fi є Пi – адреса підприємства Di є Пi – рід діяльності підприємства Hi є Пi – назва підприємства L i є Пi – номер телефону Таким чином отримуємо нову сукупність Пij – яка більш розширена в плані інформації про підприємства Результат: Множина Zj, яка формуються з вхідних даних а саме множини Пij. Таким чином множина Zj є підмножиною Пij 1.3 Структура зберігаючих даних yr – запис, який приймає на себе відомості та потім зберігається в файл. az – поле куди заноситься назва підприємства Vd – поле куди заноситься вид діяльності підприємства Reg – поле куди заноситься інформація про адресу підприємства Vl – ПІБ власника приватного підприємства – поле куди заноситься телефон підприємства F – типізований файл Kl – процедура яка малює рамочку Rrr – процедура яка вимальовує меню без управляючої частини I o – процедура для збереження відомостей, які ввів користувач, до файлу. Is – процедура яка забезпечує виконання пошуку Ud – процедура для видалення 2. Алгоритми 2.1 Алгоритм основної програми 2.1 Алгоритм процедури Is 3.
Вихідний код програми uses cr ,dos; ype yr=record az,vd,reg,vl, :s ri g; e d; var f:file of yr; pr: yr; {.} procedure kl (x1,y1,x2,y2,a,b:by e); var i:i eger; begi ex backgrou d(a); ex color(b); 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:char;var b:by e); begi b:=0; a:=readkey; if a=#0 he b:=ord(readkey); e d; {------------------} procedure rrr(s 1,s 2,s 3,s 4:s ri g); begi wi dow(1,1,40,25); ex backgrou d(7); clrscr; kl(5,2,35,5,7,0); go oxy(3,1); wri e (#181,s 1,#198); kl(5,8,35,11,7,0); go oxy(3,1); wri e (#181,s 2,#198); kl(5,14,35,17,7,0); go oxy(3,1); wri e (#181,s 3,#198); kl(5,20,35,23,7,0); go oxy(3,1); wri e (#181,s 4,#198); e d; {------------------} procedure prig(x,y,u, :by e); var i:by e; begi ex backgrou d(0); ex color(u); go oxy(x,y); for i:=1 o do wri e(#176); e d; procedure pamka (x1,y1,x2,y2:i eger); var i,c:i eger; begi go oxy(x1,y1); wri e(#201); for i:=1 o x2-x1-1 do begi go oxy(x1 i,y1); wri e(#205); e d; go oxy(x2,y1); wri e(#187); for i:=1 o y2-y1-1 do begi go oxy(x2,y1 i); wri e(#186); e d; go oxy(x2,y2); wri e(#188); for i:=1 o x2-x1-1 do begi go oxy(x2-i,y2); wri e(#205); e d; go oxy(x1,y2); wri e(#200); for i:=1 o y2-y1-1 do begi go oxy(x1,y1 i); wri e(#186); e d; e d; {.} procedure i o; var i, :i eger; begi wi dow(1,1,40,25); ex backgrou d(0); clrscr; ex color(3); pamka(1,19,39,25); pamka(1,1,39,25); go oxy(1,19); wri e(#204); go oxy(39,19); wri e(#185); wi dow(2,20,38,24); wri el (' ЯЯЯЯЯЬ ЬЯЯЬ ЫЯЯЯЫ Я ЬЬЬ ' ); wri el (' ЬЯ Ы Ы ЫЬЬЬЫ Ы ЯЬ Я '); wri el (' ЬЯ ЫЬЬЬ Ы Ы Ы ЯЬ '); wri el (' ЯЬЬЬЬЬ Ы Ы Ы Ы ЯЬЬЬЯ '); wi dow(5,2,37,17); ex color(7); wri e('vvedi koliches vo predprea iy- ');readl ( ); assig (f,'d: bas.bas'); rewri e(f); clrscr; for i:=1 o do begi seek(f,filesize(f)); clrscr; wi h pr do begi wri e('vvedi asva ie predpreya ia-');readl ( az); wri e('vvedi vid deya el os i predpreya ia');readl (vd); wri e('vvedi regio v ko orom zareg.-');readl (reg); wri e('vvedi vladelcha predpriya ia-');readl (vl); wri e('vvedi omer elefo a predpreya ia');readl ( ); e d; wri e(f,pr) ; e d; close(f); e d; {.} procedure is; var s:s ri g;i:i eger; begi wi dow(1,1,80,25); ex backgrou d(0); clrscr; if FSearch('bas.bas','d: ')='' he begi ex backgrou d(0); clrscr; ex color(132); wri el ('FAIL E AYDE '); readl ; e d else begi ex color(7); pamka(1,19,39,25); pamka(1,1,39,25); go oxy(1,19); wri e(#204); go oxy(39,19); wri e(#185); wi dow(2,20,38,24); wri el (' ЫЯЯЯЫ ЫЯЯЯЯЫ Я ЬЬЬ Ы ЬЯ '); wri el (' ЫЬЬЬЫ Ы Ы Ы ЯЬ Я ЫЬЯ '); wri el (' Ы Ы Ы Ы ЯЬ ЫЯЬ '); wri el (' Ы ЫЬЬЬЬЫ Ы ЯЬЬЬЯ Ы ЯЬ '); wi dow(5,2,37,17); ex color(7); wri e('vvedi slovo dla poiska-');readl (s); assig (f,'d: bas.bas'); rese (f); for i:=0 o filesize(f)-1 do begi seek(f,i); read(f,pr); wi h pr do begi if (s= az) or (s=vd) or (s= ) or (s=reg) or (s=vl) he begi wri el ('zapis',i 1); wri el (' asva ie predpreya ia-', az); wri el (' vid deya el os i predpreya ia-',vd); wri el (' regio v ko orom zareg.-
',reg); wri el (' vladelcha predpriya ia-',vl); wri el (' omer elefo a predpreya ia-', ); e d else wri el ('po e omu zaprocu ichego e ayde o'); e d; e d; readl ; e d; e d; {.} procedure ud; begi wi dow(1,1,40,25); clrscr; if FSearch('bas.bas','d: ')='' he begi ex backgrou d(0); clrscr; ex color(132); wri el ('FAIL E AYDE '); readl ; e d else begi pamka(1,1,39,25); wi dow(2,2,38,24); wri el (' agmi a &quo ;e er&quo ; dla udale ia'); if readkey=#13 he begi assig (f,'d: bas.bas'); erase(f); wri el ('fail udale '); e d; e d; readl ; e d; {:::::::::::::::::::::::::::::::::::::::::::::} var s 1,s 2,s 3,s 4:s ri g; e:char;d,p:by e; begi ex mode(c40); {i o; {is; ud; readl ;} repea wi dow(1,1,40,25); ex backgrou d(7); clrscr; s 1:='Zapis'; s 2:=' ay i'; s 3:='S ere '; s 4:='Vixod'; rrr(s 1,s 2,s 3,s 4); wi dow(1,1,40,25); prig(6,3,14,29); p:=1; repea ewreadkey(e,d); if d=80 he p:=p 1; if d=72 he p:=p-1; if p=5 he p:=1; if p=0 he p:=4; case p of 1: begi rrr(s 1,s 2,s 3,s 4); wi dow (1,1,40,25); prig(6,3,14,29); e d; 2: begi rrr(s 1,s 2,s 3,s 4); wi dow (1,1,40,25); prig(6,9,14,29); e d; 3: begi rrr(s 1,s 2,s 3,s 4); wi dow (1,1,40,25); prig(6,15,14,29); e d; 4: begi rrr(s 1,s 2,s 3,s 4); wi dow (1,1,40,25); prig(6,21,14,29); e d; e d; u il e=#13; case p of 1:i o; 2:is; 3:ud; e d; u il p=4;e d. Висновок В даній курсовій роботі були поставлені такі задачі: поглибити свої знання в алгоритмічних мовах, та вдосконалити програмування на мові Паскаль. Та створити корисний продукт. Була створена програма, якою я виконую обидві задачі які ставилися на початку. В даній роботі було створено досить велику кількість процедур, які можливо використати і в інших програмних проектах, були використані різні типи даних, а також були застосовані процедури та функції які були створені раніше, ці процедури та функції я брав з модулів CR та DOS Список використаної літератури Струков В.М. Основы алгоритмизации и программирования. Часть 2. Учебное пособие. – Харьков: Изд. Нац. ун-та внутр.дел,2003. – 188 с. Сердюченко В.Я. Розробка алгоритмів та програмування на мові urbo Pascal. – X.,1995. Немнюгин С.А. urbo Pascal. – СПб.: Питер, 2002. – 496 с.: ил.
Общие представ]ления, похоже, допустимы, но только если они совпадают с планами наших хозяев относительно природы и нас самих. Отдельного внимания заслужи]вает вопрос о «нематериальности». Это и название выставки, и термин Лиотара, который он связывает с размыванием личности, разрушением устойчивых барьеров между собственным «я» и миром, который возникает, когда мы входим в лабиринт технологиче]ских и социальных систем. Стоит ли говорить, что Лиотар одобряет подобное положение вещей, при]ветствуя, к примеру, «плюрализирующий» потенциал новых коммуникационных технологий тех, кото]рые десенсуализируют жизнь, нивелируют человече]ский опыт и истребляют мир природы. «Все народы имеют право на науку», пишет Лиотар, как будто он понимает, хоть в малой части, что такое наука. Он призывает к «свободному доступу к банкам памяти и базам данных». У Лиотара мы обнаруживаем и совершенно жуткое представление о высвобождении чело]века: «Базы данных это энциклопедия завтрашнего дня; они являются "природной средой" для мужчин и женщин постмодерна»
1. Рівень рентабельності підприємств регіону
3. Форматы баз данных в автоматизированных библиографических системах
4. Различные классы баз данных по предметным областям использования
5. База данных для учета оплаты за междугородние разговоры
9. Разработка базы данных, отражающей учет успеваемости студентов
10. Базы данных Microsoft Access
11. Разработка базы данных "Культурный досуг"
12. Системы управления базами данных
13. Алгоритм создания базы данных складского учета
14. Разработка базы данных для объекта автоматизации: гомеопатическая аптека
15. Отчёт по созданию курсовой работы «База данных ACCESS»
16. Инструкция по эксплуатации базы данных магазина «Телевизоры» средствами Access 2000
17. Системы обработки информации - язык баз данных SQL со средствами поддержания целостности
20. База данных периодического издания
21. Реалізація функцій менеджменту на підприємствах залізничного транспорту
25. Арабо-мусульманський культурний регіон
26. Организация удаленного доступа к распределенным базам данных
27. Опыт использования ADO для доступа к базам данных форматов MS Access, xBase и Paradox
28. Ответы на теоретические вопросы по предмету База данных
29. Инфологическая модель баз данных "Сущность-связь"
30. Пример проектирования базы данных "Библиотека"
31. Основы использования WWW - технологий для доступа к существующим базам данных
32. Основы работы с базами данных Delphi
33. Параллельные машины баз данных
34. Инфологическое моделирование базы данных
36. Web-серверы, базы данных в Интернет, Поиск информации в Интернет, Основные системы и средства
37. База данных для информационной системы - Таксопарк
42. Проектирование базы данных Библиотека
43. Разработка баз данных в Delphi
44. Реляционные базы данных-правила формирования отношений
45. Создание базы данных в интегральном пакете Works
46. Создание учебной базы данных Телефонный справочник в Access 97
47. Учет очереди на получение квартир по организациям (база данных)
48. Создание базы данных в Access и работа с ней
49. Реляционные модели базы данных
50. Система баз данных MS Access
52. Создание файла и таблиц базы данных мастером и по заданной логической модели
53. Современные системы управления базами данных
57. Использование пакета Cold Fusion для MS Windows при построении WWW - интерфейсов к базам данных
58. Разработка базы данных «Магазин бытовой техники “Электрон” средствами СУБД MS Access»
60. Оцінка обстановки на підприємствах легкої промисловості у надзвичайних ситуаціях
61. Організація виробництва в підприємствах агропромислового комплексу
62. Сільськогосподарські регіони України
63. Визначення собівартості реалізованих товарів на підприємствах роздрібної торгівлі
65. Облік та аналіз виробничих запасів на сільскогосподарських підприємствах
66. Організація обліку запасів на підприємствах
68. Формування та використання природоресурсного та трудового потенціалу Луганського регіону
69. Міжгалузеві комплекси та виробнича інфраструктура регіонів
73. База даних "Теорія та практика прикладного програмування"
74. База даних лікарських препаратів
75. База даних студії веб-дизайну
76. База данный "Хозяйственный учет футбольного клуба"
77. База данных "Автоматизация учета больных в студенческой больнице"
79. База данных "Международные переговоры"
82. База данных "фруктовый сад"
84. База данных аттестационных ведомостей
89. База данных по учёту видеокассет
90. База данных приёмной комиссии
92. Бази даних в Excel, Access з викликами на VBA
93. Базы данных
94. Базы данных
95. Базы данных и информационные технологии
96. Базы данных и управление ими
97. Восстановление базы данных