Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Найти все углы треугольника со сторонами а, b, c. Предусмотреть в программе перевод радианной меры угла а градусы, минуты и секунды. Напишите на паскаль

Ответ оставил Гость

Var a,b,c,alfa,beta,gamma:real; 
ga,ma,sa,gb,mb,sb,gg,mg,sg:real;
begin
write(a=); readln(a);
write(b=); readln(b);
write(c=); readln(c);
alfa:=arccos((b*b-c*c+a*a)/(2*b*c))*180/pi;
ga:=int(alfa);
ma:=int(frac(alfa)*60);
sa:=frac(frac(alfa)*60);
writeln(alfa = ,ga:3:0, gr ,ma:3:0, min ,sa:3:1, sec);
beta:=arccos((c*c-b*b+a*a)/(2*c*a))*180/pi;
gb:=int(beta);
mb:=int(frac(beta)*60);
sb:=frac(frac(beta)*60);
writeln(beta = ,gb:3:0, gr ,mb:3:0, min ,sb:3:1, sec);
gamma:=arccos((c*c-a*a+b*b)/(2*c*b))*180/pi;
gg:=int(gamma);
mg:=int(frac(gamma)*60);
sg:=frac(frac(gamma)*60);
writeln(gamma = ,gg:3:0, gr ,mg:3:0, min ,sg:3:1, sec);
end.

Пример:
a=3
b=4
c=5
alfa =  90 gr   0 min 0.0 sec
beta =  53 gr   7 min 0.8 sec
gamma =  36 gr  52 min 0.2 sec