Программирование больших вычислительных задач на современном Фортране с использованием компиляторов Intel
В головной программе используется модуль geom, который содержит только тип circle и модульную процедуру IncRadius. Головная программа использует модуль geom.В головной программе объявлена переменная type (circle) CR.
Укажите верное описание типа circle и процедуры IncRadius, чтобы при вызове call CR.IncRadius(10.0) из головной программы, поле R переменной CR было изменено.
В головной программе используется модуль peoples, который содержит только тип person и модульную процедуру PrintInfo. Головная программа использует модуль peoples.В головной программе объявлена переменная type (person) PS.
Укажите верное описание типа person и процедуры PrintInfo, чтобы при вызове call PS.PrintInfo() из головной программы, отображалась информация, содержащаяся в полях переменной PS.
В головной программе используется модуль geom, который содержит только тип figure и модульную процедуру Modify. Головная программа использует модуль geom.В головной программе объявлена переменная class (figure), allocatable :: FG.
Укажите верное описание типа figure и процедуры Modify, чтобы при вызове call FG.Modify(10) из головной программы, происходило изменение поля points в переменной FG.
В головной программе используется модуль geom, который содержит только тип triangle и модульную процедуру Square. Головная программа использует модуль geom.В головной программе объявлена переменная type (triangle) TR.
Укажите верное описание типа triangle и процедуры Square, для организации вызова write(*,*) TR.Square() из головной программы
В головной программе используется модуль farm, который содержит только тип animal и модульную процедуру PrintTitle. Головная программа использует модуль farm.В головной программе объявлена переменная type (animal) AN.
Укажите верное описание типа animal и процедуры PrintTitle, для организации вызова call AN.PrintTitle() из головной программы.
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Укажите верные варианты доступа к полям производного типа.