Número de Fibonacci em Pascal

Outra dúvida muito comum de lógica é o número Fibonacci em Pascal.

A série de Fibonacci sé dá pela somas de seus antecessores:

f(n) = f (n-1)+f(n-2) (se n>0)

f(0)= 0 e f(1)=1

Então temos:

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

f(3) = f(2)+f(1) = 2

f(4)= f(3)+f(2) = 3

e assim por diante.

O que se explica de forma matemática se aplica ao programa.

Fibonnacci Pascal.png

Código Fonte:

 Program Serie_de_Fibonacci;  
 Uses Crt;  
 var  
  i,n : Integer;  
  fb : Array [0..20] of LongInt;  
 begin  
  ClrScr;  
  WriteLn ('Serie de Fibonacci de 1 a 20');  
  WriteLn;  
  // Definicao  
  fb[0] := 0;  
  fb[1] := 1;  
  // Calculo  
  for i := 2 to 20 do  
   fb[i] := fb[i-1]+fb[i-2];  
  // Resultados  
  for i := 0 to 20 do  
   WriteLn ('f(',i:2,')=', fb[i]:7);  
  ReadLn; // Pausa  
 end.  

Se tem dúvida envie para mim.

2 comentários:

  1. Tenho um exercício no qual preciso retornar o primeiro elemento da sequência Fibonacci com 5 dígitos. O grande problema, é que não sei exatamente a parte dos "5 dígitos". O que querem dizer com isso? Desculpe a ignorância.

    ResponderExcluir
  2. Bom dia, o primeiro número com cinco dígitos é 10000 que vem depois 9999 com 4 dígitos...em resumo o primeiro número acima de 10000 é o número pretendido.

    ResponderExcluir