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

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

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

Вариант 12

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

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

Вычислить

;

x₁=0.251; x₂=2.12

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

program lab8;

var x: integer;

y: real;

function f(a:integer):real;

begin

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

end;

begin

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

read(x);

y:=sqrt(sqr(f(x))+exp(3*ln(f(x))));

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

end.

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

y=