Question

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

Answer 1

Var r,alfa,beta,gamma,a,b,c:real;
begin
write('R = ');
readln(r);
writeln('alfa,beta,gamma:');
readln(alfa,beta,gamma);
a:=2*r*sin(alfa*pi/180);
b:=2*r*sin(beta*pi/180);
c:=2*r*sin(gamma*pi/180);
writeln('a = ',a:4:2,' b = ',b:4:2,' c = ',c:4:2);
end.

Пример:
R = 2.5
alfa,beta,gamma:
36.87 53.13 90.0
a = 3.00 b = 4.00 c = 5.00