codevs天梯 遞歸第一次 水題

題目：

同學們在做題時常遇到這種函數

f(x)=5 (x>=0)

f(x)=f(x+1)+f(x+2)+1 (x<0)

下面就以這個函數爲題做一個遞歸程序吧

代碼：

var
  n:longint;


function f(x:longint):longint;
begin
  if x>=0 then
    f:=5
  else
    f:=f(x+1)+f(x+2)+1;
end;


begin
  readln(n);
  writeln(f(n));
end.