Линейный алгоритм: найти периметр и площадь правильного шестиугольника по радиусу описанной окружности - 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')
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
