print (exp(x)*(1+sin(x)))/(1+cos(x)) [0, 1.5]

результат
4.1751256724969823525

Option Explicit
Const Infinity = 3000000
Dim n As Long
Dim i As Long
Dim Area As Double
Dim b As Double
Dim a As Double
Dim DeltaX As Double
Const pi As Double = 3.14159265358979

Function F(x As Double) As Double
F = (Exp(x) * (1 + Sin(x))) / (1 + Cos(x))
End Function

Private Sub Form_Load()
Show

'AREA
n = Infinity
a = 0
b = 1.5
DeltaX = (b - a) / n
Area = 0

pb.Min = 1
pb.Max = n + 1
pb.Value = 1

For i = 1 To n

Area = Area + F(a + i * DeltaX) * DeltaX
If i Mod 50000 = 0 Then
    pb.Value = i
    DoEvents
End If

Next i

MsgBox Round(Area, 4)
End Sub

а нафик...

я ж не юзер...

есть и маткад и автокад тока чёто ставить влом

я ж не юзер...

А завтра по линейной алгебре домашка будет?

program integeral;
uses crt;
const a=0;b=1.5;
var
  eps,r,r2:real;  { Предыдущее и текущее приближенные значения интеграла}
  n:integer;

function f(x:real):real;
begin
  f:=(exp(x)*(1+sin(x))/(1+cos(x)));
end;
{------------------------------------------------------------------------------}
{ Метод трапеций }
function trap(a,b:real;n:integer):real;
var
  s:real;
  h:real;
  i:integer;
begin
  h:=(b-a)/(n-1);
  s:=(f+f(b))/2;                 { Начальное значение суммы }
  for i:=1 to n-2 do
   s:=s+f(a+i*h); { Суммиование остальных элементов}
  trap:=s*h;
end;
{------------------------------------------------------------------------------}
{ Метод Симпсона }
function simpson(a,b:real;n:integer):real;
var
  s:real;
  dx:real;
  i:integer;
  mn:integer;  { Очередной множитель }
begin
  dx:=(b-a)/(n-1);
  s:=f+f(b);                     { Начальное значение шага }
  mn:=4;                            { Первый мнодитель - 4 }
{ Суммирование остальных элементов }
  for i:=1 to n-2 do begin
    s:=s+mn*f(a+dx*i);
    if (mn=4) then mn:=2 else mn:=4;{ Именение мноителя 2<>4 }
  end;
  simpson:=s*dx/3;
end;
{------------------------------------------------------------------------------}
function lev(a,b:real;n:integer):real;
var
  s,x:real;
  dx:real;
  xb:real;
  i:integer;
 begin
 dx:=(b-a)/n; s:=0; xb:=a;
   for i:=1 to n do
     begin
       x:=xb+i*dx;
       s:=s+f(x)*dx;
     end;
  lev:=s;
 end;

{------------------------------------------------------------------------------}
function sred(a,b:real;n:integer):real;
var
  s,x:real;
  dx:real;
  xb:real;
  i:integer;
 begin
 dx:=(b-a)/n; s:=0;
 xb:=a+dx/2;
 for i:=0 to n-1 do
  begin
    x:=xb+i*dx;
    s:=s+f(x)*dx;
  end;
  sred:=s;
 end;
 {------------------------------------------------------------------------------}
function prav(a,b:real;n:integer):real;
var
  s,x:real;
  dx:real;
  xb:real;
  i:integer;
 begin
dx:=(b-a)/n; s:=0; xb:=b;
   for i:=1 to n do
     begin
       x:=xb-i*dx;
       s:=s+f(x)*dx;
     end;
  prav:=s;
 end;
{------------------------------------------------------------------------------}

{ Основная программа }
begin
clrscr;
write('Vvedite to4nost eps > 0: ');readln(eps);
{ Вычисляется интеграл по методу трапеций }
  n:=10;
  r:=trap(a,b,n);
  repeat
    r2:=r;
    n:=n+2;
    r:=trap(a,b,n);
  until (abs(r-r2)<eps);
writeln(' Резльтат по методу трапеций равен: ',r:6:5);
writeln(' для получения необходимой точности интервал был разбит на');
writeln(n,' отрезков');
{------------------------------------------------------------------------------}

{ Вычисляется интеграл по методу Симпсона }
  n:=10;
  r:=simpson(a,b,n);
  repeat
    r2:=r;
    n:=n+2;
    r:=simpson(a,b,n);
until (abs(r-r2)<eps);
  writeln;
  writeln(' Резльтат по методу Симпсона равен: ',r:6:5);
  writeln(' для получения необходимой точности интервал был разбит на ');
  writeln(n,' отрезков');

{------------------------------------------------------------------------------}

{ Вычисляется интеграл по методу левых прямоугольников }
  n:=10;
  r:=lev(a,b,n);
  repeat
    r2:=r;
    n:=n+2;
    r:=lev(a,b,n);
until (abs(r-r2)<eps);
  writeln;
  writeln(' Резльтат по методу левых прямоугольников равен: ',r:6:5);
  writeln(' для получения необходимой точности интервал был разбит на ');
  writeln(n,' отрезков');
{------------------------------------------------------------------------------}

{ Вычисляется интеграл по методу средних прямоугольников }
  n:=10;
  r:=sred(a,b,n);
  repeat
    r2:=r;
    n:=n+2;
    r:=sred(a,b,n);
until (abs(r-r2)<eps);
  writeln;
  writeln(' Резльтат по методу средних прямоугольников равен: ',r:6:5);
  writeln(' для получения необходимой точности интервал был разбит на ');
  writeln(n,' отрезков');
  
{------------------------------------------------------------------------------}

{ Вычисляется интеграл по методу правых прямоугольников }
  n:=10;
  r:=prav(a,b,n);
  repeat
    r2:=r;
    n:=n+2;
    r:=prav(a,b,n);
until (abs(r-r2)<eps);
  writeln;
  writeln(' Резльтат по методу правых прямоугольников равен: ',r:6:5);
  writeln(' для получения необходимой точности интервал был разбит на ');
  writeln(n,' отрезков');
end.