Модуль 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 NewType end module mod_1

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

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

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

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

• # Выберите допустимые объявления модульных переменных для данного варианта программы 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
• # Полиморфная переменная объявляется оператором
• # Модуль 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 card end module mod_1 используется в головной программе. Объявлена переменная type(card) cd Укажите верные варианты доступа к полям производного типа.
• # В головной программе используется модуль geom, который содержит только тип circle и модульную процедуру IncRadius. Головная программа использует модуль geom. В головной программе объявлена переменная type (circle) CR. Укажите верное описание типа circle и процедуры IncRadius, чтобы при вызове call CR.IncRadius(10.0) из головной программы, поле R переменной CR было изменено.
• # Используя процедуры MKL, вычислите произведение , где - прямоугольная матрица,-квадратная матрица. Данные находятся в файле и записаны по строкам). В ответ введите целое значение от суммы элементов матрицы .