Главная /
Программирование больших вычислительных задач на современном Фортране с использованием компиляторов Intel /
Какое значение будет присвоено переменной k в результате выполнения оператора select type в следующем фрагменте программы ? type point integer x, y end type point type, extends(point) :: point_ex integer z end type point_ex type, extends(point_ex) :: poin
Какое значение будет присвоено переменной k
в результате выполнения оператора select type в следующем фрагменте программы ?
type point
integer x, y
end type point
type, extends(point) :: point_ex
integer z
end type point_ex
type, extends(point_ex) :: point_phys
real vx
real tm
end type point_phys
type, extends(point_phys) :: point_mech
character(32) name
end type point_mech
class (point_ex), pointer :: poly
class (point), target, allocatable :: pt
class (point_ex), target, allocatable :: pt_ex
class (point_phys), target, allocatable :: pt_ph
class (point_mech), target, allocatable :: pt_mh
integer k
allocate (pt, source=point(1,2))
allocate (pt_ex, source=point_ex(3,4,5))
allocate (pt_ph, source=point_phys(6,7,8,0.0,9.0))
allocate (pt_mh, source=point_mech(9,10,11,0.0,0.0,"ABC"))
poly=>pt_mh
select type (poly)
class is (point_ex); k=poly.x
class is (point_phys); k=poly.z
class default; k=0
end select
...
вопрос
Правильный ответ:
11
Сложность вопроса
82
Сложность курса: Программирование больших вычислительных задач на современном Фортране с использованием компиляторов Intel
75
Оценить вопрос
Комментарии:
Аноним
Гранд мерси за подсказками по интуит.
16 июл 2018
Аноним
Я сотрудник университета! Немедленно удалите сайт vtone.ru с ответами с интуит. Немедленно!
15 сен 2017
Другие ответы на вопросы из темы программирование интуит.
- # Процедурные указатели объявляются при помощи оператора
- # Неограниченно полиморфная переменная объявляется при помощи оператора
- # Укажите верные объявления coarray-переменных
- # Укажите параметр компиляции означающий максимизацию скорости выполнения
- # Укажите параметр компиляции, который управляет уровнями диагностики автоматического распараллеливания