Паскаль. Вычислить бесконечную сумму с заданной точностью е

Question

Паскаль. Вычислить бесконечную сумму с заданной точностью е

Алёна Подоплелова Знаток (404), на голосовании 6 лет назад

Вычислить бесконечную сумму с заданной точностью е. Считать, что требуемая точность достигнута, если вычислена сумма нескольких первых слагаемых и очередное слагаемое оказались по модулю меньше, чем число е, - это и все последующие слагаемые моно уе не учитывать. Вычислить: (-2)^0/0!+(-2)^1/1!+..+(-2)^n)n....

Answer 1

c:=1;s:=1; i:=1;
while a > e then begin
c:=c*i;
a:=power(-2,i)/c;
i:=i+1;
end;