[Лунтик-Некрофил]

Все, разобрался, оказалось достаточно посмотреть ВУЗовские тетрадки за первый курс).

Код:

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

function f(x:real):real;
begin
f := (3*ln(x+1))/(1+ln(x+1));
end;

function trap(a,b:integer):real;
var S, h,k,n, integ:REAL;
i:integer;
begin
n:= b/0.1;

h := (b - a) / n;

k:=0;
while k < n do
begin
    S := S + f(a + h * k);
    k:= k+ 1;
end;

result := h * ( ( f(a) + f(b) ) / 2 + S);
end;



var i:integer;
begin
i:=50;
while i <= 300 do begin
    writeln(trap(0,i):0:5);
    i:= i+50;
end;
Readln;

end.

Нужно было просто просчитать кол-во шагов итераций и делов-то.
Один минус - при b, равном нулю, происходит ошибка, дебаг не работает нормально, на вскидку определить не могу.
Может кто сразу найдет ошибку?
Заранее спасибо)