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

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

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

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

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

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

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

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

 

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

 

 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