double eval(char *str)

  {

  return expr(&str);

  }

 

// Пропуск пробелов

skipblanks(char **str)

  {

  while (**str == ' ') ++*str;

  }

 

// Вычисление суммы

double expr(char **str)

  {

  double value = prod(str);

  while (**str == '+' || **str == '-')

    {

    if (**str == '+' )

      {

      ++*str;

      value += prod(str);

      }

    else if (**str == '-')

      {

      ++*str;

      value -= prod(str);

      }

    }

  return value;

  }

 

// Вычисление произведения

double expr(char **str)

  {

  double value = prim(str);

  while (**str == '*' || **str == '/')

    {

    if (**str == '*' )

      {

      ++*str;

      value *= prim(str);

      }

    else if (**str == '/')

      {

      ++*str;

      value /= prim(str);

      }

    }

  }

 

// Вычисление констант и выражений в скобках

double prim(char **str)

  {

  if (isdigit(**str))

    {

    double value = *(*str)++ - '0';

    while (isdigit(**str))

      value = value * 10 + *(*str)++ - '0';

    return value;

    }

  if (**str == '(')

    {

    ++*str;

    double value = expr(str);

    if (**str == ')')

      ++*str

    else

      error();

    return value;

    }

  error();

  }