Вычислить для треугольника ABC все стороны, все углы, периметр и площадь - Pascal (11048)

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

Задание 3. Вычислить для треугольника ABC все стороны, все углы (в градусной мере), периметр и площадь, если известны: сторона BC и углы BAC, ACB. Замечание: Программа должна содержать ввод известных величин с клавиатуры, вычисление неизвестных с использованием раздела Function и вывод результатов вычислений на экран. понятия неимею как решать(....буду признателен если небросите меня в беде ,а поможете решить)))

Решение задачи: «Вычислить для треугольника ABC все стороны, все углы, периметр и площадь»

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

uses crt;
function Ugol(a,b:real):real;
begin
Ugol:=180-a-b;
end;
function Stor(a,ua,ub:real):real;
begin
ua:=ua*pi/180;//перевод угла в радианы
ub:=ub*pi/180;
Stor:=a*sin(ub)/sin(ua);//теорема синусов
end;
function Per(a,b,c:real):real;
begin
Per:=a+b+c;
end;
function Plosh(a,b,uc:real):real;
begin
uc:=uc*pi/180;
Plosh:=a*b*sin(uc)/2;//одна из теорем площади
end;
var a,b,c,ua,ub,uc,p,s:real;
begin
clrscr;
write('Введите длину стороны ВС b=');
readln(b);
repeat
writeln('Введите углы ВАС и АСВ:');
readln(ua,uc);
if ua+uc>=180 then writeln('Это не треугольник. Повторите ввод.');
until a+c<180;
ub:=Ugol(ua,uc);
a:=Stor(b,ub,ua);
c:=Stor(b,ub,uc);
p:=Per(a,b,c);
s:=Plosh(a,b,uc);
writeln('Стороны: AB=',c:0:2,'  AC=',b:0:2,'  BC=',a:0:2);
writeln('Углы:    BAC=',ua:0:0,#248,'  ABC=',ub:0:0,#248,'  ACB=',uc:0:0,#248);
write('Периметр=',p:0:2,'  Площадь=',s:0:2);
readln
end.

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

Создается функция Ugol, которая вычисляет угол между двумя сторонами треугольника и возвращает этот угол.
Создается функция Stor, которая вычисляет площадь треугольника по длинам его сторон и углам между ними.
Создается функция Per, которая вычисляет сумму длин всех сторон треугольника.
Создается функция Plosh, которая вычисляет площадь треугольника по длинам его сторон и углу между ними.
Создается переменная a, которая будет хранить длину стороны BC.
Создается переменная b, которая будет хранить длину стороны AB.
Создается переменная c, которая будет хранить длину стороны AC.
Создается переменная ua, которая будет хранить угол между сторонами AB и AC.
Создается переменная ub, которая будет хранить угол между сторонами BC и AC.
Создается переменнаяuc, которая будет хранить угол между сторонами BC и CB.
Вычисляется угол ABC с помощью функции Ugol(ua,uc).
Вычисляются стороны AB, AC и BC с помощью функций Stor(b,ub,ua), Stor(b,ub,uc) и Per(a,b,c) соответственно.
Вычисляется периметр треугольника с помощью функции Per(a,b,c).
Вычисляется площадь треугольника с помощью функции Plosh(a,b,uc).
Выводится информация о сторонах треугольника (AB, AC, BC), углах (BAC, ABC, ACB) и площади треугольника на экран.
Запрашивается новый ввод от пользователя.