Вычисление суммы членов бесконечного ряда - 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]=-

Решение задачи: «Вычисление суммы членов бесконечного ряда»

Листинг программы

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.

Объяснение кода листинга программы

В программе объявлены переменные eps и s типа real, а также переменные i, j и k типа longint.
Строка eps = выводит сообщение о значении переменной eps.
Переменная j инициализируется как 1, а переменная k как 1.
Переменная i инициализируется как 0.
Инициализируется переменная s как 0.
Запускается цикл while, который выполняется до тех пор, пока отношение j/k не станет больше или равно eps.
Внутри цикла переменная j умножается на -1, переменная k увеличивается на 2, и переменная i увеличивается на 1.
После выхода из цикла переменная s умножается на 4.
Выводится сообщение с числом членов ряда (i) и значением суммы (s).
Программа завершается и ожидает ввода пользователя.