Курсовая работа: Нахождение корней уравнений различными методами

writeln(‘chislo iterazii: ‘,n);

end.

Задание 2.

Записать расчетные формулы, составить блок-схему алгоритма и программу для вычисления определенного интеграла методом Симпсона, разбивая отрезок интегрирования [0;1] на 78 частей. Предусмотреть в программе вычисление точного значения определенного интеграла через первообразную .

Решение.

Вытекает из формулы Симпсона

Блок-схема алгоритма.

Function p(x:real):real

Function y(x:real):real;

начало

Основная блок-схема:

z=p(b)-p(a)

s=s*(h/3)

s=s+y(a)+y(b)

c=-c

s=s+k*y(x)

k:=3+c

x=x+h

c=-1

Программа.

Program Simpson;

var x,s,h,z,a,b:real;

n,c:integer;

i,k:integer;

function p(x:real):real;

begin

p:=1/sqr(3*sin(x)+2*cos(x));

end;

function y(x:real):real;

begin

y:=3/36-(3*cos(x)-2*sin(x))/(13*(2*cos(x)+3*sin(x)));

end;

begin

writeln(‘vvod’,a,b,n)

readln(a,b,n);

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