Дана подпрограмма subroutine proc(a,b,N,func) interface real function func(x) real x end function func end interface real, intent(in) :: a,b integer, intent(in) :: N write(*,*) func(a+b*N) end subroutine proc
Выберите верные вызовы, если real function f(x) real x f=sqrt(x)+cos(x)+(1.0,1.0)end function freal function S(x,y) real x,y S=10000*x*yend function Srecursive function fr(x) real x if ((x-1)<0) then fr=1.0 return end if fr=sin(x)+cos(x)+fr(x-1)end function fr
(Ответ считается верным, если отмечены все правильные варианты ответов.)
Варианты ответа
call proc(1.0, 2.0, 10, fr)(Верный ответ)
call proc(S(1.0), S(2.0), 10, f)(Верный ответ)
call proc(1.0, 2.0, 10, S)
call proc(5.0, f(6.0), 10, f)(Верный ответ)