Реферат: Вычисление определенного интеграла методом трапеций и средних прямоугольников

c:longint;

begin

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

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

writeln(' Всего итераций :',round(abs(x2-x1)/e));

i:=0;

for c:=1 to round(abs(x2-x1)/e) do begin

write('Итерация ',c,chr(13));

xx1:=Fx(x1+c*e);

xx2:=Fx(x1+c*e+e);

i:=i+abs(xx1+xx2)/2*e;

end;

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

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

end;

procedure CountViaTrap;

var

xx1,xx2,xx3:real;

c:longint;

begin

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

writeln('--> Метод трапеций .');

writeln(' Всего итераций :',round(abs(x2-x1)/e));

i:=0;

for c:=1 to round(abs(x2-x1)/e) do begin

write('Итерация ',c,chr(13));

xx1:=Fx(x1+c*e);

xx2:=Fx(x1+c*e+e);