Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла

program integral;

var

i,j,n:integer;

intr,int1,int2,ints,int3,int4,h,a,b,eps,xi,r:real;

BEGIN

writeln('':4000);

writeln('Tochnost eps=0.0001');

eps:=0.0001;

a:=0;

b:=4;

{metod 1}

n:=trunc((b-a)/sqrt(eps)+1);

h:=(b-a)/n;

for i:=1 to n do

begin

xi:=a+(i-1/2)*h;

int1:=int1+h*4*xi*xi*xi/(xi*xi*xi*xi*xi*xi*xi*xi+1);

end;

writeln(' ');

writeln('Metod pryamougolnikov');

writeln(' ');

writeln('Integral bez utochnenia ',int1:20:20);

h:=h/2;

xi:=0;

n:=2*n;

for i:=1 to n do

begin

xi:=a+(i-1/2)*h;

int2:=int2+h*4*xi*xi*xi/(xi*xi*xi*xi*xi*xi*xi*xi+1);

end;

r:=abs(int2-int1)/3;

intr:=int1+(int2-int1)/3;

writeln('Integral s utochneniem ',intr:20:20);

writeln('Ocenka pogreshnosti R(h/2)',r:20:20);

writeln('Chislo razbieniy ',n);

{metod 2}

writeln(' ');

writeln('Metod Simpsona');

writeln(' ');

n:=trunc((b-a)/(2*sqrt(sqrt(eps)))+1);

h:=(b-a)/(2*n);

xi:=0;

for i:=1 to 2*n-1 do

begin

xi:=a+i*h;

If odd(i) then int3:=int3+4*h/3*4*xi*xi*xi/(xi*xi*xi*xi*xi*xi*xi*xi+1);

If not odd(i) then int3:=int3+2*h/3*4*xi*xi*xi/(xi*xi*xi*xi*xi*xi*xi*xi+1);

end;

writeln('Integral bez utochnenia ',int3:20:19);

xi:=0;

n:=n*2;

h:=h/2;

for i:=1 to 2*n-1 do

begin

xi:=a+i*h;

If odd(i) then int4:=int4+4*h/3*4*xi*xi*xi/(xi*xi*xi*xi*xi*xi*xi*xi+1);

If not odd(i) then int4:=int4+2*h/3*4*xi*xi*xi/(xi*xi*xi*xi*xi*xi*xi*xi+1);

end;

r:=abs(int4-int3)/15;

ints:=int4+(int4-int3)/15;

writeln('integral s utochneniem ',ints:20:19);

writeln('Ocenka pogreshnosti R(h/2)',r:20:19);

writeln('Chislo razbieniy ',n);

readln;

END.

Результат работы программы.

Tochnost eps=0.0001

Metod pryamougolnikov

Integral bez utochnenia 1.56689011660

Integral s utochneniem 1.56689011160

Ocenka pogreshnosti R(h/2) 0.00000000498

Chislo razbieniy 802

Metod Simpsona

Integral bez utochnenia 1.56675104780

integral s utochneniem 1.56683249840

Ocenka pogreshnosti R(h/2) 0.00000509066

Chislo razbieniy 42

Характеристики

Тип файла документ

Документы такого типа открываются такими программами, как Microsoft Office Word на компьютерах Windows, Apple Pages на компьютерах Mac, Open Office - бесплатная альтернатива на различных платформах, в том числе Linux. Наиболее простым и современным решением будут Google документы, так как открываются онлайн без скачивания прямо в браузере на любой платформе. Существуют российские качественные аналоги, например от Яндекса.

Будьте внимательны на мобильных устройствах, так как там используются упрощённый функционал даже в официальном приложении от Microsoft, поэтому для просмотра скачивайте PDF-версию. А если нужно редактировать файл, то используйте оригинальный файл.

Файлы такого типа обычно разбиты на страницы, а текст может быть форматированным (жирный, курсив, выбор шрифта, таблицы и т.п.), а также в него можно добавлять изображения. Формат идеально подходит для рефератов, докладов и РПЗ курсовых проектов, которые необходимо распечатать. Кстати перед печатью также сохраняйте файл в PDF, так как принтер может начудить со шрифтами.

Список файлов лабораторной работы