Question

Для x, изменяющегося в интервале от x0 до xk с шагом h, вычислить значения бесконечной суммы S(x) с точностью Е=0.00001 и функции y(x).

Answer 1

Const E=0.00001;
var x,x0,xk,h,a,s:real; n:integer;
begin
  writeln('Введите x0, xk, h');
  readln(x0,xk,h);
  x:=x0-h;
  repeat
  x:=x+h;
  a:=x; s:=a; n:=0;
   while abs(a)>E do begin
    a:=-a*x*x/(n+1);
    s:=s+a;
    n:=n+1;
  end;
    write('x=',x,'  s=',s);
    writeln('   y=',x*exp(-x*x));
  until x>=xk;
end.