Определить сумму ряда чисел

@Татиана · Регистрация: 13.12.2012

Author24 — интернет-сервис помощи студентам

Написать программу определяющую сумму ряда
$https://www.cyberforum.ru/cgi-bin/latex.cgi?1+(({x}^{2})/2!)+(({x}^{3})/3!)+(({x}^{4})/4!)+...+(({x}^{n})/n!)+...$
c заданной погрешностью $https://www.cyberforum.ru/cgi-bin/latex.cgi?\varepsilon$ (ипсилон) для произвольно заданного аргумента х. определить число повторений итерационного цикла. Сравнить точное значение мс приближенным. выражение для проверки е^x

@Puporev · 31.05.2013, 13:13

Pascal

uses crt;
var x,e,s,t:real;
    n:integer;
begin
write('x=');read(x);
repeat
write('e>0 e=');read(e);
until e>0;
if e>=1 then s:=1
else
 begin
  n:=0;
  t:=1;
  s:=t;
  while abs(t)>e do
   begin
     n:=n+1;
     t:=t*(x/n);
     s:=s+t
   end;
 end;
writeln('S=',s:0:5,' n=',n);
writeln('e^x=',exp(x):0:5);
end.

@Татиана · 31.05.2013, 13:19 **[ТС]**

спасибо большое

@Татиана 1 / 1 / 0 Регистрация: 13.12.2012 Сообщений: 96
		1
	Определить сумму ряда чисел 31.05.2013, 12:32. Показов 1418. Ответов 2 Метки нет (Все метки) Написать программу определяющую сумму ряда $https://www.cyberforum.ru/cgi-bin/latex.cgi?1+(({x}^{2})/2!)+(({x}^{3})/3!)+(({x}^{4})/4!)+...+(({x}^{n})/n!)+...$ c заданной погрешностью $https://www.cyberforum.ru/cgi-bin/latex.cgi?\varepsilon$ (ипсилон) для произвольно заданного аргумента х. определить число повторений итерационного цикла. Сравнить точное значение мс приближенным. выражение для проверки е^x 0

@Татиана 1 / 1 / 0 Регистрация: 13.12.2012 Сообщений: 96
	31.05.2013, 13:19 [ТС]	3
	спасибо большое 0

Определить сумму ряда чисел

Решение