Const
eps = 2e-2;
h = 5e-2;
a = 4;
b = 5;
function f(x:real):real;
var s : real;
begin
s := sqrt(x);
f := (x+1-s)*exp(s) - (x+1+s)*exp(-s)
end;
function g(x:real):real;
var
r,d: real;
s,t: real;
k: integer;
begin
r := f(x);
t := sqrt(x) * 8;
s := 0;
k := 0;
repeat
k := k + 1;
t := t * x / (2*k) / (2*k + 1);
s := s + t * sqr(k);
d := abs(r - s);
until d <= eps;</span>
g := s
end;
var
x,m,n,d:real;
begin
writeln(' x g(x) f(x) d');
x := a;
while x <= b do</span>
begin
m := f(x);
n := g(x);
d := abs(m - n);
writeln(x:5:2, n:8:2, m:8:2, d:8:2);
x := x + h
end;
end.