Какие функции используются в выражении res=sin(2.0)*cos(2.0)

module mod_F contains real function sin(x)   sin=sqrt(sqrt(sqrt(x))) end function sin real function cos(x)   cos=x**2.0**2.0 end function cosend module mod_FPROGRAM prog use mod_F, only : sin, cos implicit none real res res=sin(2.0)*cos(1.0)  end        

Какие функции используются в выражении res=sin(2.0)*cos(2.0)

module mod_F contains real function sin(x)   sin=sqrt(sqrt(sqrt(x))) end function sin real function cos(x)   cos=x**2.0**2.0 end function cosend module mod_FPROGRAM prog use mod_F, only : cos, sinx=>sin implicit none real res res=sin(256.0)   write(*,*) resend        

Какие функции используются в выражении res=sin(2.0)*cos(2.0)

module mod_F contains real function sin(x)   sin=sqrt(sqrt(sqrt(x))) end function sin real function cos(x)   cos=x**2.0**2.0 end function cosend module mod_FPROGRAM prog use mod_F, only : cos implicit none real res res=sin(2.0)*cos(1.0)  end        

Какие функции используются в выражении res=sin(2.0)*cos(2.0)

module mod_F contains real function sin(x)   sin=sqrt(sqrt(sqrt(x))) end function sin real function cos(x)   cos=x**2.0**2.0 end function cosend module mod_FPROGRAM prog use mod_F implicit none real res res=sin(2.0)*cos(1.0)  end  

Какие функции используются в выражении res=sin(2.0)*cos(2.0)

module mod_F contains real function sin(x)   sin=sqrt(sqrt(sqrt(x))) end function sin real function cos(x)   cos=x**2.0**2.0 end function cosend module mod_FPROGRAM prog use mod_F, only : sin implicit none real res res=sin(2.0)*cos(1.0)  end        

Имеется ли конфликт процедур при задании перегруженной процедуры. Если да, то укажите, какие именно.

module mod_E interface point   module procedure pnt1, pnt2, pnt3 end interfacecontains   logical function pnt1(x,y)   real 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 pnt3end module mod_E        

Имеется ли конфликт процедур при задании перегруженной процедуры. Если да, то укажите, какие именно.

module mod_E interface point   module procedure pnt1, pnt2, pnt3 end interfacecontains   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 pnt3end module mod_E        

Имеется ли конфликт процедур при задании перегруженной процедуры. Если да, то укажите, какие именно.

module mod_E interface point   module procedure pnt1, pnt2, pnt3 end interfacecontains   real function pnt1(x,y)   real x,y   pnt1=x+y end function pnt1 real function pnt2(x,y)   integer x,y   pnt2=x+y end function pnt2 character function pnt3(x,y)   real x   integer y   pnt3=achar(mod(int(x),20)*mod(y,2)) end function pnt3end module mod_E  

Имеется ли конфликт процедур при задании перегруженной процедуры. Если да, то укажите, какие именно.

module mod_E interface point   module procedure pnt1, pnt2, pnt3 end interfacecontains   real function pnt1(x,y)   real x   integer y   pnt1=x+y end function pnt1 real function pnt2(x,y)   integer x,y   pnt2=x+y end function pnt2 character function pnt3(x,y)   real x   integer y   pnt3=achar(mod(int(x),20)*mod(y,2)) end function pnt3end module mod_E        

Имеется ли конфликт процедур при задании перегруженной процедуры. Если да, то укажите, какие именно.

module mod_E interface point   module procedure pnt1, pnt2, pnt3 end interfacecontains   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 pnt3end module mod_E        

Объявлен модуль и головная программа

module matrix real, private   :: A=1.6 real, public    :: B=5.8 real, protected :: C=1.0E+10 private integer :: X=50 integer :: Y=70end module matrixPROGRAM prog use matrix, only : BNEW => B implicit none real :: C=5000, B=10 integer :: Y=800 ...        

Какие из вариантов выражений допустимы в головной программе ?