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

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 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   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        

Какие функции используются в выражении 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, only : sin 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, cos implicit none real res res=sin(2.0)*cos(1.0)  end        

Какое значение будет находиться в поле a переменной ex1 после вызова call ex1.solve() в следующей программе ?

module mod_1  abstract interface    integer function func(x)      integer x    end function func  end interface      type region    integer, private :: a    integer, private :: b    procedure (func), pointer, nopass :: funct        contains      procedure solve  end type regioncontains  subroutine solve(rg)    class(region) rg    rg.a=rg.funct(rg.a)  end subroutine solveend module mod_1program proguse mod_1type (region) ex1ex1.a=2; ex1.b=3; ex1.funct=>Fcall ex1.solve()containsinteger function F(x)  integer x  F=x*x+xend function FEND