Описать функцию PowerA(x,a,eps)

[Lena24]

Описать функцию PowerA(x,a,eps) вещественного типа (параметры x, a, eps – вещественные, |x| < 1, a > 0, eps > 0), находящую приближенное значение функции:



В сумме учитывать все слагаемые, большие по модулю eps. С помощью PowerA найти приближенное значение (1+x)a для данных x и a при шести различных значениях eps.

Вот я попытался, но он выдаёт одно и тоже каждый раз. Что я делаю не правильно?

program Project1;
 
{$APPTYPE CONSOLE}
 
uses 
math; 
CONST n=100; 
function chisl(a: integer; n:integer):integer; 
var 
i,res:integer; 
begin 
res:=1; 
 
for i:=a-n+1 to a do 
res:=res*i; 
 
chisl:=res; 
end; 
 
function faktorial(n: integer):integer; 
var 
i,res:integer; 
begin 
res:=1; 
 
for i:=2 to n do 
res:=res*i; 
 
faktorial:=res; 
end; 
 
 
function PowerA(x:real; a: integer; eps:real):real; 
var 
n:integer; 
cur,res:real; 
begin 
res:=0; 
n:=0; 
cur:=1; 
 
while(abs(cur) > eps) do 
begin 
res:=res+cur; 
inc(n); 
PowerA:=(chisl(a,n)*PowerA(x,n,eps))/faktorial(n); 
end; 
end; 
 
var 
x,eps:real; 
i,a:integer; 
begin 
 
writeln('Input x:'); 
read(x); 
writeln('Input a:'); 
read(a);
 
for i:=1 to 6 do 
begin 
writeln('Input Eps:'); 
read(eps); 
writeln('PowerA(x,a,eps)=',PowerA(x,a,eps)); 
readln;
 
end;
 
end.

[netpolice]

function chisl(a: integer; n:integer):integer; 
var 
i,res:integer; 
begin 
res:=1; 
 
for i:=a-n+1 to a do 
res:=res*i; 
 
chisl:=res; 
end;

А как вы вещественное а так резко изменили на Integer, да и не только в данной ф-ции но и везде

[netpolice]

PowerA:=(chisl(a,n)*PowerA(x,n,eps))/faktorial(n);

Вот здесь вы, чёй то с рекурсиями напортачили (или я в формулу не вник),
там вроде как х в степени n

function PowerA(x:real; a: integer; eps:real):real; 
var 
n:integer; 
cur,res:real; 
begin 
res:=0; 
n:=0; 
cur:=1; 
 
while(abs(cur) > eps) do 
begin 
res:=res+cur; 
inc(n); 
PowerA:=(chisl(a,n)*PowerA(x,n,eps))/faktorial(n); 
end; 
end;

Здесь переменная cur как присвоили 1 , так она нигде и не меняется, на мой взгляд здесь while должен перейти в бесконечный цикл (или не выполнится ниразу)