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

Приложение

МИНИСТЕРСТВО РОССИЙСКОЙ ФЕДЕРАЦИИ

ПО ДЕЛАМ ГРАЖДАНСКОЙ ОБОРОНЫ, ЧРЕЗВЫЧАЙНЫМ СИТУАЦИЯМ И ЛИКВИДАЦИИ ПОСЛЕДСТВИЙ СТИХИЙНЫХ БЕДСТВИЙ

 

АКАДЕМИЯ ГОСУДАРСТВЕННОЙ ПРОТИВОПОЖАРНОЙ СЛУЖБЫ

 

Кафедра информационных технологий

 

 

Курсовая работа по теме

 

«Найти номер района с максимальным количеством пожаров в складских зданиях»

 

 

Номер варианта задания

Выполнил курсант учебной группы №7519

                       рядовой гражданской защиты Жарыспай О.С.

Проверил

Москва 20__ г.

 

Введение

Подготовка высококвалифицированных специалистов в области пожарной безопасности, обладающих системными знаниями, широким кругозором, навыками практической работы с современной вычислительной техникой и программным обеспечением, предполагает приобретение теоретических знаний и практических навыков по алгоритмизации и программированию, разработке и управлению базами данными. Курсовая работа охватывает два основных раздела курса информатики, выполняется в компьютерном классе по мере изучения курса в часы, запланированные в рабочей программе. Основные задачи курсовой работы – закрепление теоретических и практических знаний по основным разделам информатики, развитие навыков самостоятельной работы, а также эффективное использование программного обеспечения и вычислительной техники.        Курсовая работа состоит из 2 частей и выполняется по следующим темам:

- алгоритмизация и программирование.                                                            

- технологии разработки и управления базами данных.

 

 

                                                                               

 

                                                                      

 

Разработка компьютерной программы решения задачи

Цель данного задания – разработка компьютерной программы с использованием объектно-ориентированного языка программирования. В соответствии с номером варианта и задачи выбирается условие задания.

Работа выполняется в следующей последовательности:

- разработка алгоритма решения задачи в виде блок-схемы;

- проектирование диалоговой формы программы с установкой значений свойств элементов управления;

- запись программного кода с комментариями.

Постановка задачи

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

 

Номер района	Количество пожаров
	Жилой сектор	Складские здания	Транспорт

 

 1.2. Вариант задания

 

№ вар	№ задачи	Условие задания
6	1	Найти номер района с максимальным количеством пожаров в складских зданиях

Входные данные: А(5;3) – матрица, содержащая количество пожаров.

Выходные данные: М – минимальный бал первого района по списку.

 

 

Блок-схема алгоритма решения задачи:

Свойства элементов управления:

Элемент управления	Свойство Имя	Свойство Caption
Форма	Form1	Номер_района_с_максимальным_количеством пожаров_в_складских_зданиях
Рамка	Frame1	Количество пожаров
Надпись1	Label1	Жилой_сектор
Надпись2	Label2	Складские_здания
Надпись3	Label3	Транспот
Надпись4	Label4	Район_с_максимальным_количеством_пожаров_в_складских_зданиях
Текстовое поле1	Жилой_сектор	-
Текстовое поле2	Складские_здания	-
Текстовое поле3	Транспот	-
Текстовое поле4	Район_с_максимальным_количеством_пожаров_в_складских_зданиях	-
Кнопка1	Ввод_данных	Ввод данных
Кнопка2	Результат	Результат
Кнопка3	Выход	Выход

 

Программный код

'Объявление матрицы размером 5х3

Dim A(5, 3) As Integer

'Процедура построчного ввода элементов матрицы

Private Sub Ввод_данных_Click()

'Объявление счетчика элементов матрицы

Static i

i = i + 1

If i <= 5 Then

'Запись данных из текстовых полей в матрицу

A(i, 1) = Va(Жилой_сектор.Text)

A(i, 2) = Val(Складские_здания.Text)

A(i, 3) = Val(Транспорт.Text)

If i >= 5 Then

'Деактивация кнопки ввода элементов массива

Ввод_данных.Enabled = False

End If

End If

'Очистка текстовых полей

Жилой_сектор.Text = ""

Складские_здания.Text = ""

Транспорт.Text = ""

'Установка курсора в текстовое поле

Жилой_сектор.SetFocus

End Sub

'Процедура поиска минимального балла первого слушателя по списку

PrivateSub Результат_Click()

'Объявление переменной M

Dim M AsInteger

'Подсчет района с максимальным количеством пожара в складских зданях

M = A(1, 1)

For j = 1 To 3

If A(1, j) >= M Then

M = A(1, j)

End If

Next j

'Вывод результата решения задания

Района_с_максимальным_количеством_пожара_в_складских_зданях. Text = Str(M)

EndSub

'Процедура выхода из программы

Private Sub Выход_Click()

End

End Sub

 

Данные о пожаре

Ликвидация пожаров

 

 

Виды объектов

 

 

Заключени е

В данной курсовой работе мы научились разрабатывать компьютерную программу с использованием объектно-ориентированного языка программирования в программе Microsoft Visual Basic (разработка алгоритма решения задачи в виде блок схемы, проектирование диалоговой формы программы с установкой значений элементов управления, запись программного кода с комментариями).

Изучили разработку реляционной базы данных с использованием системы управления базами данных MS Access (разработка структуры таблиц базы данных, ввод произвольных данных, разработка элементов базы данных, таких как запросы, формы, отчеты).

Список литературы

1. Хабибулин Р.Ш., Стависский А.В., Рыженко А.А., Любавский А.Ю. З-15 Задания для выполнения курсовой работы по дисциплине "Информационные технологии". Методическое пособие. - М.: Академия ГПС МЧС России, 2014. - 25 с.

Приложение

МИНИСТЕРСТВО РОССИЙСКОЙ ФЕДЕРАЦИИ

ПО ДЕЛАМ ГРАЖДАНСКОЙ ОБОРОНЫ, ЧРЕЗВЫЧАЙНЫМ СИТУАЦИЯМ И ЛИКВИДАЦИИ ПОСЛЕДСТВИЙ СТИХИЙНЫХ БЕДСТВИЙ

 

АКАДЕМИЯ ГОСУДАРСТВЕННОЙ ПРОТИВОПОЖАРНОЙ СЛУЖБЫ

 

Кафедра информационных технологий

 

 

Курсовая работа по теме

 

«Найти номер района с максимальным количеством пожаров в складских зданиях»

 

 

Номер варианта задания

Выполнил курсант учебной группы №7519

                       рядовой гражданской защиты Жарыспай О.С.

Проверил

Москва 20__ г.

 

Введение

Подготовка высококвалифицированных специалистов в области пожарной безопасности, обладающих системными знаниями, широким кругозором, навыками практической работы с современной вычислительной техникой и программным обеспечением, предполагает приобретение теоретических знаний и практических навыков по алгоритмизации и программированию, разработке и управлению базами данными. Курсовая работа охватывает два основных раздела курса информатики, выполняется в компьютерном классе по мере изучения курса в часы, запланированные в рабочей программе. Основные задачи курсовой работы – закрепление теоретических и практических знаний по основным разделам информатики, развитие навыков самостоятельной работы, а также эффективное использование программного обеспечения и вычислительной техники.        Курсовая работа состоит из 2 частей и выполняется по следующим темам:

- алгоритмизация и программирование.                                                            

- технологии разработки и управления базами данных.