i:=i+abs(xx2-xx1)*e+abs(xx3)*e;

end;

writeln('------------------------------------------------');

writeln(' Интеграл =',i);

end;

begin

writeln('------------------------------------------------');

writeln('-=Программа вычисления определенного интеграла=-');

writeln('Введите исходные значения:');

write('Начальное значение x (x1)=');Readln(x1);

write('Конечное значение x (x2)=');Readln(x2);

write('Точность вычисления (e)=');Readln(e);

CountViaBar;

CountViaTrap;

writeln('------------------------------------------------');

writeln('Спасибо за использование программы ;^)');

end.

Исходные данные. Результаты расчетов и анализ.

Ниже приведен результат работы написанной и откомпилированной программы:

------------------------------------------------

-=Программа вычисления определенного интеграла=-

Введите исходные значения:

Начальное значение x (x1)=0

Конечное значение x (x2)=10

Точность вычисления (e)=0.01

------------------------------------------------

-->Метод средних прямоугольников.

Всего итераций:1000

------------------------------------------------