Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле:

@Faiter · Регистрация: 27.10.2010

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

заранее спасибо

@Puporev · 09.03.2011, 12:38

Для n<=15, дальше очень большие числа.

Pascal

uses crt;
function Rec(n:integer):longint;
begin
if n<=4 then Rec:=1
else Rec:=(n+3)*(Rec(n-1)-1)+(n+4)*Rec(n-2);
end;
var n:integer;
begin
clrscr;
write('n=');
readln(n);
write(Rec(n));
readln
end.

Опции темы

Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле:

Решение