Для x, изменяющегося в интервале от x0 до xk с шагом h, вычислить значения бесконечной суммы S(x) с точностью Е=0.00001 и функции y(x).
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
