Question

Срочно!!!
Напишите программу для вычисления площади и периметра треугольника по 2-м его сторонам.

Answer 1

1 var
2 a, b, c, u, s: real;
3 Beging
4 Witeln('Введите стороны A, B , угол через пробел:');
5 readln(a, b, u);
6 c:= sqrt(sqr(a) + sqr(b) - 2 * a * b * cos(u * (pi / 180)));
7 s:= 0.5 * a * b * sin(u * (pi / 180));
8 Writeln('S: ', s:0:2);
writeln('P: ', a + b + c:0:2);
9 End.