Объявлены следующие типы и переменные. type sma real p(100) real mid(100) logical res end type sma type, extends (sma) :: ssma real middle end type ssma type uma type (sma) sm(100) complex p(100) logical ret character bis end type uma class (sma), pointer :: polym type (uma), target :: um1 type (ssma), target :: ssm1 Какие справедливы прикрепления ссылки polym?

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

• # Переменные, объявленные как protected
• # Описан модуль, который подключен к головной программе module mod_1 integer, protected :: A=1,B=2,C=3 integer, public :: D=7, E=8 public F, init contains subroutine init(x,y) integer x,y A=x+y end subroutine init integer function F F=A+D+E-C end function F end module mod_1 Какой результат вернет функция F после вызова процедуры callinit(1,2) и выполнения операции присваивания E=A+B в головной программе ?
• # Какие функции используются в выражении 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 : sin, cos implicit none real res res=sin(2.0)*cos(1.0) end
• # Перечислите возможности Intel Parallel Studio, Intel Visual Fortran для создания параллельных программ.
• # Укажите параметр компиляции, который разрешает подстановку функций внутри текущего исходного файла на усмотрение компилятора