интеграл

[SVing]

Ребята , начал переделывать программу и запутался помогите пожалуйсто



надо по методу левых прямоугольников сделать ,сдесь трапеция ,помогите передлеать


program lnteg1;
uses crt;
const eps=0.001;
var
a,b,x,integral:real;
nn :integer;
Function F1(x:real):real;
begin
f1:=1/sqrt(2)*ln*((x+0,75+sqrt(x*x+0,75*0 ,75)-0,0625))))/0,75+sqrt(0,5);
end;

Function F(x:real):real;
begin
f:=1/sqrt(1+3*x+2*x*);
end;
procedure treygol(a1,b1:real; n:integer;
eps1:real; var tk:real);

var
i :integer;
x,t0,s,h:real;
begin
t0:=(b-a)*(f(a)+f(b))/2;
while true do
begin
h:=(b-a)/n;
s:=(f(a)+f(b))/2;
for i:=1 to n-1 do
begin
x:=a+i*h;
s:=s+F(x);
end;
tk:=s*h;
if abs(tk-t0)<eps then exit;
t0 :=tk;
n:=2*n;
end;
End;
begin
clrscr;
write('vvedite predele integrirovania a,b');
readln(a,b);
nn:=6;
treygol(a,b,nn,eps,integral);
writeln('znagenie integrala=', integral:8:4);
writeln('znagenie integrala po formule N-L=', (F1(b)-F1(a)):8:4);
repeat until keypressed;
end.

[SVing]

никто не ответит ?

[SVing]

гляньте кто пожалуйсто