VisualG 15 primeiros numeros da sequencia de fibonacci - guanabara

[Beatriz Dorin]

Algoritmo "sequenciafibonacci"


Var

   anterior, atual, proximo, N: Inteiro


Inicio

   anterior <- 0
   atual <- 0
   proximo <- 1

   Escreval (" Sequencia de Fibonacci: 15 primeiros números ")
   Escreval ("                                              ")
   Escreva (atual)
   Para N <- 1 ate 14 faca
   
      Escreva (proximo)

      anterior <- atual
      atual <- proximo
      proximo <- atual + anterior

   FimPara
   
   Escreval ("                    ")

Fimalgoritmo