Составить формулу для ряда

[virginia]

Составить формулу для ряда

1-2*3*х/2+3*4*х^2/2-.....

 

[Vladimir_S]

1-2*3*х/2+3*4*х^2/2-.....

Пожалуйста:

 

[virginia]

А как ее на паскале записать?нельзя же x в степени I записать

 

[Vladimir_S]

А как ее на паскале записать?

Да по-разному. Например, так:

VAR
 N,i:Integer;
 a,S,x:Real;

BEGIN
 Write('N= ');
 Readln(N);
 Write('x= ');
 Readln(x);
 a:=1;
 S:=a;
 For i:=1 to N do
  begin
   a:=-a/i*(i+2)*x;
   S:=S+a;
  end;
 Writeln('S= ',S:0:3);
 Readln;
END.