Да, это я уже понял. Максимально к требуемому результату подобрался путем изменения n методом перебора.
Код:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var A, B, S, h, integ:REAL;
n,i:integer;
function f(x:real):real;
begin
f := (3*ln(x+1))/(1+ln(x+1));
end;
begin
a:=0;
b:=100;
n:=3000;
h := (b - a) / n;
for i := 1 to n-1 do
begin
S := S + f(a + h * i);
end;
integ := h * ( ( f(a) + f(b) ) / 2 + S);
writeln(integ:0:5);
Readln;
end.
Как вообще должна происходить работа с шагом интегрирования? по заданию оно 0.1, здесь мне для результата 3000 мало)
Извини за глупые вопросы, но просто физически не смогу перерыть всю мат. часть за короткий срок(
Заранее спасибо.