Листинг программы.

Программа написана на Tubro Pascla 6.0 для MS-DOS. Ниже приведен ее листинг:

 

program Integral;

uses

  Crt, Dos;

var

  dx,x1,x2,e,i:real;

function Fx(x:real):real;

begin

  Fx:=2+x; {В этом месте запишите функцию, для вычисления интеграла.}

end;

 

procedure CountViaBar;

var

  xx1,xx2: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);

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

  end;

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

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

end;