Условия :Вычислить пpиближенное значение бесконечной суммы, суммируя n первых членов ряда. Для получения суммы членов ряда следует использовать реккурентную формулу для получения следующего члена ряда через предыдущий.
Найти S (при к от 0 до бескончности) = (-1)^2k/(k^2+1)!
program pr1;
var S,R,e:real;
k:integer;
begin
writeln('vvod stepeni tochnosty');
readln(e);
S:=1; K:=2; r:=1/2;
while r>=e do
begin
R:=R*(1/sqr(k)+1)*(sqr(k))*(sqr(k)-1);
S:=S+R;
k:=k+1;
end;
writeln('S= ',S);
end.
Сообщение отредактировано: volvo -