Задача с факториалами, как это решается ??? Опции

[Art87]

Здравствуйте уважаемые программисты. Помогите начинающему с задачей пожалуйста

Вычислить сумму бесконечно сходящегося ряда

Я присоединил в виде картинки...

Сообщение отредактировано: volvo - 23.04.2005 13:07

[volvo]

В следующий раз пользуйся поиском, я уже решал подобные задачи на форуме... :yes:

var
  x, next, s: real;
  i: integer;
  is_minus: boolean;

begin
  x := 0.5; { здесь - ввод X с клавиатуры }
  { и проверка на попадание в заданный интервал }

  s := 1; i := 1; next := 1;
  is_minus := true;
  repeat
    next := next * ( (2 * sqr(i) + 1) / ((2*i - 1)*(2*i)) ) * sqr(x);
    s := s + (1 - 2 * byte(is_minus)) * next;
    is_minus := not is_minus; inc(i)
  until next <= 0.00001; { здесь введешь необходимую точность }

  writeln('s = ', s:10:7)
end.

[Art87]

Спасибо огромное!!!