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

Основные назначения модулей

Модуль может содержать

Переменные, объявленные как public

Переменные, объявленные как private

Переменные, объявленные как protected

Процедуры, описанные атрибутом public

Процедуры, описанные атрибутом private

Процедуры, описанные атрибутом protected

Подключение модуля к головной программе происходит посредством
оператора

Подключение модуля к внешней процедуре происходит посредством
оператора

Укажите атрибут позволяющий модульным переменным менять значения
в головной программе

Укажите атрибут используемый для инкапсуляции данных модуля

Укажите оператор используемый для инкапсуляции процедур модуля

Перегрузка процедур объявляется при помощи операторов

В программе используется модуль math_M. Чтобы подключить еще
один модуль graph_M к головной программе следует

Объявлен следующий модуль
        
module matrix
    integer :: A=100, B=200, C=300
    integer, private :: S=9
    integer, protected :: P=8
    private
      integer :: Q=100, W=200
      integer :: N=500
end module matrix
        
Какие из перечисленных модульных переменных могут быть использованы в
качестве границ размещаемых массивов в вызывающей головной программе?

Объявлен следующий модуль
        
module matrix
    integer :: A=100, B=200, C=300
    integer, private :: S=9
    integer, protected :: P=8
    private, integer :: Q=100, W=200
       integer :: N=500
end module matrix
        
Какие из перечисленных модульных переменных могут быть использованы в
качестве границ размещаемых массивов в вызывающей головной программе?

Объявлен следующий модуль
        
module matrix
  private
   integer :: A=100, B=200, C=300
   complex, private :: S=9
   integer, protected :: P=8 
   integer :: Q=100, W=200
   integer, public :: N=500
end module matrix
        
Какие из перечисленных модульных переменных могут быть использованы
качестве границ размещаемых массивов в вызывающей головной программе?

Объявлен следующий модуль
        
module matrix
  public
   integer :: A=100, B=200, C=300
   complex, private :: S=9
   integer, protected :: P=8
   integer :: Q=100, W=200
   integer, private :: N=500
end module matrix
        
Какие из перечисленных модульных переменных могут быть использованы в
качестве границ размещаемых массивов в вызывающей головной программе?

Объявлен следующий модуль
        
module matrix
  private
   integer :: A=100, B=200, C=300
   complex, private :: S=9
   integer, protected :: P=8
   integer :: Q=100, W=200
   integer, private :: N=500
end module matrix
        
Какие из перечисленных модульных переменных могут быть использованы в
качестве границ размещаемых массивов в вызывающей головной программе?

Объявлен модуль и головная программа
        
module matrix
  real :: M=1000
  real, private :: MP=3000
  real, protected :: MT = 5000
  integer, public :: S1=50
  integer, protected :: S2=70
end module matrix

PROGRAM prog
  use matrix, only : M, MT
  implicit none
  integer :: MP=5000
  integer :: S1=10, S2=30
  ...
        
Какие из вариантов выражений допустимы в головной программе ?

Объявлен модуль и головная программа
        
module matrix
 real :: A=1000
 real, private   :: B=3000
 real, protected :: C=5000
 integer, public :: D=50
 integer, protected :: F=70
end module matrix

PROGRAM prog
 use matrix, only : D, F, A
 implicit none
 real :: C=5000, B=10
 ...
        
Какие из вариантов выражений допустимы в головной программе ?

Объявлен модуль и головная программа
        
module matrix
 real, public    :: A=1.6
 real, protected :: B=5.8
 real, private   :: C=1.0E+10
 integer, protected :: X=50
 integer, private   :: Y=70
end module matrix

PROGRAM prog
 use matrix, only : X, BN => B
 implicit none
 real :: C=5000, B=10
 integer :: Y=800
 ...
        
Какие из вариантов выражений допустимы в головной программе ?

Объявлен модуль и головная программа
        
module matrix
 real, private   :: A=1.6
 real, public    :: B=5.8
 real, protected :: C=1.0E+10
 private
 integer :: X=50
 integer :: Y=70
end module matrix

PROGRAM prog
 use matrix, only : BNEW => B
 implicit none
 real :: C=5000, B=10
 integer :: Y=800
 ...
        
Какие из вариантов выражений допустимы в головной программе ?

Объявлен модуль и головная программа
        
module matrix
 public
 real, private   :: A=1.6
 real, public    :: B=5.8
 real, protected :: C=1.0E+10
 integer :: X=50
 integer :: Y=70
end module matrix

PROGRAM prog
 use matrix, BNEW => B, CNEW => C
 implicit none
 integer XP, YP
 ...
        
Какие из вариантов выражений допустимы в головной программе ?

Описан модуль, который подключен к головной программе
        
module mod_1
 integer, private :: A,B,C
 private SetA
 public  F, init
 contains
   subroutine SetA(X)
     integer X
     A=X+1
   end subroutine SetA
   subroutine init()
     call SetA(500); B=20; C=10
   end subroutine
   integer function F
     F=A+B+C
   end function F
end module mod_1
        
        Какой результат вернет функция F после вызова процедуры init в головной программе ?
        

Описан модуль, который подключен к головной программе
        
module mod_1
 integer, private :: A=1,B=1,C=1
 integer, protected :: D, E
 private SetA
 public  F, init
 contains
   subroutine SetA(X)
     integer X
     A=X+1
   end subroutine SetA
   subroutine init_D_E(x,y)
     integer x,y
     D=X*10; E=Y*2
   end subroutine init_D_E
   integer function F
     F=A+D+E
   end function F
end module mod_1
        
Какой результат вернет функция F после вызова процедуры init_D_E(2,3) в головной программе ?
        

Описан модуль, который подключен к головной программе
        
module mod_1
 integer, protected :: A=1,B=1,C=1
 integer, private :: D, E
 private SetA
 public  F, init
 contains
   subroutine SetA(X)
     integer X
     A=X-1
   end subroutine SetA
   subroutine init_D_E(x,y)
     integer x,y
     D=X*10; E=Y*2; call SetA(0)
   end subroutine init_D_E
   integer function F
     F=A+D+E
   end function F
end module mod_1
        
Какой результат вернет функция F после вызова процедуры init_D_E(4,5) в головной программе ?
        

Описан модуль, который подключен к головной программе
        
module mod_1
 integer, public :: A=1,B=1,C=1
 integer, protected :: D=5, E
 public  F, init
 contains
   subroutine init_D_E(x,y)
     integer x,y
     D=X*10; E=Y*2
   end subroutine init_D_E
   integer function F
     F=A+D+E
   end function F
end module mod_1
        
Какой результат вернет функция F после выполнения операции присваивания A=A+D в головной программе ?
        

Описан модуль, который подключен к головной программе
        
module mod_1
 integer, protected :: A=1,B=2,C=3
 integer, public :: D=7, E=8
 public  F, init
 contains
   subroutine init(x,y)
     integer x,y
     A=x+y
   end subroutine init
   integer function F
     F=A+D+E-C
   end function F
end module mod_1
        
Какой результат вернет функция F после вызова процедуры callinit(1,2) и выполнения операции присваивания E=A+B в головной программе ?
        

Выберите допустимые объявления модульных переменных для данного варианта программы
        
module mod_A
implicit none

! здесь следует объявить модульные переменные

 public init_solver
 contains
   subroutine init_solver(val)
     real val
     x=val*1.0E-10
   end subroutine init_solver
end module mod_A

PROGRAM prog
 use mod_A, Anew => A, Bnew => B
 implicit none

 Anew = Anew + 1
 write(*,*) Bnew+1
 call init_solver(-1.0)
 Anew=Bnew+1
end        

Выберите допустимые объявления модульных переменных для данного варианта программы
        
module mod_A
implicit none

! здесь следует объявить модульные переменные

 public init_solver
 contains
   subroutine init_solver(val)
     real val
     x=val*sin(val)+A
   end subroutine init_solver
end module mod_A

PROGRAM prog
 use mod_A, Anew => A, Bnew => B
 implicit none

 Bnew=1+Anew
 write(*,*) Bnew+Anew+X
 call init_solver(-1.0)
end
        

Выберите допустимые объявления модульных переменных для данного варианта программы
        
module mod_A
implicit none

! здесь следует объявить модульные переменные

 public init_solver
 contains
   subroutine init_solver(x)
     real x
     A=A*0.001
     B=x+A
   end subroutine init_solver
end module mod_A

PROGRAM prog
 use mod_A, Bnew => B
 implicit none

 Bnew=A*2
 write(*,*) x+2
 call init_solver(0.0)
end
        

Выберите допустимые объявления модульных переменных для данного варианта программы
        
module mod_A
implicit none

! здесь следует объявить модульные переменные

 public init_solver
 contains
   subroutine init_solver(x)
     real x
     A=A**2
     B=x+A
   end subroutine init_solver
end module mod_A

PROGRAM prog
 use mod_A, Anew => A
 implicit none

 x=1.5
 Anew=x+1
 write(*,*) Anew+B
 call init_solver(1.6)
end
        

Выберите допустимые объявления модульных переменных для данного варианта программы
        
module mod_A
implicit none

! здесь следует объявить модульные переменные

 public init_solver
 contains
   subroutine init_solver(val)
     real val
     B=val*A
   end subroutine init_solver
end module mod_A

PROGRAM prog
 use mod_A, Anew => A, Xnew => X
 implicit none

 Xnew=2.0
 write(*,*) B+Anew+Xnew
 call init_solver(0.0)
end
        

Данная программа компилируется с ошибкой. Какие варианты изменений в программе можно выполнить, чтобы из головной программы вызвать процедуру 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  
  

Данная программа компилируется с ошибкой. Какие варианты изменений в программе можно выполнить, чтобы из головной программы вызвать процедуру init из модуля B 
        
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() ! вызываем процедуру из модуля B
end
        

Данная программа компилируется с ошибкой. Какие варианты изменений в программе можно выполнить, чтобы из головной программы вызвать процедуру init из модуля B
        
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() ! вызываем процедуру из модуля B
end
        

Данная программа компилируется с ошибкой. Какие варианты изменений в программе можно выполнить, чтобы из головной программы вызвать процедуру 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
        

Данная программа компилируется с ошибкой. Какие варианты изменений в программе можно выполнить, чтобы из головной программы вызвать процедуру 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
        

Какие функции используются в выражении 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 cos

end module mod_F

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

end module mod_F

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

end module mod_F

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

end module mod_F

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

end module mod_F

PROGRAM prog
 use mod_F, only : cos, sinx=>sin
 implicit none
 real res
 res=sin(256.0)  
 write(*,*) res
end
        

Имеется ли конфликт процедур при задании перегруженной процедуры. Если да, то укажите, какие именно. 
        
module mod_E
 interface point
   module procedure pnt1, pnt2, pnt3
 end interface
contains  
 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 pnt3
end module mod_E
  

Имеется ли конфликт процедур при задании перегруженной процедуры. Если да, то укажите, какие именно.
        
module mod_E
 interface point
   module procedure pnt1, pnt2, pnt3
 end interface
contains  
 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 pnt3
end module mod_E
        

Имеется ли конфликт процедур при задании перегруженной процедуры. Если да, то укажите, какие именно.
        
module mod_E
 interface point
   module procedure pnt1, pnt2, pnt3
 end interface
contains  
 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 pnt3
end module mod_E
        

Имеется ли конфликт процедур при задании перегруженной процедуры. Если да, то укажите, какие именно.
        
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
        

Имеется ли конфликт процедур при задании перегруженной процедуры. Если да, то укажите, какие именно. 
        
module mod_E
 interface point
   module procedure pnt1, pnt2, pnt3
 end interface
contains  
 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 pnt3
end module mod_E