Добавил:
student_tipo
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:лабораторная работа / вар7 / лаб8
.docБалаковский институт техники технологий и управления
Лабораторная работа №8
Вариант 7
Выполнил студент УИТ-2в
Балаково 2007 год.
Вычислить
;
x1=1.20; x2=2.813
Текст программы:
program lab8;
var x:real;
y
задается
функция
f
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
y:=sqrt(f(x))+2*f(x)+1;
writeln('y=',y:6:3);
end.