Вычислить с точностью ε

[hadgehog]

Даны действительные числа x, ε (x не равно 0, ε>0). Вычислить с точностью ε(ε=10-3,10-4,10-5,10-6)сумму ряда и указать количество учтеных слагаемых. Результаты оформить в виде таблицы:
е Сумма N
10-3
10-4
10-5
10-6
Ограничиться рассмотрением первых 10-ти членов.

[Simply-Art]

Есть куча способов вычислений с точностью ε. Нужно указать конкретный способ (тему которую вы проходите).

[digitalis]

Условие прибабахнутое (как и огромное множество учебных задач). Если x > 1, ряд расходится, какие члены ни рассматривай.

[newerow1989]

function step2(chislo,stepen:real):real;
begin
   Result:=exp(stepen*ln(chislo));
end;

function f(x,e:real):real;
var k:integer;
    xi:real;
begin
   Result:=0;
   For k:=1 to 10 do
   begin
      xi:=step2(x,k*k);
      Result:=Result+xi;
      If Abs(xi)<e then
         Exit;
   end;
end;

var x:real;
begin
   Write('x = '); Readln(x);
   Writeln('e    N');
   Writeln('10-3 ',f(x,0.001):5:10);
   Writeln('10-4 ',f(x,0.0001):5:10);
   Writeln('10-5 ',f(x,0.00001):5:10);
   Writeln('10-6 ',f(x,0.000001):5:10);
   Readln;
end.