Объявлены следующие типы и переменные. type grid integer adr real alfa real beta end type grid type, extends (grid) :: flow integer coord real dist real param end type flow type, extends (flow) :: regime real, allocatable :: ux(:,:,:), uy(:,:,:), uz(:,:,:) real R1, R2, R3 end type regime class(*), pointer :: polym class(grid), pointer :: pol_grd type(flow), target :: flw Какие справедливы прикрепления ссылок ?

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

• # Процедуры, описанные атрибутом private
• # Объявлен модуль и головная программа module matrix public real, private :: A=1.6 real, public :: B=5.8 real, protected :: C=1.0E+10 integer :: X=50 integer :: Y=70 end module matrix PROGRAM prog use matrix, BNEW => B, CNEW => C implicit none integer XP, YP ... Какие из вариантов выражений допустимы в головной программе ?
• # Выберите допустимые объявления модульных переменных для данного варианта программы module mod_A implicit none ! здесь следует объявить модульные переменные public init_solver contains subroutine init_solver(val) real val x=val*1.0E-10 end subroutine init_solver end module mod_A PROGRAM prog use mod_A, Anew => A, Bnew => B implicit none Anew = Anew + 1 write(*,*) Bnew+1 call init_solver(-1.0) Anew=Bnew+1 end
• # Даны два типа описанных в модуле gas_dynamics type base complex(8), allocatable :: points(:) logical, allocatable :: errors(:) integer, private :: size end type base type, extends(base) :: baseX character(32) file character(32) name logical stat end type baseX Создайте тип composite, который: содержит поле типа baseX, в виде динамической переменнойсодержит поле типа integer(2), в виде ссылкисодержит поле типа integer(8) В ответ введите размер в байтах переменной типа composite
• # Используя процедуры MKL вычислите скалярное произведение двух векторов и . Данные находятся в файле data10.txt. В ответ введите целую часть результата.