Помогите написать программу в паскале

[Kampuchiec]

Помогите написать программу в паскале

Всем доброго времени суток, прошу помочь с программой

1. Составить алгоритм и написать код программы, вычисляющей значения суммы ряда S при заданных с консоли начальном и конечном значениях аргумента x (x_nach, x_kon), шаге его изменения delta_x и точности вычислений eps.

 

[Vladimir_S]

Всем доброго времени суток, прошу помочь с программой

1. Составить алгоритм и написать код программы, вычисляющей значения суммы ряда S при заданных с консоли начальном и конечном значениях аргумента x (x_nach, x_kon), шаге его изменения delta_x и точности вычислений eps.

Получите:

VAR
 N,i,k:Word;
 Xbeg,Xfin,Dx,S,X,a,Eps:Real;

BEGIN
 Write('Xbeg= ');
 ReadLn(Xbeg);
 Write('Xfin= ');
 ReadLn(Xfin);
 Write('DX= ');
 ReadLn(DX);
 Write('Eps= ');
 ReadLn(Eps);
 N:=Round((Xfin-Xbeg)/DX);
 WriteLn('   X        Result      Number of items     Accurate value');
 For i:=0 to N do
  begin
   X:=Xbeg+DX*i;
   S:=Pi/2-X;
   k:=0;
   a:=-X;
   Repeat
    Inc(k);
    a:=-a*SQR(X)*(2*k-1)/(2*k+1);
    S:=S+a;
   Until Abs(a)<Eps;
   WriteLn(X:6:3,S:12:3,k:12,(Pi/2-ArcTan(X)):24:3);
  end;
 Readln;
END.

 

[Kampuchiec]

Спасибо огромное