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

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

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

В следующий раз пользуйся поиском, я уже решал подобные задачи на форуме... :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.

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

Извините, можно еще один вопрос?
А как указывать точность, когда делаешь через for и while?

А как, собственно, это сделать через for ? Что должно быть параметром цикла? Если i, то не пойдет, мы не знаем сколько итераций потребуется... Вещественное число тоже не пойдет, параметр для for должен быть перечислимого типа... Так что с for проблемы... А while...

while next > 0.00001 do begin
  { здесь то же самое что и в REPEAT .. UNTIL }
end;

А мою задачу тоже через for нельзя сделать?

цикл for употребляется только в том случае, когда известно, сколько итераций будет произведено, ты при любой точности можешь высчитать кол-во итераций ??))))

в общем ответ - нет.

можно. потрясный эффект даёт dec(счётчик) в теле цикла

с точки зрения сруктурного программирования, нельзя изменять счетчик внутри цикла. Паскаль это делать позволяет а вот насчет других не уверен...
Так что лучше этого не делать нигде!