Реферат: Вычисление интеграла фукции f (x) (методом Симпсона WinWord)

{ Вычисляется интеграл по методу трапеций }

n:=3;

r:=trap(a,b,n); { Начальное значение }

repeat

r2:=r; { Запоминается предыдущее значение }

n:=n+2; { Увеличивается количество шагов }

r:=trap(a,b,n); { Рассчитывается новое значение }

until (abs(r-r2)<0.001);{ Повторяется до достижения необходимой точности }

{ Вывод результатов }

writeln(' Резльтат по методу трапеций равен: ',r:6:3);

writeln(' для получения необходимой точности

интервал был разбит на');

writeln(n,' отрезков');

{ Вычисляется интеграл по методу Симпсона }

n:=3;

r:=simpson(a,b,n); { Начальное значение }

repeat

r2:=r; { Запоминается предыдущее значение }

n:=n+2; { Увеличивается количество шагов }

r:=simpson(a,b,n); { Рассчитывается новое значение }

until (abs(r-r2)<0.001);{ Повторяется до достижения необходимой

точности }

{ Вывод результатов }

writeln;

writeln(' Резльтат по методу Симпсона равен: ',r:6:3);

writeln(' для получения необходимой точности интервал

был разбит на ');

writeln(n,' отрезков');

end.