База ответов ИНТУИТ

Введение в программирование больших вычислительных задач на современном Фортране с использованием компиляторов Intel

<<- Назад к вопросам

Дана подпрограмма
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)(Верный ответ)
Похожие вопросы
Объявлена функция
integer function FX(x,y,z,A,B,C)    complex, intent(in)   :: x    logical, intent(out)  :: y    real z    complex, intent(in)   :: A(:)    character(*), intent(in) :: B(:)    real, intent(inout)      :: C(3)    ...  end function FX
Какие вызовы функции являются верными, если
complex xc, yc, zc, Z(50), W(50)  logical status, fс  real param, alfa, beta, gamma  character NAME(100)  real VEC(1000)  integer dummy
Объявлена функция
complex(8) function Ex(A,V,W,alfa,betta,gamma)    real, intent(in) :: A(:,:)    complex(8), intent(out)  :: V(:,:,:)    character(*), intent(in) :: W(:)    integer, optional, intent(in)    :: alfa    real,    optional, intent(inout) :: betta    complex, optional, intent(out)   :: gamma    ...  end function Ex
Какие вызовы функции являются верными, если
real M2D(100,100)  complex(8) C1(10,10,10), A(10,10,10), B(10,10,10)  character(128) CH(100)  integer kparam  real    sparam  complex zparam
Объявлена функция
character function func(x,y,k,A,M)    real x,y    integer(1) k    integer A(M)  ...  end function fun
Какие вызовы функции являются верными ?
В головной программе описаны переменные
character(64), parameter :: NAME = "C:\DATA\FLOW\SWIRL\V1"  real, pointer :: p1, p2  real, target  :: T(1000)  logical flag(10)  complex(16) C1, C2
Какие из них доступны во внутренней подпрограмме proc ?
subroutine proc(C1, C2, flags)    real(4), intent(out)  :: C1    complex(16), intent(out) :: C2    character(*), optional, intent(in) :: flags    real, pointer :: p1    ...  end subroutine proc
В головной программе описаны переменные
integer, pointer :: pk  character(32), target :: file  logical :: st=.FALSE., flag=.TRUE.  complex(16) Z1(10,10,10,10)  real sk,sp,R
Какие из них доступны во внутренней функции GetParamVector?
complex function GetParamVector(V,N,z1) result(flag)    complex(16) V    integer(8)  N    complex(16), optional, intent(out) :: z1    real x,y,ks,kp,st    ...  end function GetParamVector
В головной программе описаны переменные
  real A,B,C,D  integer K1, K2, M, N  complex S
Какие из них доступны во внутренней подпрограмме proc ?
  subroutine proc(A,C,M,N)    real, intent(in)  :: A(:)    complex, intent(out) :: C    integer, optional, intent(in) :: M,N    complex R,T    ...  end subroutine proc
Объявлена подпрограмма
recursive subroutine proc(param, p, A, B, C)    real param    logical p    real A(:), B(:), C(:)    ...  end subroutine proc
Какие вызовы подпрограммы являются верными, если real X(1000), Y(1000), Z(1000)
В головной программе описаны переменные
real(4) A,B,C  logical, target :: LOGO  complex(8), pointer :: cPT, cPN, cRT  integer x,y,z
Какие из них доступны во внутренней функции InitFlowAVI?
  logical function InitFlowAVI(A,B,C,N,name,LOGO) result (cRT)    real(4), intent(in) :: A(:,:,:), B(:,:,:), C(:,:,:)    character(256) name    logical, optional :: LOGO    integer x,y    complex(8), pointer, save :: CPT, CPN    ...  end function InitFlowAVI
Объявлена функция
complex function fun(a,b,ind,symbol) result(gnew)    real a,b    integer ind    character symbol    ...  end function fun
Какие вызовы функции являются верными ?
Объявлена подпрограмма
subroutine ModifyMassiv(A,B,st,sp,status)   real, intent(in) :: A(:)   complex, intent(out) :: B(:,:,:)   integer, intent (in) :: st,sp   integer, optional, intent(in) :: status   ...end subroutine ModifyMassiv
Какие вызовы подпрограммы являются верными, если
real S(1000)  complex Q(100,100,100)  integer ik, k1, jk