Выполение задания

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

Условие задания: Найти номер района с максимальным количеством пожаров вне зданий.

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

Промежуточные данные: М – максимальное количество пожаров все зданий.

Выходные данные: N– номер района с максимальным количеством пожаров вне зданий.

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

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

Диалоговая форма компьютерной программы

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

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

Dim A(5;3) As Integer

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

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

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

Static i

i=i + 1

If i<=5 Then

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

А(i,1) = Val(Вне здания.Text)

А(i,2) = Val(В здании.Text)

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

If i>=5 Then

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

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

End If

End If

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

Вне_здания.Text = ""'

В_здании.Text = ""

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

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

Вне_здания.SetFocus

End Sub

'Процедура поиска максимального элемента

Private sub Результат_Click()

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

Dim M As Integer

Dim NAs Integer

'Определение максимального элемента

M = A(1, 3)

For i = 1 To 5

If A(i, 1) >= M Then

M = A(i, 1)

'Определение строки максимального элемента

N = i

End If

Next

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

Номер_района.Text = Str(N)

End Sub

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

Private Sub Выход_Click()

End

End Sub

Дата добавления: 2015-07-16