Программирование больших вычислительных задач на современном Фортране с использованием компиляторов Intel

В головной программе используется модуль geom, который содержит только тип figure и модульную процедуру Modify. Головная программа использует модуль geom.В головной программе объявлена переменная class (figure), allocatable :: FG.
Укажите верное описание типа figure и процедуры Modify, чтобы при вызове call FG.Modify(10) из головной программы, происходило изменение поля points в переменной FG.

(Ответ считается верным, если отмечены все правильные варианты ответов.)

Варианты ответа

subroutine Modify(fg, scale)  class(figure) fg  integer scale  fg.points=fg.points*scaleend subroutine Modify

(Верный ответ)

type figure  integer :: points(5)  integer, private :: color  contains    procedure, nopass :: Modifyend type figure

type figure  integer, private :: points(5)  integer, private :: color  contains    procedure, nopass :: Modifyend type figure

subroutine Modify(fg, scale)  type(figure) fg  integer scale  fg.points=fg.points*scaleend subroutine Modify

type figure  integer, private :: points(5)  integer, private :: color  contains    procedure :: Modifyend type figure

(Верный ответ)

Похожие вопросы

В головной программе используется модуль geom, который содержит только тип circle и модульную процедуру IncRadius. Головная программа использует модуль geom.В головной программе объявлена переменная type (circle) CR.

Укажите верное описание типа circle и процедуры IncRadius, чтобы при вызове call CR.IncRadius(10.0) из головной программы, поле R переменной CR было изменено.

В головной программе используется модуль geom, который содержит только тип triangle и модульную процедуру Square. Головная программа использует модуль geom.В головной программе объявлена переменная type (triangle) TR.

Укажите верное описание типа triangle и процедуры Square, для организации вызова write(*,*) TR.Square() из головной программы

В головной программе используется модуль peoples, который содержит только тип person и модульную процедуру PrintInfo. Головная программа использует модуль peoples.В головной программе объявлена переменная type (person) PS.

Укажите верное описание типа person и процедуры PrintInfo, чтобы при вызове call PS.PrintInfo() из головной программы, отображалась информация, содержащаяся в полях переменной PS.

В головной программе используется модуль farm, который содержит только тип animal и модульную процедуру PrintTitle. Головная программа использует модуль farm.В головной программе объявлена переменная type (animal) AN.

Укажите верное описание типа animal и процедуры PrintTitle, для организации вызова call AN.PrintTitle() из головной программы.

В программе используется модуль math_M. Чтобы подключить ещеодин модуль graph_M к головной программе следует

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

module mod_1 integer, protected :: A=1,B=2,C=3 integer, public :: D=7, E=8 public  F, init contains   subroutine init(x,y)     integer x,y     A=x+y   end subroutine init   integer function F     F=A+D+E-C   end function Fend module mod_1

Какой результат вернет функция F после вызова процедуры callinit(1,2) и выполнения операции присваивания E=A+B в головной программе ?

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

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 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, public :: A=1,B=1,C=1 integer, protected :: D=5, E public  F, init contains   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 после выполнения операции присваивания A=A+D в головной программе ?

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

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) в головной программе ?