Главная /
Программирование больших вычислительных задач на современном Фортране с использованием компиляторов Intel /
Выберите допустимые объявления модульных переменных для данного варианта программы module mod_A implicit none ! здесь следует объявить модульные переменные public init_solver contains subroutine init_solver(val) real val x=val*sin(val)+A end subroutine in
Выберите допустимые объявления модульных переменных для данного варианта программы
module mod_A
implicit none
! здесь следует объявить модульные переменные
public init_solver
contains
subroutine init_solver(val)
real val
x=val*sin(val)+A
end subroutine init_solver
end module mod_A
PROGRAM prog
use mod_A, Anew => A, Bnew => B
implicit none
Bnew=1+Anew
write(*,*) Bnew+Anew+X
call init_solver(-1.0)
end
вопрос
Правильный ответ:
real, protected :: X
integer, private :: A
integer, protected :: A
integer, protected :: B
integer, public :: B
Сложность вопроса
53
Сложность курса: Программирование больших вычислительных задач на современном Фортране с использованием компиляторов Intel
75
Оценить вопрос
Комментарии:
Аноним
Я провалил экзамен, какого чёрта я не углядел этот чёртов сайт с решениями интуит месяц назад
24 апр 2017
Другие ответы на вопросы из темы программирование интуит.
- # Данная программа компилируется с ошибкой. Какие варианты изменений в программе можно выполнить, чтобы из головной программы вызвать процедуру init из модуля A module mod_A contains subroutine init write(*,*) "Initializing A" end subroutine init end module mod_A module mod_B contains subroutine init write(*,*) "Initializing B" end subroutine init end module mod_B PROGRAM prog use mod_A use mod_B implicit none call init() ! вызываем процедуру из модуля A end
- # В программе объявлены типы и переменная type point complex x,y end type point type NewType integer a type (point) z(3) character(4) border(2) end type NewType type (NewType) pt(10) Укажите верные варианты инициализации элемента pt(5)
- # В головной программе используется модуль flow. Объявлена переменная PT типа point. Какие из процедур в типе point могут изменить приватную часть переменной PT ? module flow type point integer x integer y real, private :: cp contains procedure, nopass :: proc1 procedure proc2 procedure, pass :: proc3 procedure, nopass :: proc4 procedure proc5 procedure show end type point contains subroutine proc1(pt,val) type(point) pt real val pt.cp = val end subroutine proc1 subroutine proc2(pt) class(point) pt pt.cp=real(pt.x+pt.y) end subroutine proc2 subroutine proc3(pt) class(point) pt integer tmp tmp=pt.x; pt.x=pt.y; pt.y=tmp end subroutine proc3 subroutine proc4(pt) type(point) pt if (pt.cp<=0) write(*,*) "ERROR" end subroutine proc4 subroutine proc5(pt,M,N,S) class(point) pt integer M,N real, optional :: S pt.x=pt.x+N pt.y=pt.y+M if (present(S)) call random_number(pt.cp) end subroutine proc5 end module flow
- # Используя процедуры MKL вычислите скалярное произведение двух векторов и . Данные находятся в файлеdata8.txt. В ответ введите целую часть результата.
- # Укажите параметр компиляции, который управляет уровнями диагностики автоматического распараллеливания