Sequência de Fibonacci

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

[ Hits: 13.687 ]

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 Empresarial Lazarus

calculo de porcentagem em vetores

Função Fatorial Recursiva em Ada 95

armazenar estoque em uma matriz

Menu


  

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