Вычислить площадь правильного шестиугольника со стороной а, используя подпрограмму вычисления площади треугольника.
Вопрос посетителя
Вычислить площадь правильного шестиугольника со стороной а, используя подпрограмму вычисления площади треугольника.
Ответ эксперта
uses crt;
var a:real;
function s(a:real):real;
begin
s:=a*a*sqrt(3)/4;
end;
begin
clrscr;
write(‘A -> ‘);
readln(a);
writeln(‘S=’,6*s(a):0:5);
readln;
end.