Главная /
Программирование больших вычислительных задач на современном Фортране с использованием компиляторов Intel /
Дан модуль, который используется в головной программе module mod_1 type person integer, public :: year character(64), private :: name="ABC" character(64), public :: sname="DEF" end type person private person type, extends (person) :: student logical, publ
Дан модуль, который используется в головной программе
module mod_1
type person
integer, public :: year
character(64), private :: name="ABC"
character(64), public :: sname="DEF"
end type person
private person
type, extends (person) :: student
logical, public :: status
character, private :: group
end type student
end module mod_1
В головной программе объявлена переменная
type (student) st
Укажите верные варианты доступа к полям производного типа из головной программы.
вопрос
Правильный ответ:
st.person
st.person.name
st.year
st.status
st.person.year
Сложность вопроса
88
Сложность курса: Программирование больших вычислительных задач на современном Фортране с использованием компиляторов Intel
75
Оценить вопрос
Комментарии:
Аноним
Это очень нехитрый тест по интуиту.
26 май 2018
Аноним
просто спасибо
22 ноя 2015
Другие ответы на вопросы из темы программирование интуит.
- # Объявлен модуль и головная программа module matrix real, public :: A=1.6 real, protected :: B=5.8 real, private :: C=1.0E+10 integer, protected :: X=50 integer, private :: Y=70 end module matrix PROGRAM prog use matrix, only : X, BN => B implicit none real :: C=5000, B=10 integer :: Y=800 ... Какие из вариантов выражений допустимы в головной программе ?
- # Какие имена являются процедуры привязанными к типу по имени в следующем фрагменте программы ? use graph type(plot) PLT, PLTA, PLTB ... call PLT.Create(10,10,200,200) PLT=.INVERSE.PLT write(*,*) PLTA.xcenter write(*,*) PLT.Radius() call VerifyPlot(PLTB.coords) write(*,*) finish(PLTA.start()) PLT=PLTA.UNION.PLTB ...
- # Какое значение будет находиться в поле a переменной ex1 после вызова call ex1.solve() в следующей программе ? module mod_1 abstract interface integer function func(x) integer x end function func end interface type region integer, private :: a integer, private :: b procedure (func), pointer, nopass :: funct contains procedure solve end type region contains subroutine solve(rg) class(region) rg rg.a=rg.funct(rg.a) end subroutine solve end module mod_1 program prog use mod_1 type (region) ex1 ex1.a=2; ex1.b=3; ex1.funct=>F call ex1.solve() contains integer function F(x) integer x F=x*x+x end function F END
- # Укажите функцию, которая возвращает номер копии caf-программы
- # Внешние процедуры объявляются после оператора