Разработайте программу в pascal вычисления площади треугольника, если известны величины двух сторон треугольника (a, b) и величина угла (γ) в градусах между ними. Площадь треугольника вычисляется по формуле: S=a*h/2, где высота треугольника h вычисляется по формуле: h=b*sin(γ). Программа должна предлагать пользователю ввести величину переменных a, b и γ и на основании этой информации производить расчет S.
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
var a,b,g:integer;
Write(Введите длины сторон a и b: ); Read(a,b);
Write(Введите угол между сторонами, град: ); Read(g);
var h:=b*sin(DegToRad(g));
Writeln(Площадь треугольника равна ,a*h/2)
end.
Тестовое решение:
Введите длины сторон a и b: 10 20
Введите угол между сторонами, град: 38
Площадь треугольника равна 61.5661475325658
Оцени ответ
