Linux slogan
Visite também: BR-Linux.org · Dicas-L · NoticiasLinux · SoftwareLivre.org · UnderLinux · BestLinux



» Screenshot
Linux: Dobrando o Vivaolinux 2
Por ebanoac
» Login
Login:
Senha:

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

Esqueci minha senha

» Wallpaper
Linux: linux
Por dj smile


Scripts

Linux user

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

Login: allen.konstanz, 19490 pontos

Homepage: http://allenkonstanz.blogspot.com   


Descrição
Usando o Crivo de Erastótenes, fiz esse algoritmo que informa os números primos e a quantidade no intervalo de 2 a 1000.

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

Versões atualizadas deste script (NOVO)
Linux user

Publicado por Santiago Staviski em 26/11/2009

Changelog: Nessa versão o programa pede para o usuário informar o intervalo de números primos

(versão 2)

 

[ Esconder código-fonte ]

program primos;

var i,x,qnt:integer;

num:array[2..1000] of boolean;



BEGIN

qnt:=0;

{inicialmente todos os numeros sao primos!}

for i:=2 to 1000 do begin

num[i]:= true;

end;

{processo de verificação dos primos}

for i:=2 to 1000 do begin

  x:=2;

  while i*x <=1000 do begin

  num[i*x]:= false; {nao eh primo}

  x:=x+1

  end;

  end;

  

  {imprimir os números}

  for i:=2 to 1000 do begin

  if num[i] = true then

  write(i,' ');

  qnt:=qnt+1;

  end;

      

END.

Scripts recomendados
   Script Linux recomendado armazenar o nome de um aluno e suas notas
   Script Linux recomendado Calculadora de cargas
   Script Linux recomendado escreve os números de 1 a 9 com repeat - until
   Script Linux recomendado controle de notas de um aluno com registro e array
   Script Linux recomendado diferença entre o maior e o menor numero

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 - Copyleft 2002-2009 Viva o Linux.com.br

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.