Решение

Этап 1. Математическая часть

Алгоритм записан на естественном языке

Const n = 4, m = 5 i = 1 Если i <= n, то шаг 4, иначе шаг 11 j = 1 Если j <= n, то шаг 6, иначе шаг 9 Ввести X(i,j) j = j + 1 шаг 5 i = i + 1 шаг 3 k = 0

i = 1 Если i <= n, то шаг 13, иначе шаг 20 j = 1 Если j <= n, то шаг 15, иначе шаг 18 ЕслиX(i, j) <> 0, то k = k + 1? иначе шаг 17 j = j + 1 шаг 15 i = i + 1 шаг 13 Вывести k

Этап 2. Ввод данных в таблицу Excel

В ячейки А1:E4 вводятся элементы массива X(i, j).

Этап 3. Определение переменных

Константы n = 4, m = 5 размер массива X(4, 5)

Вводится: массив X(n, m) (Single).

Выводятся (результат): k (Количество ненулевых элементов, (Integer)).

Промежуточные переменные: i – счетчик цикла с параметром (Integer), j – счетчик цикла с параметром (Integer), Temp – вспомогательная переменная для перестановки элементов при сортировке.

Этап 4. Написание процедуры.

На рабочем листе Лист1 при помощи Элементов управления создать элемент Кнопка (СommandBatton1).

Переименовать Кнопку в режиме конструктора. Вызвать контекстное меню ПКМ  Свойства  закладку Alhpabetic  Caption  в Поле ввода ввести новое название кнопки Количество ненулевых элементов.

Написать Процедуру-Событие для Кнопки «Количество ненулевых элементов»:

Private Sub CommandButton1_Click()

'Деклорация констант

Const n As Integer = 4

Const m As Integer = 5

'Деклорация переменных

Dim X(n, m) As Single

Dim i As Integer

Dim j As Integer

Dim k As Integer

'Ввод массива X(n,m) из диапазона А1:Е4

For i = 1 To n

For j = 1 To m

X(i, j) = Cells(i, j).Value

Next j

Next i

'Подсчет количество ненулевых элементов

' в массиве X(n,m)

k = 0

For i = 1 To n

For j = 1 To m

If X(i, j) <> 0 Then

k = k + 1

End If

Next j

Next i

'Вывод результата

Cells(6, 1).Value = "Количество ненулевых элементов равно " & k

End Sub

Этап 5. Выполнение.

Перейти на рабочий лист ViewMicrosoft Excel или Alt+F11). Выйти из режима Конструктора. В ячейках А1:E4 вводится массив X(4, 5). Нажать Кнопку «Количество ненулевых элементов».

В ячейке А1 появится результат – сообщение «Количество ненулевых элементов равно 11 (рис.8).

Этап 6. Переименование листа. Навести курсор на закладку Лист1, правой клавишей мыши (ПКМ) вызвать контекстное меню, выбрать пункт Переименовать, удалить старое название листа и с клавиатуры набрать новое Задача_15, нажать Enter.

Упражнения для самостоятельной работы к лабораторной работе № 4

1. В массиве М(7, 7) найти max и min элемент, вывести номера этих элементов.

2. Вычислить сколько раз введенное с клавиатуры число встречается в массиве X(n, m ). Вывести соответствующее сообщение.

3. Написать программу, которая проверяет, есть ли в массиве P(n, m) элементы с одинаковыми значениями и сколько раз они встречаются.

4. Преобразование элементов матриц. В матрице Z(m,m) каждый элемент разделить на диагональный, стоящий в том же столбце.

5. Преобразование элементов матриц. Найти среднее арифметическое элементов каждой строки матрицы Q(l,m) и вычислить его из элементов этой строки.