Пример 7. Dim a() As Integer, min As Integer

Разработать информационную технологию, позволяющую определить местоположение элемента матрицы А произвольной размерности m´n, имеющего минимальное значение. При наличии нескольких одинаковых минимальных элементов выбрать элемент, имеющий наибольшие индексы.

Входные данные: m – целое число;

n – целое число;

A=[a_ij], , – массив целых чисел.

Выходные данные: min – минимальное значение элемента массива, целое число;

k и q значения индексов, определяющих его местоположение, целые числа.

Математическая модель:

min = a₁₁, k = 1, q = 1;

для i = 1.. m, j = 1.. n,

если a_ij ≤ min, то min = a_ij, k = i, q = j

Схема алгоритма:

Код приложения:

Private Sub Command1_Click()

Dim m As Integer, i As Integer, j As Integer, k As Integer, q As Integer

Dim a() As Integer, min As Integer

m=InputBox(“Количество строк матрицы=”)

n =InputBox(“Количество столбцов матрицы=”)

Redim a(1 To m,1 To n)

For i=1 To m

For j=1 To n

a(i,j)=InputBox(“a(“ & i & ”,” & j & ”)”)

Next

Next

Print “Исходный массив”

For i=1 To m

Print

For j=1 To n

Print a(i,j);

Next

Next

min = a(1,1)

k=1: q=1

For i=1 To m

For j=1 To n

If a(i,j)<=min then

min = a(i,j)

k=i: q=j

End If

Next

Next

MsgBox “ Минимум = ” & min & Сhr(10) & ”Индекс i=” & i & _

“Индекс j=” & j

End Sub

3. ВЫЧИСЛИТЕЛЬНЫЙ ПРОЦЕСС НАКОПЛЕНИЕ

Служит для накопления сумм и произведений значений элементов массива, а также подсчета количества элементов в массиве, значения которых удовлетворяют заданному условию.

Различают следующие производные алгоритмические структуры:

- накопление суммы (Cумма);

- накопление произведения (Произведение);

- подсчет количества (Счётчик).

3.1. Производная алгоритмическая структура Cумма

Производная алгоритмическая структура C умма служит для вычисления различных сумм.

Особенности алгоритма.

1. Вводится дополнительная переменная, которая служит для хранения значений сумм элементов массива.

2. Дополнительной переменной присваивается начальное значение, равное 0.

3. Определяется тип вычислительного процесса:

- цикл с параметром, если задана размерность массива или ее можно определить перед началом вычислительного процесса;

- итерационный цикл, если накопление суммы заканчивается при достижении заданной точности.

4. Телом цикла служит структура Следование, представленная итерационной формулой:

<Доп. переменная>=<Доп. переменная > + <Элемент массива>

5. После окончания вычислительного процесса дополнительная переменная хранит искомую сумму.