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

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

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

Вариант 20

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

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

Вычислить

;

x₁=1.20; x₂=2.813

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

program lab8;

var x,k:real;

y:real;

function f1(a:real):real;

begin

f1:=(a+2*sqr(a))/(sin(a)+2*sqr(sin(a)));

end;

function f2(a:real):real;

begin

f2:=(cos(a)+2*sqr(cos(a)))/(sin(a)/cos(a)+2*sqr(sin(a)/cos(a)));

end;

b

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

egin

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

read(x);

y:=(f1(x)+2*sqr(f1(x)))/(f2(x)+2*sqr(f2(x)));

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

e

y=(f1(x)+2*sqr(f1(x)))/(f2(x)+2*sqr(f2(x)))

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

nd.