Треугольник вписанный в окружность. Найти площадь

[Ujas]

В окружность радиуса R вписан треугольник с углами 15 и 60. Составить программу, которая бы вычисляла площадь треугольника.

Как задача про радиус, так и эта нужны очень срочно(

[Ujas]

Решал через следствие из теоремы синусов, но при радиусе 1 у меня получается невозможный треугольник, т.е. сумма двух сторон меньше 3-ей.

program liniyniyprog29;
var r,a,b,c,p,s:real;
begin
write('Введите радиус R: ');
readln(r);
a:=abs(2*r*sin(15));
b:=abs(2*r*sin(60));
c:=abs(2*r*sin(105));
p:=(a+b+c)/2;
s:=abs(p*(p-a)*(p-b)*(p-c));
s:=sqrt(s);

writeln('Площадь: ', s:5:3);


end.


Что не так? Помогите, пожалуйста!

[BDA]

Проблема, скорее всего, в том, что углы у вас заданы в градусах, а должны быть в радианах.

[Ujas]

Да, и правда дело было в радианах. С радианами заработало, Спасибо!

Так-же нашел другую формулу, если кому нужно будет:

program linprog29;
var s,r:real;
begin
write('Введите радиус: ');
readln(r);
s:=(sqr(r)*sqrt(3))/4;
writeln('Площадь: ', s:5:3);
end.