Составить программу вычисления функции с использованием разложения в ряд. Суммирование прекращать, когда очередное слагаемое станет по модулю меньше заданной точности. Сравнить результаты вычисления функции в различных точках области сходимости ряда со значениями, полученными с стандартных программ. Вывести количество слагаемых. Оценить погрешности метода и вычислений. Предложить наиболее рациональный алгоритм вычисления функции.

var

 A: array[1..100, 1..100] of integer;

 i, j,n,m: integer;

begin

 Writeln('Введите N and M');

 Read(n,m);

 Randomize;

 Writeln('Исходная матрица');

 for i := 1 to N do

 begin

   for j := 1 to M do

   begin

     a[i, j] := Random(-100, 100);

     write(A[i, j]:5);

   end;

   writeln;

 end;

 Writeln('Измененная матрица');

 for i := 1 to N do

 begin

   for j := 1 to M do  

   begin

     if A[i, j] > 0 then a[i, j] := 1;

     if A[i, j] < 0 then a[i, j] := 0;

     Write(a[i, j]:5);

   end;

   Writeln;

 end;

end.