Даны стороны треугольника: a,b,c. Вычислить косинусы углов по теореме косинусов: sqr(c)=sqr(a)+sqr(b)-2ab*cos(alfa).
Решение:
Program begin_10; uses crt; var a,b,c,cosa,cosb,cosc:real; begin clrscr; write('введите сторону a=');readln(a); write('введите сторону b=');readln(b); write('введите сторону c=');readln(c); cosc:=(sqr(c)-sqr(a)-sqr(b))/(-2*a*b); cosa:=(sqr(a)-sqr(c)-sqr(b))/(-2*c*b); cosb:=(sqr(b)-sqr(c)-sqr(a))/(-2*c*a); writeln('cosa=',cosa:4:4); writeln('cosb=',cosb:4:4); write('cosc=',cosc:4:4); readln;