Численное интегрирование. метод трапеций паскаль

[Оксид]

плохо разбираюсь, помогите

[Аватар]

покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[Оксид]

uses crt;
function F(x:real):real;
begin
 F:=1/sqrt(x)*ln(x);
end;
var a,b,k,s,e:real;
begin
 clrscr;
 a:=1.9;
 b:=3.604;
 e:=0.001;
 s:=(F(a)+F(b))/2;
 k:=a-e;
 while k<=b+e do
  begin
    k:=k+e;
    s:=s+F(k);
  end;
 s:=s*e;
 write('S=',s:0:6);
 readln
end.

[Serge_Bliznykov]

Оксид, весьма неплохо!

я бы такой вариант чуть-чуть подправленный вариант предложил:

uses crt;
function F(x:real):real;
begin
 F:=1/(sqrt(x)*ln(x));
end;
var a,b,k,s,e:real;
begin
 clrscr;
 a:=1.9;
 b:=3.604;
 e:=0.001;
 s:=(F(a)+F(b))/2;
 k:=a;
 while (k+e)<b do
  begin
    k:=k+e;
    s:=s+F(k);
  end;
 s:=s*e;
 write('S=',s:0:6);
 readln
end.

p.s. а в чём проявляется то, что Вы плохо разбираетесь?
по-моему, нормально разбираетесь. зачёт!