Рекурентная последовательность определена следующим образом

@alex925 · Регистрация: 19.03.2012

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

Помогите решить с помощью функции.

Рекурентная последовательность определена следующим образом

@tm2012 · 23.03.2012, 13:29

Pascal

var i:integer;
 
function a(i:integer):real;
begin
  if i=0 then a:=1 else
    a:=a(i-1)*i+(1/i);
end;
 
begin
  write('i=');
  readln(i);
  writeln('a(i)=',a(i):2:2);
  readln;
end.

@MayaNash · 24.03.2012, 19:24

Ну... Можно и так, как решил tm2012, но при большом i рекурсия не слишком хороша. Лучше с помощью цикла.

Pascal

function a(i: integer): real;
var j: integer;
     b: real;
begin
a:=1;
for j:=1 to i do
 begin
 b:=a*j + 1/j;
 a:=b;
 end;
end;

Но если тебе надо сразу это найти, без цикла или рекурсии, то я не знаю. Я вообще еще не учила exp даже по математике.

@alex925 · 26.03.2012, 14:00 **[ТС]**

1223456

@alex925 2740 / 2343 / 620 Регистрация: 19.03.2012 Сообщений: 8,832
		1
	Рекурентная последовательность определена следующим образом 23.03.2012, 13:22. Показов 2262. Ответов 3 Метки нет (Все метки) Помогите решить с помощью функции. 0

@alex925 2740 / 2343 / 620 Регистрация: 19.03.2012 Сообщений: 8,832
	26.03.2012, 14:00 [ТС]	4
	1223456 0

Опции темы