Пример 4.8.2-1. Написать процедуру, которая определяет количество положительных элементов целочисленной матрицы a(,)

Function Pr821(ByRef a(,)As Integer) As Integer Dim i, j, kol As Integer = 0 For i = 1 To a.GetLength(0) – 1 For j = 1 To a.GetLength(1) – 1 If a (i,j) > = 0 Then kol = kol + 1 Next j Next i Return kol END Function

 

Рис. 4.8.2-1. Программный код процедуры Pr821()

Примера 4.8.2-1

Пример 4.8.2-2. Написать процедуру, которая вычисляет сумму значений элементов матрицы b(,) для элементов b(i,j) > 0.

 

Function Pr822(ByRef b(,) As Single) As Single Dim i, j As Integer, sum As Single sum = 0 For i = 1 To b.GetLength(0) – 1 For j = 1 To b.GetLength(1) – 1 If b(i,j) > 0 Then sum = sum + b(i,j) Next j Next i Return sum End Function

 

Рис. 4.8.2-2. Программный код процедуры Pr822()

Примера 4.8.2-2

Пример 4.8.2-3. Написать процедуру, которая вычисляет произведение значений элементов матрицы для элементов x(i,j) < 0.

Function Pr823(ByRef x(,) As Single) As Single Dim i, j As Integer Dim proizv As Single proizv = 1 For i = 1 To x.GetLength(0) – 1 For j = 1 To x.GetLength(1) – 1 If a(i, j) < 0 Then proizv = proizv * a(i, j) Next Next End Function

 

Рис. 4.8.2-3. Программный код процедуры Pr823()

Примера 4.8.2-3

 

Пример 4.8.2-4. Написать процедуру, которая определяет максимальный элемент среди элементов, лежащих ниже главной диагонали массива.

В переменной xmax в цикле фиксируется мак­симальный элемент массива, в переменной imax, jmax – номер строки и номер столбца.

Sub Pr824(ByRef x(,) As Single, _ ByRef xmax As Single, _ ByRef imax As Integer, _ ByRef jmax As Integer) Dim i, j, m As Integer m = x.GetLength(0) – 1 imax = 1: jmax = 0: xmax = x(1,0) For i = 0 To m For j = 0 To i - 1 If x(i,j) > xmax Then xmax = x(i,j): imax = i: jmax = j End If Next j Next i End Sub

 

Рис. 4.8.2-4. Программный код процедуры Pr824()

Примера 4.8.2-4

 

Пример 4.8.2-5. Написать процедуру, которая определяет минимальный элемент, лежащий выше главной диагонали матрицы.

Алгоритм и программный код процедуры представлен на рис. 4.8.2-5.

 

Sub Pr825(ByRef x(,) As Single, _ ByRef xmin As Single, _ ByRef imin As Integer, ByRef jmin As Integer) Dim i, j, m As Integer m = x.GetLength(0) – 1 imin = 0: jmin = 1: xmin = x(0,1) For i = 0 To m For j = i + 1 To m If x(i,j) < xmin Then xmin = x(i,j): imin = i jmin = j End If Next j Next i End Sub

Рис. 4.8.2-5. Программный код процедуры Pr825()

Примера 4.8.2-5