Пример выполнения работы

Даны матрицы:

.

Найти максимальный элемент в каждой матрице. Использовать подпрограмму.

Блок– схема процедуры

Блок-схемы основной программы.

Рисунок 17– Результат работы приложения

Событийная процедура кнопки Вычислить.

Dim c(1 To 6, 1 To 6) As Single

Function maxum(k, L, n, m)

max = -10000

For i = 1 To n

For j = 1 To m

c(i, j) = Cells(i + k, j + L)

If c(i, j) > max Then max = c(i, j)

Next j

Next i

maxum = max

End Function.

Private Sub CommandButton1_Click()

Dim c(1 To 6, 1 To 6) As Single

Dim b(1 To 6, 1 To 6) As Single

Dim i, j, k, L, m, n As Byte

For i = 1 To 3

For j = 1 To 4

c(i, j) = Cells(i + 1, j)

Next j

Next i

n = 3

m = 4

k = 1

L = 0

maxa = maxum(k, L, n, m)

TextBox1.Text = Format(maxa, "0.00")

k = 6

L = 2

maxb = maxum(k, L, 5, 2)

TextBox2.Text = Format(maxb, "0.00")

End Sub.

Варианты заданий

Вариант 1.

Упорядочить по убыванию массив, содержащий 20 целых чисел. Найти сумму и произведение элементов массива. Использовать процедуру и функции.

Вариант 2.

Упорядочить по не возрастанию массив, содержащий 10 целых чисел. Найти минимальный и максимальный элемент массива. Использовать процедуру и функции.

Вариант 3.

Упорядочить по не убыванию массив, содержащий 15 вещественных чисел. Найти сумму и произведение положительных элементов массива. Использовать процедуру и функции.

Вариант 4.

Упорядочить по не возрастанию массив, содержащий 25 вещественных чисел. Найти сумму и произведение положительных элементов массива и их количество. Использовать процедуру и функции.

Вариант 5.

Дан массив целых чисел, содержащих 20 элементов. Записать в этот же массив сначала все отрицательные числа и нули, затем все положительные, сохраняя порядок их следования. Подсчитать количество положительных элементов, отрицательных элементов и нулей. Использовать процедуру и функции.

Вариант 6.

Дан массив целых чисел, содержащих 10 элементов. Записать в этот же массив сначала все положительные числа, затем все отрицательные и нули, сохраняя порядок их следования. Подсчитать сумму положительных элементов, отрицательных элементов и нулей. Использовать процедуру и функции.

Вариант 7.

Дан двухмерный массив, содержащий 4 строки и 5 столбцов. Элементами массива являются целые числа. Упорядочить массив по невозрастанию элементов пятого столбца. Подсчитать сумму положительных элементов, отрицательных элементов и нулей. Использовать процедуру и функции.

Вариант 8.

Дан двухмерный массив, содержащий 3 строки и 4 столбца. Элементами массива являются вещественные числа. Упорядочить массив по неубыванию элементов первого столбца. Подсчитать произведение и сумму положительных элементов массива. Использовать процедуру и функции.

Вариант 9.

Дан двухмерный массив, содержащий 4 строки и 4 столбца. Элементами массива являются вещественные числа. Упорядочить массив по невозрастанию элементов первой строки. Подсчитать количество строк, начинающихся с отрицательных элементов. Использовать процедуру и функции.

Вариант 10.

Дан двухмерный массив, содержащий 2 строки и 4 столбца. Элементами массива являются целые числа. Упорядочить массив по не убыванию элементов второй строки. Подсчитать количество четных элементов матрицы и их сумму. Использовать процедуру и функции.

Вариант 11.

Найти сумму элементов главной диагонали матрицы С(5,5) с нечетными индексами. Элементы матрицы задать самостоятельно. Использовать процедуру и функции.

Вариант 12.

Найти наименьший элемент матрицы Х(5,7) и записать нули в ту строку и столбец, где он находится. Отпечатать полученную матрицу. Элементы матрицы задать самостоятельно. Использовать процедуру и функции.

Вариант 13.

Даны три матрицы:

,

.

Поменять местами первую и третью строки в каждой матрице. Использовать процедуру.

Вариант 14.

Даны матрицы:

,

Найти суммы элементов по столбцам. Использовать процедуру.

Вариант 15.

Дана матрица Z(6,6). Найти количество отличных от нуля элементов, расположенных ниже побочной диагонали. Нулевые элементы матрицы заменить на -1. Элементы матрицы Z задать самостоятельно. Использовать процедуру.

Вариант 16.

В исходной матрице найти количество четных элементов, больших 4, и количество нечетных элементов, меньших 67.

.

Использовать процедуру.

Вариант 17.

Сформировать матрицу С(5,5) по правилу:

c_i,j = arctg((i+j)/28)+4.

Hайти сумму отрицательных элементов матрицы, расположенных ниже побочной диагонали. Использовать процедуру.

Вариант 18.

Hайти разность двух произведений: произведения элементов выше главной диагонали и произведения элементов ниже побочной диагонали матрицы В.

Использовать процедуру.

Вариант 19.

Дана матрица А(5,5). Сформировать два массива В и С. В массив В войдут максимальные элементы каждого столбца, а в массив С – максимальные элементы каждой строки матрицы.

.

Использовать процедуру.

Вариант 20.

Сформировать матрицу С(5,5) по правилу: c_i,j = arctg((i+j)/28)+4.

Hайти сумму отрицательных элементов матрицы, расположенных ниже побочной диагонали. Использовать процедуру.

Вариант 21.

Hайти все разности между максимальным элементом матрицы А (6,6) и всеми элементами матрицы, расположенными на главной диагонали.

a_i,j = 14*p/i + cos(j). Использовать процедуру.

Вариант 22.

В исходную матрицу А(7,5) добавить новую строку, элементами которой являются количество отрицательных элементов соответствующих столбцов. Элементы матрицы задать самостоятельно. Использовать процедуру.

Вариант 23.

Записать в массив X подряд отрицательные элементы матрицы В(7,5).

Элементы матрицы В формируются по правилу: b_i,j = COS(i+j).

Вывести X и B(7,5). Использовать процедуру.

Вариант 24.

Вычесть из суммы элементов матрицы В(5,5), расположенных ниже главной диагонали, произведение элементов побочной диагонали.

.

Использовать процедуру.

Вариант 25.

В построенной матрице A(7,4) определить количество элементов, для которых выполнено условие: -0,5 < a_ij < 0,5. Элементы матрицы строятся по правилу: a_ij = sin (i + j / 2). Матрицу напечатать. Использовать процедуру.

Вариант 26.

Определить суммы положительных элементов матрицы А для каждой строки, исключая элементы главной диагонали.

.

Использовать процедуру.

Вариант 27.

Подсчитать количество нулевых элементов среди элементов, расположенных выше главной диагонали матрицы В(8,8), которые формируются по правилу:

b_ij = cos – 16, (i, j = 1,…,8).

Использовать процедуру.