Anonymní profil Franta – Programujte.com

Bez rekurze to vyresit umim
function f(n:integer):integer;
var i,nova,druha,prvni:integer;
begin
prvni:=0;
druha:=1;
for i:=1 to n do
begin
nova:=prvni+druha;
prvni:=druha;
druha:=nova;
end;
f:=nova ;
end;
Ale potřebuji to mit udělane rekurzi, a hlavně to i pochopit potom.

Mám tohle ale nějak to nefunguje:

function ff(n:integer):integer;
begin
if n=1 then
ff:=0
else
begin
if n=2 then
ff:=1
else
begin
ff:=ff(n-1)+ff(n-2);
end;
end;

end;

Hmm tak teda děkuji , to je potom užitečne forum.

Mohl by jsem někdo nakopirovat kod programu v Delphi na vypocet n-teho clena Fibonnaciho posloupnosti, řešený pomocí rekurze.