Вычислить сумму бесконечного ряда с заданной точностью - Turbo Pascal (29856)

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

вычислить сумму бесконечного ряда с заданной точностью E=0.5e-6

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

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

const  eps=0.5E-6;
var    s,k:real;
       n:integer;
 
begin
    n:=1;
    s:=1;
    k:=1;
    while 1/k>eps do
    begin
      k:=k*n;
      s:=s+1/k;
      inc(n);
    end;
      writeln('Сумма ряда = ',s);
    readln;
end.

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

В начале кода объявляются необходимые переменные: eps (точность), s (сумма), k (коэффициент), n (количество).
Затем устанавливается начальное значение переменной n равным 1, а переменным s и k равными 1.
Далее идет цикл while, который выполняется до тех пор, пока 1/k больше заданной точности eps.
Внутри цикла переменная k умножается на n, переменная s увеличивается на 1/k, а также увеличивается значение переменной n.
После выхода из цикла выводится сообщение о сумме ряда, используя переменную s.
Конец программы.