Радиус окружности - Pascal

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

Радиус окружности, вписанной в равносторонний треугольник, равен R. Составить программу для вычисления стороны (признак N=1), высоты (признак N=2) или площади треугольника (признак N=3).


textual

Код к задаче: «Радиус окружности - Pascal»

var a,S,r,h:real;
begin
{  r - радиус вписанной окружности в равносторонний треугольник
   a - длина стороны треугольника (AB=BC=AC)
   h - высота треугольника (за т.Пифагора)
   S - площадь треугольника   }
read(r);
a:=r*(2*sqrt(3));
S:=(sqr(a)*sqrt(3))/4;
h:=sqrt(sqr(a)-sqr(a/2));
write('a=',a:4:2,'     S=',S:4:2,'     h=',h:4:2);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 3.800 из 5

Источник