Помощь - Поиск - Пользователи - Календарь
Полная версия: Помогите решить задачку.
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
alex1927dk
Пожалуйста, помогите решить задачку. Вот условие:

Вычислить приближенное значение бесконечной суммы 1-1/3+1/5-1/7+...(для сравнения ее точное значение равно пи/4). Необходимое приближение считается полученным, если модуль разности двух последовательно вычисленных слагаемых суммы не превышает некоторого числа ε> 0.
Lapp
Цитата(alex1927dk @ 14.04.2012 0:09) *
приближенное значение бесконечной суммы 1-1/3+1/5-1/7+...

  e:= 1e-6;
  s:= 1.0;
  i:= 1.0;
  k:= 1.0;
  while 1.0/i>e do begin
    i:= i+2.0;
    k:= -k;
    s:= s+k*1.0/i
  end;
  writeln('s = ',s);

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.