Главная /
Введение в программирование больших вычислительных задач на современном Фортране с использованием компиляторов Intel /
Объявлена функция integer function FX(x,y,z,A,B,C) complex, intent(in) :: x logical, intent(out) :: y real z complex, intent(in) :: A(:) character(*), intent(in) :: B(:) real, intent(inout) :: C(3) ... end function FX Какие вызовы функции являются верными
Объявлена функция integer function FX(x,y,z,A,B,C)
complex, intent(in) :: x
logical, intent(out) :: y
real z
complex, intent(in) :: A(:)
character(*), intent(in) :: B(:)
real, intent(inout) :: C(3)
...
end function FX
Какие вызовы функции являются верными, если complex xc, yc, zc, Z(50), W(50)
logical status, fс
real param, alfa, beta, gamma
character NAME(100)
real VEC(1000)
integer dummy
вопрос
Правильный ответ:
dummy = FX((2.0, 4.0), .TRUE., 0.0, Z(::2), NAME(::5), VEC)
dummy = FX((0.0, -1.0), fс, sum(VEC), Z(1:20), NAME(1:50:5), VEC*2)
write(*,*) FX(sum(W(::2)), status, 0.0, Z**2, ['4','5'], VEC(3:5))
write(*,*) FX(Z(9), fc, sqrt(8.0), Z(::5), NAME(::2), VEC(1:3))
write(*,*) FX((2.,3.), 3<4, 9.0, Z,W,Z(1:3))
Сложность вопроса
53
Сложность курса: Введение в программирование больших вычислительных задач на современном Фортране с использованием компиляторов Intel
89
Оценить вопрос
Комментарии:
Аноним
Экзамен прошёл на 4 с минусом. лол
11 май 2019
Аноним
Я завалил зачёт, почему я не увидел этот крутой сайт с ответами по интуит до зачёта
28 апр 2016
Другие ответы на вопросы из темы программирование интуит.
- # Перечислите новшества языка Fortran 2008
- # Оператор, позволяющий получить информацию о том существует файл или нет
- # Файл data4.txt содержит двоичные данные целочисленного массива A(Mi,Mj). Данные записаны в формате по умолчанию в следующем порядке Mi, Mj, A. Найдите сумму элементов 10-й и 20-й строк матрицы A.
- # Фрагмент программы преобразует файл vector.txt ^^^1^^^4^^^5^^^8^^^9^^^0^^^7 в файл spisok.dat с данными 0001000400050008000900000007? Расположите строки в верном порядке. 1) read(1,"(A28)") ch 2) ch(k:k+2)='000' 3) write(1,"(A28)") ch 4) character ch*28 5) open(1,file='C:\spisok.dat') 6) rewind(1) 7) end do 8) ires = RENAMEFILEQQ ('vector.txt','spisok.dat') 9) do k=1,28,4
- # Какой атрибут задает сохранять свои значения для внутренних переменных процедур ?