Главная /
Программирование больших вычислительных задач на современном Фортране с использованием компиляторов Intel /
Имеется ли конфликт процедур при задании перегруженной процедуры. Если да, то укажите, какие именно. module mod_E interface point module procedure pnt1, pnt2, pnt3 end interface contains logical function pnt1(x,y) integer x,y pnt1=x+y<1000 end function
Имеется ли конфликт процедур при задании перегруженной процедуры. Если да, то укажите, какие именно.
module mod_E
interface point
module procedure pnt1, pnt2, pnt3
end interface
contains
logical function pnt1(x,y)
integer x,y
pnt1=x+y<1000
end function pnt1
real function pnt2(x,y)
real x
real y
pnt2=x+y
end function pnt2
real function pnt3(x,y)
real y
real x
pnt3=x*y+x**y
end function pnt3
end module mod_E
вопрос
Правильный ответ:
pnt1
и pnt2
pnt1
и pnt3
pnt2
и pnt3
конфликты отсутствуют
pnt1
и pnt2
и pnt3
Сложность вопроса
57
Сложность курса: Программирование больших вычислительных задач на современном Фортране с использованием компиляторов Intel
75
Оценить вопрос
Комментарии:
Аноним
Зачёт прошёл. Бегу в бар отмечать зачёт по тестам
24 авг 2020
Аноним
Какой студент находит эти тесты inuit? Это же не сложно
17 апр 2019
Другие ответы на вопросы из темы программирование интуит.
- # Укажите атрибут позволяющий модульным переменным менять значения в головной программе
- # Данная программа компилируется с ошибкой. Какие варианты изменений в программе можно выполнить, чтобы из головной программы вызвать процедуру 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 person character(64) name character(64) lastname end type person type robot character(32) mech integer(8) period end type robot Создайте тип office, который наследует тип personсодержит поле типа robot, в виде одномерного динамического массивасодержит поле типа character(64), являющееся ссылкой В ответ введите размер в байтах переменной типа office
- # В головной программе используется модуль 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
- # Укажите параметр компиляции позволяющий проверять неинициализированные переменные