Ряд Тейлора

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var x,e,s,t,y:real;
    i:integer;
begin
repeat
write('|x|<=1 x=');readln(x);
until abs(x)<=1;
e:=0.00001;
t:=-x;
s:=t;
i:=0;
while abs(t)/(2*i+1)>e do
 begin
  i:=i+1;
  t:=-t*x*x;
  s:=s+t/(2*i+1);
 end;
if x>0 then s:=pi/2+s
else s:=s-pi/2;
writeln('S=',s:0:5);
if x=0 then y:=pi/2
else y:=arctan(1/x);
write('Arcctg(',x:0:2,')=',y:0:5);
readln
end.

repeat  //вводим x по модулю <=1
write('|x|<=1 x=');readln(x);
until abs(x)<=1;
e:=0.00001;//вводим или назначаем  точность вычислений
t:=-x;//нулевой член ряда
s:=t; //начальная сумма
i:=0; //номер члена ряда
while abs(t)/(2*i+1)>e do //пока модуль очередного члена ряда,
                          //деленный соотвествующее нечетное число больше точности
 begin
  i:=i+1;//увеличим счетчик на 1
  t:=-t*x*x;//сменим знак и домножим на x^2
  s:=s+t/(2*i+1);//поделим на соотвествующее нечетное число и прибавим
 end;  //сумму рада посчитали
if x>0 then s:=pi/2+s//если х положительно прибавим pi/2
else s:=s-pi/2; //иначе вычтем
writeln('S=',s:0:5); //выведем сумму
if x=0 then y:=pi/2 //и arctg для проверки
else y:=arctan(1/x);
write('Arcctg(',x:0:2,')=',y:0:5);