• Напишите программу для суммы числового ряда.
    Дан числовой ряд и малая величина е(эпсила). Найдите сумму ряда с точностью е(0,001), общий член которого задан формулой
    [tex] \frac{ {3}^{n} \times n !}{( 2n)!} [/tex]

Ответы 7

  • Я не увидел у Вас тут эпсилон...
  • А вот откуда брать n для достижения нужного эпсилон - это вообще загадка! Почему Вы именно 7 задали?
    • Автор:

      sadie58
    • 6 лет назад
    • 0
  • :/ А все, я решение посмотрел твое, понял. Я просто не особо в математике. Я подумал это просто точность, типо знаков после ','
  • Такие дела...
    • Автор:

      dean463
    • 6 лет назад
    • 0
  • Не зная математику, в информатике делать нечего ))))
    • Автор:

      lizzyl8fm
    • 6 лет назад
    • 0
  • //Pascal//Функция факториалаfunction fact(n: integer): real;begin  if (n = 0) then fact := 1  else fact := n * fact(n - 1);end;//Mainvar  a: real;  n, lim: integer;begin  write('Введите n: '); readln(n);  lim := n; a := 0;  for n := 1 to lim do  begin    //a := a + (power(3,n)*fact(n))/fact(2*n);    a := a + (exp(ln(3)*n)*fact(n))/(fact(2 * n));  end;  writeln('a = ', a:5:3);  readln;end.
    answer img
    • Автор:

      liduvina
    • 6 лет назад
    • 0
  • Чтобы излишне не терять точность и не тратить лишнее время на вычисления, выведем рекуррентную формулу.\displaystyle a_1= \frac{3}{2}; \\ \\ a_{i-1}=\frac{3^{i-1}\cdot (i-1)!}{[2(i-1)]!}; \\  \\  a_i=\frac{3^i\cdot i!}{(2i)!}    = \frac{3\cdot3^{i-1}\cdot i\cdot(i-1)!}{2 i\cdot(2i-1)\cdot(2i)!}={ \frac{3i}{2i\cdot(2i-1)}\cdot a_{i-1}=\frac{3}{4i-2}\cdot a_{i-1}В задании не сказано точно, как определять условие окончания суммирования. Примем, что суммирование завершается, если очередной член ряда не может изменить накопленную сумму больше, чем на ε, т.е.|aₓ| ≤ ε.// PascalABC.NET 3.3, сборка 1583 от 25.11.2017// Внимание! Если программа не работает, обновите версию!begin  var (ai1,eps,s,i):=(3/2,0.001,3/2,2);  while true do begin    var a:=3/(4*i-2)*ai1;    if Abs(a)>eps then begin i+=1; s+=a; ai1:=a end    else Break    end;  Writeln('S = ',s:0:3)end.РезультатS = 2.532
    answer img
    • Автор:

      ryleegjca
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years