Используя процедуры MKL вычислите скалярное произведение двух векторов и . Данные находятся в файле data6.txt. В ответ введите целую часть результата.

Правильный ответ:

• # Объявлен следующий модуль module matrix integer :: A=100, B=200, C=300 integer, private :: S=9 integer, protected :: P=8 private, integer :: Q=100, W=200 integer :: N=500 end module matrix Какие из перечисленных модульных переменных могут быть использованы в качестве границ размещаемых массивов в вызывающей головной программе?
• # Даны два типа type person character(64) name character(64) lastname end type person type robot character(32) mech integer(8) period end type robot Создайте тип office, который наследует тип personсодержит поле типа robot, в виде одномерного динамического массивасодержит поле типа character(64), являющееся ссылкой В ответ введите размер в байтах переменной типа office
• # Даны два типа описанных в модуле gas_dynamics module gas_dynamics type grid real(8), allocatable :: dat(:,:,:) real(8), allocatable :: xcoord(:) real(8), allocatable :: ycoord(:) real(8), allocatable :: zcoord(:) end type grid type particle real(8), allocatable, private :: ux(:,:,:) real(8), allocatable, private :: uy(:,:,:) real(8), allocatable, private :: uz(:,:,:) real(8), allocatable, private :: tm(:,:,:) end type particle ... end module gas_dynamics Создайте тип plot, который: наследует поля типа gridсодержит поле типа particle, в виде одномерного динамического массивасодержит два поля типа complex(8), в виде одномерных динамических массивов В ответ введите размер в байтах переменной типа plot
• # Используя процедуры MKL, вычислите Евклидову норму вектора . Данные находятся в файле data12.txt. В ответ введите целую часть результата.
• # В каких разделах "Свойства проекта" можно выполнить настройку оптимизации ?