вычислить двойную сумму

@MyEyesStillCry · Регистрация: 19.06.2010

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

Вычислить сумму $https://www.cyberforum.ru/cgi-bin/latex.cgi?2,7\sum_{i=1}^{20}\ln i\sum_{i=1}^{\infty}(\sqrt{(i+j)}/j!$
Точность вычислений $https://www.cyberforum.ru/cgi-bin/latex.cgi?\varepsilon ={10}^{-4}$

@Samhain · 28.01.2014, 22:02

MyEyesStillCry, вроде так

Pascal

const e=10e-4;
var s,s2,f:real;
   n,i,j:integer;
begin
  s:=0;
  for i:=1 to 20 do
    begin
      s2:=0;
      f:=1;
      j:=0;
      repeat
        inc(j);
        f:=f/j;
        s2:=s2+sqrt(i+j)*f;
      until sqrt(i+j)*f<e;
      s:=s+ln(i)*s2;
    end;
  writeln('s = ',2.7*s:0:4);
  readln;
end.

@MyEyesStillCry 0 / 0 / 0 Регистрация: 19.06.2010 Сообщений: 17
		1
	вычислить двойную сумму 28.01.2014, 20:45. Показов 1786. Ответов 1 Метки нет (Все метки) Вычислить сумму $https://www.cyberforum.ru/cgi-bin/latex.cgi?2,7\sum_{i=1}^{20}\ln i\sum_{i=1}^{\infty}(\sqrt{(i+j)}/j!$ Точность вычислений $https://www.cyberforum.ru/cgi-bin/latex.cgi?\varepsilon ={10}^{-4}$ 0

	28.01.2014, 22:02

Опции темы

вычислить двойную сумму

Решение