Números primos (usando arrays)
Publicado por Santiago Staviski (última atualização em 10/12/2009)
[ Hits: 8.661 ]
Homepage: http://allenkonstanz.blogspot.com
Download lista03_questao04v2.pas
Download 1259240296.lista03_questao04v2.pas (versão 2)
Usando o Crivo de Erastótenes, fiz esse algoritmo que informa os números primos e a quantidade no intervalo de 2 a 1000.
Versão 2 - Enviado 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
Download 1259240296.lista03_questao04v2.pas
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.
calculo da somatoria da diagonal principal
Nenhum coment�rio foi encontrado.
Customizar a Instalação do Linux Debian com Preseed
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
Sem espaço na partição home (7)
Aprendendo mais sobre Linux com livro (6)
Procrastinação e autossabotagem são problemas muito comuns na sociedad... (6)