Объявлена функция 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
(Ответ считается верным, если отмечены все правильные варианты ответов.)
Варианты ответа
write(*,*) FX(Z(9), fc, sqrt(8.0), Z(::5), NAME(::2), VEC(1:3))(Верный ответ)
write(*,*) FX(sum(W(::2)), status, 0.0, Z**2, ['4','5'], VEC(3:5))(Верный ответ)
dummy = FX((0.0, -1.0), fс, sum(VEC), Z(1:20), NAME(1:50:5), VEC*2)
dummy = FX((2.0, 4.0), .TRUE., 0.0, Z(::2), NAME(::5), VEC)
write(*,*) FX((2.,3.), 3<4, 9.0, Z,W,Z(1:3))