Модуль module mod_1 type plot integer x1,y1,x2,y2 integer, private :: color(255) end type plot type indicator type (plot) plt logical :: free character(4), public :: date end type indicator type card type (indicator) indic integer fparam integer, private :: sparam end type card end module mod_1

используется в головной программе.

Объявлена переменная

type(card) cd Укажите верные варианты доступа к полям производного типа.

Правильный ответ:

• # Объявлен следующий модуль module matrix private integer :: A=100, B=200, C=300 complex, private :: S=9 integer, protected :: P=8 integer :: Q=100, W=200 integer, private :: N=500 end module matrix Какие из перечисленных модульных переменных могут быть использованы в качестве границ размещаемых массивов в вызывающей головной программе?
• # Данная программа компилируется с ошибкой. Какие варианты изменений в программе можно выполнить, чтобы из головной программы вызвать процедуру 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
• # Напишите имя функции (синтаксис Fortran 95), которая вычисляет выражение , где и векторы - векторы типа complex.
• # Используя процедуры MKL, вычислите Евклидову норму вектора . Данные находятся в файле data11.txt. В ответ введите целую часть результата.
• # Используя процедуры MKL, вычислите произведение , где - квадратная матрица, -вектор. Данные находятся в файле записана по строкам). В ответ введите номер минимального по модулю элемента вектора .