лабораторная работа / вар13 / лаб8

Балаковский институт техники технологий и управления

Лабораторная работа №8

Вариант 13

Выполнил студент УИТ-2в

Балаково 2007 год.

Вычислить

;

x₁ =1.1; x₂=1.5

Текст программы:

program lab8;

var x: integer;

y: real;

function f(a:integer):real;

begin

f:=(2*sqr(a)*sqr(sin(a))+3*a*sin(a)+1)/(2*sqr(a)+3*a+1);

end;

begin

writeln('Введите x');

read(x);

y:=2*sqr(f(x))+3*(f(x))+1;

write('y=',y:6:3);

end.

задается функция

y:=2*sqr(f(x))+3*(f(x))+1;