Создать модуль, дополняющий математические возможности Паскаля функциями для нахождения площади треугольника - Turbo Pascal

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

Создать модуль, дополняющий математические возможности Паскаля функциями для нахождения площади треугольника: «sGeron» - по известным трем сторонам, «sH» - по известным высоте и стороне основания, «Salfa» - по двум сторонам и углу между ними. Составить программу, которая использует данный модуль.

Решение задачи: «Создать модуль, дополняющий математические возможности Паскаля функциями для нахождения площади треугольника»

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

unit s_trg;
interface
function sGeron(a,b,c:real):real;
function sH(a,h:real):real;
function sAlfa(a,b,f:real):real;
implementation
function sGeron;
var p:real;
begin
p:=(a+b+c)/2;
sGeron:=sqrt(p*(p-a)*(p-b)*(p-c));
end;
function sH;
begin
sH:=0.5*a*h;
end;
function sAlfa;
begin
sAlfa:=0.5*a*b*sin(f);
end;
end.

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

Создаётся единица (module) s_trg, которая будет дополнять математические возможности языка Паскаль.
Определяется интерфейс (interface) для модуля s_trg, который содержит три функции: sGeron, sH и sAlfa.
Определяются три переменные: p, h и f.
В функции sGeron, объявленной как статическая, определяется формула для вычисления полупериметра треугольника по длинам его сторон a, b и c.
Вычисляется квадратный корень из полупериметра, умноженного на разность между a и b, между a и c, между b и c.
Результат вычислений функции sGeron сохраняется в переменной sGeron.
В функции sH, также объявленной как статическая, определяется формула для вычисления половины произведения длины стороны a на длину стороны h.
Результат вычислений функции sH сохраняется в переменной sH.
В функции sAlfa, также объявленной как статическая, определяется формула для вычисления площади треугольника по длинам его сторон a, b и f.
Вычисляется половина произведения длины стороны a на длину стороны b, затем это значение умножается на синус угла f.
Результат вычислений функции sAlfa сохраняется в переменной sAlfa.
Конец определения модуля s_trg.