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

Формулировка задачи:

a,b,c:real;
  a1,b1,c1,r: integer;
 begin 
  writeln('введите угол А=');
  readln (a1);
  writeln ('введите угол B=');
  readln (b1);
  c1:=180-(a1+b1);
  writeln ('введите радиус r=');
  readln (r);
  a:=2*r*sin(a1);
  b:=2*r*sin(b1);
  c:=2*r*sin(c1);
  writeln('сторона А=',a);
  writeln('сторона B=',a);
  writeln('сторона C=',a);
  readln;
end.
при вводе всех углов 60 и радиусом 1, сторона получается с минусом. сама задача:треугольник задан величинами своих углов и радиусом описанной окружности,найти стороны треугольника.что я сделал не так?

Код к задаче: «Найти стороны треугольника, заданного величинами своих углов и радиусом описанной окружности - Pascal ABC»

textual
a:=2*r*sin(a1*pi/180);//перевод в радианы
b:=2*r*sin(b1*pi/180);
c:=2*r*sin(c1*pi/180);
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

13   голосов, оценка 3.846 из 5


СДЕЛАЙТЕ РЕПОСТ