Нужно решить интеграл. И оценить погрешность абсолютную и относительную.

[Nilip 777]

Это мои наработки. Что тут не так.

program integral;
var
  n,i:integer;
  a,b,k,y,shag,sum,x,itog,delx,r,c,d:real;
  function f(x:real):real;
begin
  f:=a*x*x+b*x;
end;
 begin

  writeln('vvedite nachalo a=');
  readln(a);
  writeln('vvedite konec b=');
  readln(b);
  writeln('vvedite kol-vo razbienii n=');
  readln(n);
   shag:=(b-a)/n;
   sum:=0;
   for i:=1 to n-1 do
   sum:=sum+f(shag*i+a);
   sum:=sum+(f(a)+f(b))/2;
   itog:=(b-a)/n*sum;
   delx:=(b-a)/n;
   x:=a+delx;
   while x<b do
    begin
   y:=y+f(x);
   x:=x+delx;
   y:=(y+(f(a)+f(b))/2)*delx;
   end;
    r:=y/itog;
    writeln('integral= ',itog:0:5);
    writeln('pogreshnost=' ,y:0:5);
    writeln('aa', r:0:5);
    end.

[ZX Spectrum-128]

А почему при выводе вы пишете r:0:5?
Первое число - это количество позиций для вывода всего дробного числа, включая точку. Второе - количество позиций после точки (дробная часть). Понятно, что второе число не может быть больше первого.

[type_Oleg]

То есть у вас и коэффициенты в уравнении f(x) = a*x^2 +b*x , и пределы интегрирования - те же самые a,b ?
Так и должно быть? Такое условие ?