2) Написать программу вычисления площади треугольника, если известны длины двух сторон и величина угла между этими сторонами. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).

Вычисление площади треугольника.

Введите (через пробел) длины двух сторон (см) треугольника

= 25 17

Введите величину угла между сторонами треугольника

= 30

Площадь треугольника: 106.25 кв. см.

Var

a, b, alpha, s:real;

begin

writeln ('Вычисление площади треугольника') ;

writeln ('Введите (через пробел) длины двух сторон (см) треугольника') ;

readln (a, b) ;

writeln ('Введите величину угла (градус) между сторонами треугольника') ;

readln (alpha) ;

alpha:=DegToRad (alpha) ;

writeln ('Площадь треугольника: ',0.5*a*b*sin (alpha),' кв. см.')

end.

Тестовое решение:

Вычисление площади треугольника

Введите (через пробел) длины двух сторон (см) треугольника

25 17

Введите величину угла (градус) между сторонами треугольника

30

Площадь треугольника: 106.25 кв. см.

Вычисление площади треугольника

Введите (через пробел) длины двух сторон (см) треугольника

11 16.3

Введите величину угла (градус) между сторонами треугольника

39

Площадь треугольника: 56.4185730576179 кв. см.