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

↑

▷ Содержание

⇐ ПредыдущаяСтр 2 из 2

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

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

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

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

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

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

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

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

Входные данные: А(5;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

Познавательные статьи:



Психологические особенности спортивного соревнования

Приготовление дезинфицирующих растворов различной концентрации

Занятость населения и рынок труда

Социальный статус семьи и её типология