Главная /
Программирование больших вычислительных задач на современном Фортране с использованием компиляторов Intel /
Описан модуль, который подключен к головной программе 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
Описан модуль, который подключен к головной программе
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 F
end module mod_1
Какой результат вернет функция F
после вызова процедуры init_D_E(4,5)
в головной программе ?
вопрос
Правильный ответ:
49
Сложность вопроса
56
Сложность курса: Программирование больших вычислительных задач на современном Фортране с использованием компиляторов Intel
75
Оценить вопрос
Комментарии:
Аноним
Это очень элементарный вопрос интуит.
17 июл 2018
Аноним
спасибо
12 апр 2017
Другие ответы на вопросы из темы программирование интуит.
- # Данная программа компилируется с ошибкой. Какие варианты изменений в программе можно выполнить, чтобы из головной программы вызвать процедуру init из модуля B 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() ! вызываем процедуру из модуля B end
- # Какие функции используются в выражении res=sin(2.0)*cos(2.0) module mod_F contains real function sin(x) sin=sqrt(sqrt(sqrt(x))) end function sin real function cos(x) cos=x**2.0**2.0 end function cos end module mod_F PROGRAM prog use mod_F, only : sin, cos implicit none real res res=sin(2.0)*cos(1.0) end
- # Укажите верные объявления coarray-переменных
- # Какие компоненты входят в состав IMSL ?
- # Внешние процедуры объявляются после оператора