Я пытаюсь вычислить объем этой произвольной формы.Я пытаюсь сделать это с массивами;
REAL, DIMENSION(2) :: A,B,C,D,E
REAL :: Area
A = (/ -3, -2 /)
B = (/ -1,4 /)
C = (/ 6,1 /)
D = (/ 3,10 /)
E = (/ -4,9 /)
Area = abs((A(1)*B(2)+B(1)*C(2)+C(1)*D(2)+D(1)*E(2)+E(1)*A(2))-(B(1)*A(2)+C(1)*B(2)+D(1)*C(2)+E(1)*D(2)+E(2)*A(1)))/2
Print*,Area
stop
end
это правильный способ сделать это?Это кажется мне тоннами базовой математики.Любое предложение будет идеальным!
