Для x, изменяющегося в интервале от x0 до xk с шагом h, вычислить значения бесконечной суммы S(x) с точностью Е=0.00001 и функции y(x).
Приложения:
Ответы на вопрос
Ответил petyaGavrikov
0
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.
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.
Ответил kostianvorox13
0
Блин, а мог бы пожалуйста посмотреть еще эту http://znanija.com/task/14765651
Новые вопросы