Вычисление суммы членов бесконечного ряда - Turbo Pascal (35268)

Формулировка задачи:

вычислить сумму членов рядом при заданном значении eps. определить число членов ряда, использованых для нахождения суммы. pi=S=4(1-1/3+1/5-1/7+1/9-...+(-1)^(n+1)*1/(2n-1)+...) eps=0.0001 [a,b]=-

Код к задаче: «Вычисление суммы членов бесконечного ряда - Turbo Pascal (35268)»

textual
program pi;
{вычислить сумму членов рядом при заданном значении eps. определить число членов ряда, использованых для 
нахождения суммы.
pi=S=4(1-1/3+1/5-1/7+1/9-...+(-1)^(n+1)*1/(2n-1)+...)
eps=0.0001}
uses
  crt;
var
  eps, s : real;
  i, j, k : longint;
begin
  clrscr;
  write('eps = ');
  readln(eps);
  j := 1;
  k := 1;
  i := 0;
  s := 0;
  while abs(j/k)>=eps do
   begin
    inc(i);
    s := s + j/k;
    j := j * (-1);
    k := k + 2;
   end;   
  s := s * 4; 
  writeln('Число членов ряда : ',i,' pi = s = ',s:0:9); 
  readln;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

8   голосов, оценка 3.500 из 5


СДЕЛАЙТЕ РЕПОСТ