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

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

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

Решение задачи: «Организация подпрограмм»

Листинг программы

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.

Объяснение кода листинга программы

Объявляются переменные s и z типа real.
Определяется функция sGeron, которая принимает три аргумента типа real и возвращает один аргумент типа real.
Внутри функции объявляется переменная p типа real и присваивается ей значение (a + b + c) / 2, где a, b и c - это аргументы функции sGeron. Это значение называется полупериметром.
Затем вызывается функция sqrt, которая возвращает квадратный корень из значения переменной p. Результат сохраняется в переменной sGeron.
В основной части программы считывается значение переменной z с помощью функции readln.
Вычисляется площадь правильного шестиугольника, для чего используется формула Герона. Для этого вызывается функция sGeron шесть раз с аргументами z, z и z, и результаты суммируются.
Полученная сумма площадей шести треугольников выводится на экран.
Программа завершается вызовом функции readln.