Fibonacciho posloupnost – Delphi – Fórum – Programujte.com

Mam problem s vytvorenim programku v Delphi na vypocet n-teho clena Fibonnaciho posloupnosti.Nemohl by mi nekdo pomoci.Jsem zacatecnik.Dik Lenula.

To lenula:tak už to mám,dík L.

Lenula položí otázku, sám si to vyrieši a ešte si aj poďakuje...
Lenula napísal:

To lenula:tak už to mám,dík L.

heh...:D

podle hesla 'nejlepším přítelem člověka je on sám'.. no aspoň někdo ti s tím pomohl :D

zajimalo by me jestli lenula pouziva rekurzivni nebo nerekurzivni variantu:)

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

Ne nemohli :)

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

Nikdo to tady nebude psát celé za tebe. Řekni, kde máš problém a my ti pomůžeme s řešením :smile14:

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;

To Franta : Říkají ti něco cykly, rekurzí se to dá sice taky řešit, ale rozhodně ne tak, jak to píšeš ty, doporucil bych cyklus for

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.

najdes definici fibonacciho posloupnosti

f(1) = 1
f(2) = 1
f(n) = f(n-1) + f(n-2) // pro (n > 2)

pseudokod:

fib(n) returns integer

if n < 2 return 1
else return (fib(n-1) + fib(n-2)

end fib

To kukacka : mam tam nejaky chyby ze spechu, na to uz prijdes sam

To Franta : Tak ať se naučíš i něco jiného než rekurzi http://www.tvoritel.cz/fibonacciho-posloupnost-v-pascalu/

Nemůžu uvěřit tomu, že to bylo tak jednoduche, už mi to pěkně funguje a mužu pomoci této posloupnosti kouzlit :-) Jenom pro ty co by narazili na toto forum a řešili stejný problé tak syntaxe pro delphi je
function f(n:integer):integer;
begin
if n < 2 then result:=1
else
result:=f(n-1)+f(n-2);
end;

Kdy funkci zavoláte f(s parametrem n typu integer)

gratuluju:) dobra prace

To Franta :

Fibonacciho posloupnost je definována takto: http://cs.wikipedia.org/wiki/Fibonacciho_posloupnost.

Takže jenom pro upřesnění - v tom prográmku jsou 2 chybky. Správně by to bylo nějak takto (asi úplně netrefím syntaxi :smile11:):

if n = 0 then result:=0

else begin

	if n = 1 then result:=1

	else

		result:=f(n-1)+f(n-2);

	end;

end;

if n < 3 then result:=1