Пример 10. N=inputbox(“введите количество столбцов матрицы”)

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

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

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

Выходные данные: р – произведение элементов матрицы, имеющих чётные значения индексов строк, вещественное число.

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

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

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

Option Base 1

Private Sub Command1_Click()

Dim i As Integer, j As Integer, m As Integer, n As Integer,

Dim p As Single, a() As Single

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

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

Redim a(m,n)

For i=1 To m

For j=1 To n

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

Next

Next

p=1

For i=2 To m Step 2

For j=1 To n

р=р*a(i,j)

Next

Next

Print “ Произведение элементов матрицы с четными индексами _ строк =” & р

Print “Для матрицы”

For i=1 To m

Print

For j=1 To n

Print Format (a(i,j), “0.00”);

Next

Next

End Sub

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