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

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

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

Выберите допустимые объявления модульных переменных для данного варианта программы
module mod_Aimplicit none! здесь следует объявить модульные переменные public init_solver contains   subroutine init_solver(val)     real val     x=val*sin(val)+A   end subroutine init_solverend module mod_APROGRAM prog use mod_A, Anew => A, Bnew => B implicit none Bnew=1+Anew write(*,*) Bnew+Anew+X call init_solver(-1.0)end        

(Ответ считается верным, если отмечены все правильные варианты ответов.)

Варианты ответа
integer, private :: A
integer, protected :: A(Верный ответ)
integer, protected :: B
real, protected :: X(Верный ответ)
integer, public :: B(Верный ответ)
Похожие вопросы
Выберите допустимые объявления модульных переменных для данного варианта программы
module mod_Aimplicit none! здесь следует объявить модульные переменные public init_solver contains   subroutine init_solver(val)     real val     x=val*1.0E-10   end subroutine init_solverend module mod_APROGRAM prog use mod_A, Anew => A, Bnew => B implicit none Anew = Anew + 1 write(*,*) Bnew+1 call init_solver(-1.0) Anew=Bnew+1end        
Выберите допустимые объявления модульных переменных для данного варианта программы
module mod_Aimplicit none! здесь следует объявить модульные переменные public init_solver contains   subroutine init_solver(x)     real x     A=A**2     B=x+A   end subroutine init_solverend module mod_APROGRAM 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_Aimplicit none! здесь следует объявить модульные переменные public init_solver contains   subroutine init_solver(x)     real x     A=A*0.001     B=x+A   end subroutine init_solverend module mod_APROGRAM prog use mod_A, Bnew => B implicit none Bnew=A*2 write(*,*) x+2 call init_solver(0.0)end        
Выберите допустимые объявления модульных переменных для данного варианта программы
module mod_Aimplicit none! здесь следует объявить модульные переменные public init_solver contains   subroutine init_solver(val)     real val     B=val*A   end subroutine init_solverend module mod_APROGRAM 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 initend module mod_Amodule mod_B contains   subroutine init     write(*,*) "Initializing B"   end subroutine initend module mod_BPROGRAM prog use mod_A use mod_B implicit none call init() ! вызываем процедуру из модуля Aend    
Данная программа компилируется с ошибкой. Какие варианты изменений в программе можно выполнить, чтобы из головной программы вызвать процедуру init из модуля B
module mod_A contains   subroutine init     write(*,*) "Initializing A"   end subroutine initend module mod_Amodule mod_B contains   subroutine init     write(*,*) "Initializing B"   end subroutine initend module mod_BPROGRAM prog use mod_A use mod_B implicit none call init() ! вызываем процедуру из модуля Bend        
Данная программа компилируется с ошибкой. Какие варианты изменений в программе можно выполнить, чтобы из головной программы вызвать процедуру init из модуля A
module mod_A contains   subroutine init     write(*,*) "Initializing A"   end subroutine initend module mod_Amodule mod_B contains   subroutine init     write(*,*) "Initializing B"   end subroutine initend module mod_BPROGRAM prog use mod_A use mod_B implicit none call init() ! вызываем процедуру из модуля Aend        
Данная программа компилируется с ошибкой. Какие варианты изменений в программе можно выполнить, чтобы из головной программы вызвать процедуру init из модуля A
module mod_A contains   subroutine init     write(*,*) "Initializing A"   end subroutine initend module mod_Amodule mod_B contains   subroutine init     write(*,*) "Initializing B"   end subroutine initend module mod_BPROGRAM prog use mod_A use mod_B implicit none call init() ! вызываем процедуру из модуля Aend        
Данная программа компилируется с ошибкой. Какие варианты изменений в программе можно выполнить, чтобы из головной программы вызвать процедуру init из модуля B
module mod_A contains   subroutine init     write(*,*) "Initializing A"   end subroutine initend module mod_Amodule mod_B contains   subroutine init     write(*,*) "Initializing B"   end subroutine initend module mod_BPROGRAM prog use mod_A use mod_B implicit none call init() ! вызываем процедуру из модуля Bend        
Объявлен модуль и головная программа
module matrix public real, private   :: A=1.6 real, public    :: B=5.8 real, protected :: C=1.0E+10 integer :: X=50 integer :: Y=70end module matrixPROGRAM prog use matrix, BNEW => B, CNEW => C implicit none integer XP, YP ...        
Какие из вариантов выражений допустимы в головной программе ?