Даны 3 действительных числа - сторорны треугольника: можно ли построить такой треугольник? - Pascal

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

Даны действительные положительные числа a b c. Можно ли построить такой треугольник? Найти углы треугольника.

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

textual
function Ugol(a,b,c:real):real;
var p:real;
begin
p:=(a+b+c)/2;
Ugol:=(2*arctan(sqrt((p-b)*(p-c)/(p*(p-a)))))*(180/pi);
end;
var a,b,c,ua,ub,uc:real;
begin
writeln('Введите длины строн треугольника');
readln(a,b,c);
if(a>=b+c)or(b>=a+c)or(c>=a+b)then
write('Эти отрезки не могут быть сторонами треугольника')
else
 begin
  writeln('Углы равны:');
  write(Ugol(a,b,c):0:1,'  ',Ugol(b,a,c):0:1,'  ',Ugol(c,a,b):0:1);
 end;
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

10   голосов, оценка 3.600 из 5


СОХРАНИТЬ ССЫЛКУ