Технический форум - Помогите написать программу в паскале

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

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

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

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

Цитата:

Сообщение от Kampuchiec (Сообщение 831997)

Получите:

Код:

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.

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