Получить последовательность, b1,.,b1, где bi=i*(1/1!+1/2!+.+1/i!)

@ya_artem_zdarov · Регистрация: 25.06.2019

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

Дано натуральное число n. Получить последовательность b1, b2, . . . , bn, где
при i = 1, 2, . . . , n значение bi равно i*(1/1! +1/2! + · · · +1/i!).

@~~Pvt~~ · 27.06.2019, 06:42

Pascal

var i,n,f:integer;
     s:real;
begin
  write('n:');
  readln(n);
  f:=1;
  s:=0;
  for i:=1 to n do
  begin
    f:=f*i;
    s:=s+1/f;
    writeln('b',i,'=',i*s);
  end;
  readln;
end.

@Cyborg Drone · 02.07.2019, 01:02

Pvt, при n > 25 (а в TP так и вовсе при n > 13) Ваша программа будет выдавать неверный результат из-за целочисленного переполнения при вычислении факториала. Лучше сделать так:

Pascal

var
  i, n: integer;
  f, s: real;
 
begin
  write('n = ');
  readln(n);
  f := 1;
  s := 0;
  for i := 1 to n do
    begin
      f := f / i;
      s := s + f;
      writeln('b', i, ' = ', i * s)
    end;
  readln
end.

@ya_artem_zdarov 0 / 0 / 0 Регистрация: 25.06.2019 Сообщений: 18
		1
	Получить последовательность, b1,.,b1, где bi=i(1/1!+1/2!+.+1/i!) 26.06.2019, 21:08. Показов* 2640. Ответов 2 Метки нет (Все метки) Дано натуральное число n. Получить последовательность b1, b2, . . . , bn, где при i = 1, 2, . . . , n значение bi равно i*(1/1! +1/2! + · · · +1/i!). 0

	02.07.2019, 01:02

Получить последовательность, b1,.,b1, где bi=i*(1/1!+1/2!+.+1/i!)

Решение