Подключение модуля к внешней процедуре происходит посредством оператора

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

• # Выберите допустимые объявления модульных переменных для данного варианта программы module mod_A implicit none ! здесь следует объявить модульные переменные public init_solver contains subroutine init_solver(val) real val x=val*sin(val)+A end subroutine init_solver end module mod_A PROGRAM prog use mod_A, Anew => A, Bnew => B implicit none Bnew=1+Anew write(*,*) Bnew+Anew+X call init_solver(-1.0) end
• # Какие функции используются в выражении 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
• # В головной программе используется модуль geom, который содержит только тип circle и модульную процедуру IncRadius. Головная программа использует модуль geom. В головной программе объявлена переменная type (circle) CR. Укажите верное описание типа circle и процедуры IncRadius, чтобы при вызове call CR.IncRadius(10.0) из головной программы, поле R переменной CR было изменено.
• # Используя процедуры MKL вычислите выражение . Данные находятся в файле data3.txt. В ответ введите целую часть суммы модулей мнимой части полученного вектора.
• # Используя процедуры MKL вычислите скалярное произведение двух векторов и . Данные находятся в файле data10.txt. В ответ введите целую часть результата.