Объявлены следующие типы и переменные. 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 regime type (flow) flw real, allocatable :: ux(:,:,:), uy(:,:,:), uz(:,:,:) real R1, R2, R3 end type regime class(*), pointer :: polym class(regime), pointer :: pol_reg type(flow), target :: pol_flw Какие справедливы прикрепления ссылок ?

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

• # В следующем фрагменте программы, укажите имена перегруженных процедур и операций. use flow type (grid) GRD type (velocity) VX, VY, VZ ... GRID.Init() call GRD.Add(VX) call GRD.Add(VY,VZ) call GRD.Build(X1=0.0,Y1=0.0,X2=2.0,Y2=1.0) write(1,*) VX + VY, VX - VZ ... call GRD.Draw() ... call VX.VectorField(GRD)
• # Даны два типа 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
• # Даны два типа type grid real(8) x1,y1,x2,y2 integer(8) adr end type grid type point real(8) x real(8) y end type point Создайте тип region, который содержит поля: типа point, в виде одномерного динамического массиватипа real(8), в виде трехмерного динамического массива В ответ введите размер в байтах переменной типа region
• # Даны два типа описанных в модуле hydro module hydro type point real(8) x real(8) y end type point type, extends (point) :: expoint real(16), allocatable :: x1,y1,x2,y2 character(8) code end type expoint ... end module hydro В тип expoint добавляются две модульные процедуры procA и procB. Процедуры не имеют формальных параметров. На сколько изменится размер в байтах переменной типа expoint после добавления процедур ?
• # Даны два типа описанных в модуле 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