Sequência de Fibonacci

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

[ Hits: 13.700 ]

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

Calculadora Completa feita no Lazarus(Delphi 7 para Linux)

armazenar estoque em uma matriz

Número primo

Cronômetro Lazarus/Pascal

Multiplicação de Matrizes


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts