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

лабораторная работа / Лабораторная работа8

.doc
Скачиваний:
48
Добавлен:
10.02.2014
Размер:
26.11 Кб
Скачать

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

Цель работы: Вычислить значение выражения, используя обращение к функции.

Задание: вычислить значение данного выражения:

где x=1,33.

БЛОК СХЕМА.

ПРОГРАММА.

Program lab8;

var y,x,b:real;

function f(a:real):real;

begin

b:=a;

f:=2*sqr(b)+3*sin(b);

end;

begin

writeln('Vvedite x');

read(x);

y:=ABS(f(x)/((cos(f(x)))*(sqr(LN(f(x))))));

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

end.

Если x=1.33, то y=1.882724.