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

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

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

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

textual
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.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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


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