Fibonacci

[Guest doug.iae]

não estou conseguindo fazer a série de fibonacci em delphi. Exemplo o número que eu digitar no edit, vai aparecer uma msg se faz parte ou não da série de fibonacci. Exemplo digito "10" vai me vai aparecer uma msg que não faz parte da série. Tem que ser uma FUNCÃO, pode ser booleana.

[Churc]

Opa

Bom teria que pensar em uma fórmula para isso, pra quem não sabe Fibonnaci é

uma sequencia de números com a seguinte forma

1 1 2 3 5 8 13 21

Onde

1 + 1 = 2, 2 + 1 = 3, 3 + 2 = 5, 5 + 3 = 8, 8 + 5 = 13, 13 + 8 = 21

Seria o valor inicial mais ele mesmo e depois o valor final mais o ultimo valor...

Eu não conheço nenhuma fórmula pra isso, a não ser começar desde o 1 e ir até

o número passado, se passar dele e durante a passagem não bater com ele então

ele não faz parte da sequencia, caso contrário sim...

Se alguém souber um jeito mais fácil posta ai!

abraços