Организация подпрограмм - Turbo Pascal

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

Вычислить площадь правильного шестиугольника со стороной а. Определить функцию, печатающую площадь треугольника по его сторонам

Код к задаче: «Организация подпрограмм - Turbo Pascal»

textual
var
  s, z : real;
{Функция расчета площади треугольника по формуле Герона}
function sGeron (a, b, c : real) : real;
var p : real;
begin
  p := (a + b + c) / 2; {полупериметр}
  sGeron := sqrt(p * (p - a) * (p - b) * (p - c))
end;
begin
  write('введите сторону правильного шестиугольника: ');
  readln(z);
  {как известно радиус описанной окружности правильного
  шестиугольника равен стороне - поэтому считаем сумму 
  площадей 6 равносторонних треугольников}
  s := 6 * sGeron(z, z, z);  
  writeln('площадь правильного шестиугольника: ', s:0:4);
  readln
end.

9   голосов, оценка 3.667 из 5


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