Главная /
Программирование больших вычислительных задач на современном Фортране с использованием компиляторов Intel /
Объявлен модуль и головная программа 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,
Объявлен модуль и головная программа
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
...
Какие из вариантов выражений допустимы в головной программе ?
вопрос
Правильный ответ:
D=C*F+B
call random_number(A)
call random_number(F)
F=F+A
нет вариантов
Сложность вопроса
52
Сложность курса: Программирование больших вычислительных задач на современном Фортране с использованием компиляторов Intel
75
Оценить вопрос
Комментарии:
Аноним
Кто ищет вот эти вопросы по интуит? Это же крайне просто
07 ноя 2020
Аноним
Это очень элементарный решебник интуит.
03 июн 2019
Другие ответы на вопросы из темы программирование интуит.
- # Выберите допустимые объявления модульных переменных для данного варианта программы 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
- # Имеется ли конфликт процедур при задании перегруженной процедуры. Если да, то укажите, какие именно. 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
- # Перечислите возможности Intel Parallel Studio, Intel Visual Fortran для создания параллельных программ.