Модуль

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)

Модуль

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Укажите верные варианты доступа к полям производного типа.

Модуль

module mod_1  type plot    integer x1,y1,x2,y2    integer color(255)  end type plot  type indicator    type (plot) plt    logical, private :: free    character(4) date  end type indicator  type card    type (indicator) indic    integer fparam    integer sparam  end type cardend module mod_1        

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

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

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

Модуль

module mod_1  type plot    integer x1,y1,x2,y2    integer, private :: color(255)  end type plot  type indicator    type (plot) plt    logical :: free    character(4), public :: date  end type indicator  type card    type (indicator) indic    integer fparam    integer, private :: sparam  end type cardend module mod_1        

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

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

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

Дан модуль, который используется в головной программе

module mod_1  type maps    integer x,y    integer color    logical, private :: status  end type maps  type, extends (maps) :: e_maps    integer segment    character, private :: code  end type e_mapsend module mod_1        

В головной программе объявлена переменная

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

Дан модуль, который используется в головной программе

module mod_1  type rectangle    integer x1,y1,x2,y2    integer color    character, private :: name  end type rectangle  type, extends (rectangle) :: roundrect    integer radius    real, public :: center  end type roundrectend module mod_1        

В головной программе объявлена переменная

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

Дан модуль, который используется в головной программе

module mod_1  type rectangle    integer x1,y1,x2,y2    integer, private :: color    character(16), private :: name = "REC_0001"  end type rectangle  type, extends (rectangle) :: roundrect    integer r1, r2    real    center  end type roundrectend module mod_1        

В головной программе объявлена переменная

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

Дан модуль, который используется в головной программе

module mod_1  type person    integer, public :: year    character(64), private ::  name="ABC"    character(64), public :: sname="DEF"  end type person  private person  type, extends (person) :: student    logical,  public :: status    character, private :: group  end type studentend module mod_1        

В головной программе объявлена переменная

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

Дан модуль, который используется в головной программе

module mod_1  type person    integer year    character(64), private ::  name="ABC"    character(64), private :: sname="DEF"  end type person  type, extends (person) :: student    logical, private :: status    character, public :: group  end type studentend module mod_1        

В головной программе объявлена переменная

type (person) pstype (student) st

Укажите верные варианты доступа к полям производного типа из головной программы.

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

  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)

Какое значение будет находиться в поле a переменной ex1 после вызова call ex1.solve() в следующей программе ?

module mod_1  abstract interface    integer function func(x)      integer x    end function func  end interface      type region    integer, private :: a    integer, private :: b    procedure (func), pointer, nopass :: funct        contains      procedure solve  end type regioncontains  subroutine solve(rg)    class(region) rg    rg.a=rg.funct(rg.a)  end subroutine solveend module mod_1program proguse mod_1type (region) ex1ex1.a=2; ex1.b=3; ex1.funct=>Fcall ex1.solve()containsinteger function F(x)  integer x  F=x*x+xend function FEND