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

#include <stdio.h>
#include <math.h>

float ln1(float x, float e){
    float ln1_n=x,rez=0;
    int i=0;
 
    while (fabs(ln1_n/(i+1))>e){
        rez+=ln1_n/(i+1);
        ++i;
        ln1_n*=-x/(i+1);
    }
    return rez;
}
 
int main(void)
{
    float x,e;
    printf("X:");
    scanf("%f", &x);
    int i;
    for(i=1;i<=6;++i){
        printf("E: ");
        scanf("%f", &e);
        printf("Ln: %f\n",ln1(x,e));
    }
    return 0;
}

import random
import math

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

eps = 0.01
for i in range(0, 6):
    #x = -0.5
    #x = 2
    x = 0.1
    print("ln( 1 +",x,") = ",Ln1(x,eps),";",math.log(1+x))
    eps /= 10
									

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