Технический форум - Помогите решить задачу

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

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

- - Помогите решить задачу (http://www.tehnari.ru/f41/t50334/)

Помогите решить задачу

Вычислить и вывести на экран в виде таблицы значения функции, заданной с по-мощью ряда Тейлора, на интервале от хнач до xкон с шагом dx с точностью е в соответствии с вариантом.
Таблицу снабдить заголовком и шапкой. Каждая строка таблицы должна содер-жать значение аргумента, значение функции и количество просуммированных членов ряда.

Так, терпению моему, кажется, приходит конец. Скоро, пользуясь правами модератора, задания без указания языка программирования буду удалять к такой-то матери. Или бабушке. На-до-е-ло!!!

извеняюсь....
borland paskal язык
буду очень благодарен если поможите

Цитата:

Сообщение от billchester (Сообщение 502612)

извеняюсь....
borland paskal язык
буду очень благодарен если поможите

Мало что понял, поскольку не знаю слов ни "извЕняюсь", ни "поможИте", но про Borland Pascal уловил. Пожалуйста. ВНИМАНИЕ, ВАЖНО! Вводить сначала МЕНЬШЕЕ число, например, -2.1, потом - БОЛЬШЕЕ, например, -1.1, затем - шаг. Иначе возникнет ошибка.
Выводятся: Х, результат вычисления, количество слагаемых и, для сравнения, точное значение арктангенса. Точность вычисления задана в виде константы.

Код:

Const

 Eps=0.00001;

VAR

 N,i,k:Word;

 Xbeg,Xfin,Dx,S,X,a:Real;



BEGIN

 Write('Xbeg= ');

 ReadLn(Xbeg);

 Write('Xfin= ');

 ReadLn(Xfin);

 Write('DX= ');

 ReadLn(DX);

 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-1.0/X;

   k:=0;

   a:=-1.0/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,ArcTan(X):24:3);

  end;

 Readln;

END.

спасибо большое