Sequência de Fibonacci

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

[ Hits: 9.837 ]

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

Matriz simétrica

Calculadora básica em Pascal

programa pra carregear duas matrizes e achar o maior

Metodo de Ordenacion : Burbuja

Editor de Texto feito no Lazarus(Delphi 7 para Linux)


  

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