ряд Тэйлора ,посмотрите если не сложно

[танечка155]

Дано разложение некоторой функции y(x) в ряд Тэйлора S(x).
Вычислить для вводимых с клавиатуры значений
x ( │х│ < 1 ), N, K, Eps:
A) Сумму N членов ряда;
B) Сумму членов ряда до достижения заданной точности Eps;
C) Число слагаемых, при котором достигается эта точность;
D) Точное значение функции y(x);




y(x)=(1-x)в степени (-2) ; S(x)=1 + 2x + 3x2 + 4x3 + 5x4 +...



P.s не могу правильно записать,тут имеется в веду, что сначала x было в первой степени, потом в квадрате , потом в кубе, а не умножить на 2, 3, 4. и т.д

[puporev]

Правильно записать выражение со степенью следует так:
y=(1-x)^-2;
Решение.

uses crt;
var x,y,e,s1,s2,t:real;
    n,i:integer;
begin
clrscr;
write('n=');readln(n);
write('x=');readln(x);
write('e=');readln(e);
y:=1/sqr(1-x); {вычисляем самое точное, по формуле}
t:=1;s1:=1;
for i:=2 to n do {вычисляем в цикле с параметром, чем больше n, тем точней}
  begin
    t:=t*x; {считаем x^(i-1)}
    s1:=s1+t*i; {считаем сумму}
  end;
i:=1;t:=1;s2:=1;
while abs(y-s2)>=e do {считаем с заданной точностью}
   begin
    i:=i+1; {увеличиваем счетчик, считаем число слагаемых}
    t:=t*x;
    s2:=s2+t*i;
  end;
writeln('Y=',y:0:5);
writeln('S1=',s1:0:5);
writeln('S2=',s2:0:5);
writeln('Chislo slagaemyh=',i);
readln
end.