В головной программе используется модуль geom, который содержит только тип triangle и модульную процедуру Square. Головная программа использует модуль geom.В головной программе объявлена переменная type (triangle) TR.
Укажите верное описание типа triangle и процедуры Square, для организации вызова write(*,*) TR.Square() из головной программы
subroutine Square type(triangle) tr write(*,*) abs((tr.x1-tr.x2)*(tr.y3-tr.y2)-(tr.y1-tr.y2)*(tr.x3-tr.x2))/2 end subroutine Square
real function Square(tr) class(triangle) tr Square=abs((tr.x1-tr.x2)*(tr.y3-tr.y2)-(tr.y1-tr.y2)*(tr.x3-tr.x2))/2 end function Square(Верный ответ)
type triangle real x1,y1,x2,y2,x3,y3 contains procedure, pass :: Squareend type triangle(Верный ответ)
type triangle real x1,y1,x2,y2,x3,y3 contains procedure, nopass :: Squareend type triangle
real function Square(tr) type(triangle) tr Square=abs((tr.x1-tr.x2)*(tr.y3-tr.y2)-(tr.y1-tr.y2)*(tr.x3-tr.x2))/2 end function Square