Подпрограмма процедура

[advokat92]

Заданы стороны двух треугольников АВС (стороны а, в, с) и DEF (сто-роны d, e, f). Найти сумму и разность площадей треугольников АВС DEF. Площадь треугольника NKM со сторонами n, k, m
вычисляется по формуле: W=sqrt(r*(r-n)*(r-k)*(r-m))
r - полупериметр треугольника NKM. Исходные данные: а=3; b=2,5; c=1,7; d=2; e=7,8; f=7
Используя подпрограмму- процедуру.

 

[Dock1100]

:happy:

procedure get_S(a,b,s:real; var S:real):real;
var p:real;
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
end;

procedure get_P(a,b,s:real; var P:real):real;
begin
P:=(a+b+c);
end;