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

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

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

Вариант 6

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

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

Вычислить

;

x₁=2.385; x₂=1.08

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

program lab8;

var x:real;

y:real;

function f(a:real):real;

begin

f:=(sin(a)+cos(a))/(sqr(x)+5);

end;

function q(a:real):real;

begin

q:=sqrt(sqr(sin(a)+cos(a))+1)/sqr(sin(a/2)+cos(a/2));

end;

begin

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

read(x);

y:=(sin(f(x))+cos(f(x)))/q(x);

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

e

y= (sin(f(x))+cos(f(x)))/q(x)

nd.

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