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

#include <stdio.h>
 
float exp1(float x, float e){
    float xi=1,ni=1,rez=0,temprez=1;
    int i=0;
 
    while(temprez>e){
        rez+=temprez;
        ++i;
        xi*=x;
        ni*=i;
        temprez=xi/ni;
    }
    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("Exp: %f\n",exp1(x,e));
    }
    return 0;
}

import random
import math

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

eps = 0.01
for i in range(0, 6):
    #x = -0.5
    #x = 2
    x = 1
    print("eps = ", eps, "; e ^",x,"=",Exp1(x,eps),";",math.exp(x))
    eps /= 10
									

program Proc40;
 
Function Exp1(x,e:Real):Real;
var
i:integer;
xi,ni:Real;
TempRez,Rez:Real;
 
begin
xi:=1;
i:=0;
ni:=1;
Rez:=0;
TempRez:=1;
 
While (TempRez > e) do
 begin
  Rez:=Rez+TempRez;
  inc(i);
  xi:=xi*x;
  ni:=ni*i;
  TempRez:=xi/ni;
 end;
Exp1:=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(Exp1(X,E));
    end;
end.