Задачка для языка Free PascalОписать функцию S(x,eps), вычисляющую значение суммы ряда

Второе

2-ое

Function F(x,eps:double):double;
var
  s0,s1,sgn,d:real;
begin
  s1:=x; d:=1; sgn:=1;
  repeat
    s0:=s1; d:=d+1; sgn:=-sgn;
    s1:=s0+sgn*x/d
  until абс(s1-s0)lt;=eps;
  f:=s1
end;

var
  x:double;
begin
  x:=-0.5;
  while xlt;=0.5 do begin
    Writeln(x:4:1,F(x,1e-7):14:7);
    x:=x+0.1
    end
end.

Итог
-0.5    -0.3465736
-0.4    -0.2772589
-0.3    -0.2079442
-0.2    -0.1386295
-0.1    -0.0693148
 0.0     0.0000000
 0.1     0.0693148
 0.2     0.1386295
 0.3     0.2079442
 0.4     0.2772589
 0.5     0.3465736