Вычислить сумму функционального ряда и функцию в паскале

[breakoyt]

Вычислить сумму функционального ряда и функцию в паскале

Нужно написать прогу в паскале по вычислению функционального ряда и функции. Дается кол-во членов n, диапазон изменения аргумента и шаг.
Все показано в файле.
Если кто поможет, то буду очень благодарна.

 

[Vladimir_S]

Нужно написать прогу в паскале по вычислению функционального ряда и функции.

Да пожалуйста, нужно - так нужно:

Const
 a=0.1;
 b=1.0;
 h=0.1;

Var
 N,i,j:Integer;
 S,x,Q:Real;

Function Fun(z:real):real;
begin
 Fun:=(1-z*z/2)*Cos(z)-z/2*Sin(z);
end;

Begin
 N:=Round((b-a)/h);
 Writeln(' x      Sum  Accurate value');
 For i:=0 to N do
  begin
   x:=a+h*i;
   Q:=1;
   S:=Q;
   for j:=1 to 40 do
    begin
     Q:=-Q*x*x/(2*(j-1)*(j-1)+1)*(2*j*j+1)/((2*j-1)*2*j);
     S:=S+Q;
    end;
   Writeln(x:3:1,S:9:3,Fun(x):10:3);
  end;
 Readln
End.