Linux slogan
Visite também: Segurança Linux · BR-Linux.org · Dicas-L · Doode · NoticiasLinux · SoftwareLivre.org · UnderLinux



» Screenshot
Linux: Comunidade Linux
Por removido
» Login
Login:
Senha:

Se você ainda não possui uma conta, clique aqui.

Esqueci minha senha



Scripts

Linux user

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

Login: allen.konstanz, 79923 pontos

Homepage: http://allenkonstanz.blogspot.com   


Descrição

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.

[ Download: questaovalendoponto02.pas ]   [ Enviar nova versão ]

[ 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
   Script Linux recomendado calculo da somatoria da diagonal principal
   Script Linux recomendado Conjuntos
   Script Linux recomendado encontrar o menor valor em um vetor
   Script Linux recomendado Maior e menor
   Script Linux recomendado cadastro de um cliente com registro

Comentários
Nenhum comentário foi encontrado.

Contribuir com comentário


  
Para executar esta ação você precisa estar logado no site, caso contrário, tudo o que for digitado será perdido.
Responsável pelo site: Fábio Berbert de Paula - Conteúdo distribuído sob licença GNU FDL
Site hospedado por:

Viva o Linux

A maior comunidade Linux da América Latina! Artigos, dicas, tutoriais, fórum, scripts e muito mais. Ideal para quem busca auto-ajuda em Linux.