Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
49
Добавлен:
10.02.2014
Размер:
33.79 Кб
Скачать

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

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

Вариант 7

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

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

Вычислить

;

x1=1.20; x2=2.813

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

program lab8;

var x:real;

y

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

:real;

function f(a:real):real;

begin

f:=sqr(sqrt(sqr(x)+2*exp(3*ln(x))+1)/sqr(sin(x)));

end;

begin

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

r

y= sqrt(f(x))+2*f(x)+1

ead(x);

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

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

end.

Соседние файлы в папке вар7