Приближенное вычисление определенных интегралов методом трапеций (Паскаль)

[now2]

помогите пожалуйста если не трудно можете исправить программу ,а то я щас с ума сойду уже скоро

[type_Oleg]

Вот, просто вычисление приближенного значения. Чем больше n, тем точнее.

program Prog13;

const
a = 0.6;
b = 2.4;

var n : integer;

function f(x: real): real;
begin
f := (1+0.5*x*x)/(1+Sqrt(0.8*x*x+1.4));
end;

function IntegrTrap(x1,x2:real;n:Integer):real;
var i:Integer;
    dx,s:real;
begin
  s:=0;
  dx:=(x2-x1)/n;
  for i:=1 to n do
     s:=s+dx*(f(x1+i*dx)+f(x1+(i-1)*dx))/2;
  IntegrTrap:=s;
end;

begin
 Write('число интервалов разбиения =');
 ReadLn(n);
 WriteLn('приближенное значение =',IntegrTrap(a,b,n));
 ReadLn;
end.

[now2]

Сообщение от type_Oleg

Вот, просто вычисление приближенного значения. Чем больше n, тем точнее.

program Prog13;

const
a = 0.6;
b = 2.4;

var n : integer;

function f(x: real): real;
begin
f := (1+0.5*x*x)/(1+Sqrt(0.8*x*x+1.4));
end;

function IntegrTrap(x1,x2:real;n:Integer):real;
var i:Integer;
    dx,s:real;
begin
  s:=0;
  dx:=(x2-x1)/n;
  for i:=1 to n do
     s:=s+dx*(f(x1+i*dx)+f(x1+(i-1)*dx))/2;
  IntegrTrap:=s;
end;

begin
 Write('число интервалов разбиения =');
 ReadLn(n);
 WriteLn('приближенное значение =',IntegrTrap(a,b,n));
 ReadLn;
end.

а как сюда точность включить е=0.001

[now2]

ааааууушки))) форумчане !!))

[now2]

она с точностью работать чтоли не будет ?