- 17.03.2015 06:59
- Информатика
- remove_red_eye 4894
- thumb_up 39
Ответы и объяснения 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.
- 18.03.2015 01:45
- thumb_up 48
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.