Процедуры, описанные атрибутом private

Процедуры, описанные атрибутом private

Процедуры, описанные атрибутом public

Процедуры, описанные атрибутом protected

Объявлен следующий модуль

module matrix  private   integer :: A=100, B=200, C=300   complex, private :: S=9   integer, protected :: P=8   integer :: Q=100, W=200   integer, private :: N=500end module matrix        

Какие из перечисленных модульных переменных могут быть использованы вкачестве границ размещаемых массивов в вызывающей головной программе?

Описан модуль, который подключен к головной программе

module mod_1 integer, private :: A,B,C private SetA public  F, init contains   subroutine SetA(X)     integer X     A=X+1   end subroutine SetA   subroutine init()     call SetA(500); B=20; C=10   end subroutine   integer function F     F=A+B+C   end function Fend module mod_1        

Какой результат вернет функция F после вызова процедуры init в головной программе ?

Описан модуль, который подключен к головной программе

module mod_1 integer, private :: A=1,B=1,C=1 integer, protected :: D, E private SetA public  F, init contains   subroutine SetA(X)     integer X     A=X+1   end subroutine SetA   subroutine init_D_E(x,y)     integer x,y     D=X*10; E=Y*2   end subroutine init_D_E   integer function F     F=A+D+E   end function Fend module mod_1        

Какой результат вернет функция F после вызова процедуры init_D_E(2,3) в головной программе ?

Описан модуль, который подключен к головной программе

module mod_1 integer, protected :: A=1,B=1,C=1 integer, private :: D, E private SetA public  F, init contains   subroutine SetA(X)     integer X     A=X-1   end subroutine SetA   subroutine init_D_E(x,y)     integer x,y     D=X*10; E=Y*2; call SetA(0)   end subroutine init_D_E   integer function F     F=A+D+E   end function Fend module mod_1        

Какой результат вернет функция F после вызова процедуры init_D_E(4,5) в головной программе ?

Для типа point выберите правильный код финальной процедуры DeletePoint

module flowinteger, private :: INDEX  type point    integer x,y,z    integer color    logical stat        contains      final :: DeletePoint      end type point  CONTAINS  ...    subroutine InitFlow()      INDEX=0    end subroutine InitFlowend module flow  

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

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

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

Объявлен следующий модуль

module matrix  private   integer :: A=100, B=200, C=300   complex, private :: S=9   integer, protected :: P=8    integer :: Q=100, W=200   integer, public :: N=500end module matrix        

Какие из перечисленных модульных переменных могут быть использованыкачестве границ размещаемых массивов в вызывающей головной программе?