Решение задачи Proc 44

# include <iostream>
# include <windows.h>
# include <cmath>
# include <iomanip>
# include <fstream> 
 
using namespace std;
 
double Arctg1(double x, double e);
int main ()
 
{
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  ifstream in ("Proc44.txt");
  double x, e;
  double answer; // приближенное значение функции arctg(x)
  cout << "Введите число x (|x|<1): ";   cin >> x;
  cout << '\t' << "Стандартное значение фунцкции arctg(x): " << atan(x) << endl;
  for (int i=1; i < 7; ++i) {
  	cout << "Число e (e>0): ";
  	in >> e;
  	cout << e << " ";
  	answer = 0;
  	answer = Arctg1(x, e);
  	cout << '\t' << "Приближенное значение функции arctg(x): " << answer << endl;       }   system ("pause");   return 0; }   double Arctg1( double x, double e) {   int i;   double sum,Step;   Step = x;   sum = x;   i = 1;   while (abs(Step*x * x / -(i*2+1)) >= e){
    Step *= -(x * x);
    sum += Step / (i*2+1);
    i++;
  }
  return sum;
}

import random
import math

def Arctg1(x,eps):
    if eps <= 0:
        print("Epsilon should be greater than 0")
    y = x
    f = x
    i = 3
    while abs(y) > eps:
        y *= (-1) * x * x / i * (i - 2)
        i += 2
        f += y
        #print(i,":",y,":",f)
    return f

#x = -0.5
#x = 2
x = 0.9
eps = 0.01
for i in range(0, 6):
    print("Arctg(",x,") = ",Arctg1(x,eps),";",math.atan(x))
    eps /= 10
									

program Proc44;
 
Function Arctg1(x,e:Real):Real;
var
Znak,i:integer;
xi,ni:Real;
TempRez,Rez:Real;
 
begin
xi:=1;
i:=0;
Znak:=-1;
Rez:=0;
TempRez:=x;
 
While (abs(TempRez) > e) do
 begin
  if odd(i) then
   begin
    Znak:=Znak*(-1);
    Rez:=Rez+Znak*TempRez;
   end;
  inc(i);
  xi:=xi*x;
 if odd(i) then
  begin
   TempRez:=xi/i;
  end;
 end;
Arctg1:=Rez;
 
end;
 
var
  X,E:real;
  i: integer;
 
begin
   Write('X :');
   Readln(X);
   for i:=1 to 6 do
    begin
     Write('E :');
     Readln(E);
     Writeln(Arctg1(X,E));
    end;
end.