Главная /
Программирование больших вычислительных задач на современном Фортране с использованием компиляторов Intel /
Имеется ли конфликт процедур при задании перегруженной процедуры. Если да, то укажите, какие именно. module mod_E interface point module procedure pnt1, pnt2, pnt3 end interface contains real function pnt1(x,y) integer x,y pnt1=x+y end function pnt1 logic
Имеется ли конфликт процедур при задании перегруженной процедуры. Если да, то укажите, какие именно.
module mod_E
interface point
module procedure pnt1, pnt2, pnt3
end interface
contains
real function pnt1(x,y)
integer x,y
pnt1=x+y
end function pnt1
logical function pnt2(x,y)
integer x,y
pnt2=x+y<1000
end function pnt2
character function pnt3(x,y)
real x
integer y
pnt3=achar(mod(int(x),20)*mod(y,2))
end function pnt3
end module mod_E
вопрос
Правильный ответ:
pnt1
и pnt2
pnt1
и pnt3
pnt2
и pnt3
конфликты отсутствуют
pnt1
и pnt2
и pnt3
Сложность вопроса
60
Сложность курса: Программирование больших вычислительных задач на современном Фортране с использованием компиляторов Intel
75
Оценить вопрос
Комментарии:
Аноним
Благодарю за тесты по intiut'у.
14 ноя 2017
Другие ответы на вопросы из темы программирование интуит.
- # Основные назначения модулей
- # В головной программе используется модуль 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
- # Какие компоненты входят в состав IMSL ?
- # Какой раздел библиотеки Intel ® Math Kernel Library содержит процедуру PARDISO ?
- # Используя процедуры MKL, вычислите произведение , где - треугольная квадратная матрица,-квадратная матрица. Данные находятся в файле и записаны по строкам). В ответ введите целую часть суммы модулей элементов главной диагонали матрицы .