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

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

• # Перегрузка процедур объявляется при помощи операторов
• # Описан модуль, который подключен к головной программе module mod_1 integer, private :: A=1,B=1,C=1 integer, protected :: D, E private SetA public F, init contains subroutine SetA(X) integer X A=X+1 end subroutine SetA subroutine init_D_E(x,y) integer x,y D=X*10; E=Y*2 end subroutine init_D_E integer function F F=A+D+E end function F end module mod_1 Какой результат вернет функция F после вызова процедуры init_D_E(2,3) в головной программе ?
• # Какие функции используются в выражении res=sin(2.0)*cos(2.0) module mod_F contains real function sin(x) sin=sqrt(sqrt(sqrt(x))) end function sin real function cos(x) cos=x**2.0**2.0 end function cos end module mod_F PROGRAM prog use mod_F, only : cos implicit none real res res=sin(2.0)*cos(1.0) end
• # Каждая копия программы генерирует массив из случайных чисел. Каждая копия программы должна записать массив целиком в файл C:\datа.txt. Какой оператор следует использовать при записи данных в файл ?
• # Укажите параметр компиляции устанавливающий максимальное число раскруток цикла