Pascal. Линейные алгоритмы. Задача 8

Даны стороны треугольника: 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;