Укажите функцию, которая возвращает номер копии caf-программы

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

• # Описан модуль, который подключен к головной программе 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) в головной программе ?
• # Модуль module mod_1 type region integer x1,y1,x2,y2 end type region type blk logical st(3) character(5), private :: name end type blk type NewType type (region) reg type (blk) bee end type NewType end module mod_1 используется в головной программе. Описан массив type (NewType) matrix(10,10,100) Укажите верные варианты инициализации элемента matrix(1:5:2,:,20)
• # Объявлены следующие типы и переменные. type cell real next real prev logical stat end type cell type object integer code real dist real radius end type object type grid type (object) object type (cell) cell integer xa,xb,ya,yb end type grid class (*), pointer :: polym class (cell), pointer :: ptc type (grid), target :: ptg Какие справедливы прикрепления ссылок ?
• # Используя процедуры MKL вычислите выражение . Данные находятся в файле data1.txt. В ответ введите целую часть суммы модулей полученного вектора.
• # Укажите директиву, которая указывает сколько байт следует отводить для целого типа по умолчанию