правую и левую части равенства a^x=1+x*lna/1!+(x*lna)^2/2!+...+(x*lna)^n/n!+...,
то есть численно убедиться в его справедливости.+вывести кол-во интеграций,
то бишь скорость сходимости.
вот то,что получилось...не могу понять,где ошибка...(деление на 0)
var
f:integer;
x,i,k,kol:byte;
eps,a,ri,le,s,e:real;
begin
writeln('Davayte proverim razlojenie funkcii a^x...');
write('Vvedite znachenie osnovaniya stepeni a=');read(a);
write('Vvedite znachenie argumenta x=');read(x);
write('Vvedite dopustimuyu pogreshnost eps=');read(eps);
le:=1;
for i:=1 to x do
le:=le*a;
writeln('Levaya chast=',le);
ri:=1;k:=1;kol:=0;
repeat
s:=1;f:=1;
for i:=1 to k do
begin
s:=s*x*ln(a);
f:=f*i;
end;
s:=s/f;
ri:=ri+s;
inc(kol);
e:=abs(le-ri);
inc(k);
until e<=eps;
writeln('Pravaya chast=',ri);
writeln('Kol-vo integracii = ',kol);
end.