В приведенном фрагменте программы перечислите имена пользовательских операций.

  use math  type (matrix) MTR, MTR1, MTR2  type (set) S1, S2, S3  ...  call MTR.Create(Mi,Mj)  MTR = MTR1 + MTR2 * (MTR.Inverse())  S2 = S1.CROSS.S3  call MTR1.Transpose()  det = MTR1.determinant  ...  S1 = S2.UNION.S3  write(*,*) S1.value(1:100:2)  ...        

В следующем фрагменте программы, какие имена являются процедурами привязанными к типу по имени ?

  use algebra  type (matrix) MTR, MTR1, MTR2  real det  ...  call MTR.Create(10,10)  call MTR.Random()  call MTR1.Transpose()  det=MTR1.determinant  ...  MTR=MTR1.CONVERT.MTR2  write(*,*) MTR.value(10,2:10,10)  ...        

В следующем фрагменте программы, укажите имена перегруженных процедур и операций.

  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)        

Какие имена являются процедуры привязанными к типу по имени в следующем фрагменте программы ?

  use graph  type(plot) PLT, PLTA, PLTB  ...  call PLT.Create(10,10,200,200)  PLT=.INVERSE.PLT  write(*,*) PLTA.xcenter  write(*,*) PLT.Radius()  call VerifyPlot(PLTB.coords)  write(*,*) finish(PLTA.start())  PLT=PLTA.UNION.PLTB  ...  

В следующем фрагменте программы, какие имена не являются и могут не являться процедурами, привязанными к типу по имени?

  use grids  type (grid_MKE) GR  type (point) pt  call GR.Init()  call GR.PrintInfo()  write(*,*) GR.coordinates(10,20)  write(*,*) GR.next()  write(*,*) GR.values(2,2)  if (.NOT.GR.err) then  ...  pt = GR.points + pt  ...        

Модуль

module mod_1  type region    integer x1,y1,x2,y2  end type region  type blk    logical st(3)    character(5), private :: name  end type blk  type NewType    type (region) reg    type (blk)    bee  end type NewTypeend module mod_1        

используется в головной программе.

Описан массив

type (NewType) matrix(10,10,100)Укажите верные варианты инициализации элемента matrix(1:5:2,:,20)

В головной программе используется модуль flow. Объявлена переменная PT типа point. Какие из процедур в типе point могут изменить приватную часть переменной PT ?

module flow  type point    integer x    integer y    real, private :: cp  contains    procedure, nopass :: proc1    procedure proc2    procedure, pass :: proc3    procedure, nopass :: proc4    procedure proc5    procedure show  end type point  contains    subroutine proc1(pt,val)      type(point) pt      real val      pt.cp = val    end subroutine proc1    subroutine proc2(pt)      class(point) pt      pt.cp=real(pt.x+pt.y)    end subroutine proc2    subroutine proc3(pt)      class(point) pt      integer tmp      tmp=pt.x; pt.x=pt.y; pt.y=tmp    end subroutine proc3    subroutine proc4(pt)      type(point) pt      if (pt.cp<=0) write(*,*) "ERROR"    end subroutine proc4    subroutine proc5(pt,M,N,S)      class(point) pt      integer M,N      real, optional :: S      pt.x=pt.x+N      pt.y=pt.y+M      if (present(S)) call random_number(pt.cp)    end subroutine proc5end module flow        

Модуль

module mod_1  type region    integer x(4)    real R  end type region  type blk    logical st(3)    character(5), public :: name(2)  end type blk  type NewType    type (region) reg(20)    type (blk)    bee(30)  end type NewTypeend module mod_1        

используется в головной программе.

Объявлена переменная

type(NewType) NTУкажите верные варианты доступа к полям производного типа.

Объявлены следующие типы и переменные.

  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?

Какое значение будет присвоено переменной k в результате выполнения оператора select type в следующем фрагменте программы ?

type point  integer x, yend type pointtype, extends(point) :: point_ex  integer z  integer color  logical errorend type point_extype, extends(point_ex) :: point_phys  real vx  real vy  real vz  real tmend type point_phystype, extends(point_phys) :: point_mech  character(32) name  character(8)  codeend type point_mechinteger kclass (*), pointer :: ptrtype  (point_ex), target :: pt_exclass (point_phys), allocatable, target :: pt_phclass (point_mech), allocatable, target :: pt_mhallocate(pt_ph,source=point_phys(1,2,3,4,.true.,0.0,0.0,0.0,0.0))allocate(pt_mh,source=point_mech(5,6,7,8,.true.,0.0,0.0,0.0,0.0,"A","B"))ptr=>pt_ph  select type (ptr)    type is (point_ex);    k=ptr.x    class is (point);      k=ptr.y    class is (point_mech); k=ptr.color    class default;         k=0  end select ...

В программе объявлены типы и переменная

  type point    complex x,y  end type point  type NewType    integer a    type (point) z(3)    character(4) border(2)  end type NewType    type (NewType) pt(10)        

Укажите верные варианты инициализации элемента pt(5)