факториал Опции

[medved777]

Помогите пожалуйста, исправить программу. Очень прошу! Только, извиняюсь, но не смогла вставить теги.

Условия :Вычислить п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 - 18.01.2007 14:42