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

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

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

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

7   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ