Вычислить площадь фигуры, заданной сторонами. - Pascal

Формулировка задачи:

Вычислить площадь фигуры, заданной сторонами. Фигура не является прямоугольником, а треугольники, которые ее составляют, не являются прямоугольными.

Код к задаче: «Вычислить площадь фигуры, заданной сторонами. - Pascal»

textual
//Площадь 1 треугольника
function Sq(a,b,c:real):real;//a,b,c-стороны треугольника
var p,s:real;
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
Sq:=s;
end;
//площади всех треугольников
var a1,b1,c1,a2,b2,c2.....,s:real;
begin
//ввод длин сторон
s:=Sq(a1,b1,c1)+Sq(a2,b2,c2)+...+;
write('S=',s:0:2);
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

12   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ