Вычислить сумму бесконечного ряда с заданной точностью - Turbo Pascal (29856)
Формулировка задачи:
вычислить сумму бесконечного ряда с заданной точностью E=0.5e-6
Решение задачи: «Вычислить сумму бесконечного ряда с заданной точностью»
textual
Листинг программы
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.
- Конец программы.