Question

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

Answer 1

var  
a,b,c: real;  
ugol_alpha,ugol_betta,ugol_gamma: real;
begin  
write('введите a: ');  
readln(a);  
write('введите b: ');  
readln(b);  
write('введите c: ');  
readln(c);
if a*a+b*b-c*c=0 then writeln('Данные не корректны!') else   begin 
ugol_aplha :=arccos(-((sqr(a)-sqr(b)-sqr(c))/2*b*c));
ugol_betta:=arccos(-((sqr(b)-sqr(a)-sqr(c))/2*a*c));
ugol_gamma:=arccos(-((sqr(c)-sqr(a)-sqr(b))/2*a*b));
write('альфа=',ugol_alpha,'  бетта=',ugol_betta:0:2,' гамма=',ugol_gamma:0:2);
end;
end.