Линейный алгоритм: найти периметр и площадь правильного шестиугольника по радиусу описанной окружности - 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')