066536 / Задача 119 б

Задача 119 б): Вычислить бесконечную сумму с заданной точностью ε (ε>0). Считать что требуемая точность достигнута, если несколько первых слагаемых и очередное слагаемое по модулю меньше, чем ε , это и все последующие слагаемые можно уже не учитывать.

ДА

НЕТ

Текст программы:

uses crt;

var i,n:integer;

e,s,ds:real;

begin

writeln('введите e');readln(e);

s:=0; // обнуление суммы

//------цикл cуммы n членов---

for i:=1 to maxInt do //maxInt – Максимальное значение типа integer: 2147483647

begin

ds:=1/(i*(i+1)); // i-тый член

if ds<e then break;

s:=s+ds; // сумма i-тых членов

end;

writeln('ответ ',s)

end.

Пример выполнения: