Линейный алгоритм: найти периметр и площадь правильного шестиугольника по радиусу описанной окружности - Free Pascal

Узнай цену своей работы

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

Найти периметр и площадь правильного шестиугольника по известному радиусу описанной окружности.

Решение задачи: «Линейный алгоритм: найти периметр и площадь правильного шестиугольника по радиусу описанной окружности»

textual
Листинг программы
program Ploschad;
var Radius, Area: real;
begin
Writeln('Введите радиус описанной окружности');
Readln(Radius);
Area := (3 * sqrt(3) * sqr(Radius) / 2);
Write('Площадь шестиугольника = ',Area:3:3,' м^2')
end.

Объяснение кода листинга программы

  1. Программа Ploschad на языке Free Pascal
  2. Введен радиус описанной окружности с помощью функции Readln(Radius)
  3. Вычислена площадь шестиугольника по формуле Area := (3 sqrt(3) sqr(Radius) / 2)
  4. Выведена площадь шестиугольника на экран с помощью функции Write(Area:3:3,' м^2')

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4 из 5
Похожие ответы