Вычислить сумму ряда с заданной точностью

@ololo222333 · Регистрация: 15.01.2010

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

Требуется помощь, заранее спасибо.

Даны действительные числа x и ε (x≠0, ε>0). Вычислить с точностью ε и указать количество учтённых слагаемых:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \sum_{k=0}^{\infty}\frac{(-1)^k}{((k+1)!)^2}\left(\frac{x}{2} \right)^{2(k+1)}<br />$

Вычисление выражения под знаком суммы выполнить через рекурсию.

@Puporev · 16.04.2010, 19:14

Pascal

uses crt;
function Rec(x:real;k:integer):real;
begin
if k=0 then Rec:=sqr(x/2)
else Rec:=-Rec(x,k-1)*sqr(x/2)/(k*k);
end;
var x,s,e,t:real;
    i:integer;
begin
clrscr;
repeat
write('x<>0 x=');
readln(x);
until x<>0;
repeat
write('e>0 e=');
readln(e);
until e>0;
if Rec(x,0)<=e then s:=Rec(x,0)
else
 begin
  s:=Rec(x,0);
  i:=0;
  while abs(Rec(x,i))>e do
   begin
    i:=i+1;
    s:=s+Rec(x,i);
   end;
 end;
write('S=',s:0:5,'  i=',i);
readln
end.

@ololo222333 0 / 0 / 1 Регистрация: 15.01.2010 Сообщений: 15
		1
	Вычислить сумму ряда с заданной точностью 16.04.2010, 18:51. Показов 1264. Ответов 1 Метки нет (Все метки) Требуется помощь, заранее спасибо. Даны действительные числа x и ε (x≠0, ε>0). Вычислить с точностью ε и указать количество учтённых слагаемых: $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \sum_{k=0}^{\infty}\frac{(-1)^k}{((k+1)!)^2}\left(\frac{x}{2} \right)^{2(k+1)}<br />$ Вычисление выражения под знаком суммы выполнить через рекурсию. 0

Опции темы

Вычислить сумму ряда с заданной точностью

Решение