Sequência de Fibonacci

Publicado por Santiago Staviski (última atualização em 12/11/2009)

[ Hits: 9.166 ]

Homepage: http://allenkonstanz.blogspot.com

Download questaovalendoponto02.pas




O programa pede ao usuário um número qualquer inteiro e também que informe a quantidade de números da sequência Fibonacci que deseja ver.

Como saída ele informa o número inicial fornecido pelo usuário e em seguida a sequência Fibonacci desse número.

  



Esconder código-fonte

program fibo;
var qnt,numero,anterior,contador,soma: integer;


BEGIN
write('Informe um numero: ');
read(numero);   
write('Informe a quantidade de numeros que deseja ver da sequencia fibonacci: ');
read(qnt);
contador:=0;
soma:=0;
anterior:=numero-1;
while (contador<qnt) do
begin
write(numero,' ');
soma:=numero+anterior;
anterior:=numero;
numero:=soma;
contador:=contador+1;
end;

END.

Scripts recomendados

equação de 2º grau

soma de um intervalo

armazenar estoque em uma matriz

Achar o maior e o menor valor inserido pelo usuario

Script Tabuada


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts