Линейный алгоритм: найти периметр и площадь правильного шестиугольника по радиусу описанной окружности - 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.
Объяснение кода листинга программы
- Программа
Ploschad
на языке Free Pascal - Введен радиус описанной окружности с помощью функции Readln(Radius)
- Вычислена площадь шестиугольника по формуле Area := (3 sqrt(3) sqr(Radius) / 2)
- Выведена площадь шестиугольника на экран с помощью функции Write(Area:3:3,' м^2')
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д