Números primos (usando arrays)
Publicado por Santiago Staviski (última atualização em 10/12/2009)
[ Hits: 8.648 ]
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.
Calculadora completa com porcentagem(Lazarus)
Nenhum coment�rio foi encontrado.
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
O que você quer para sua vida ao usar o Linux?
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Encontrar o comando completo de uma janela (0)
Mikrotik não abre o webmail-segur... da Locaweb (11)
Olha que maravilha, Arch no C2D 7400, 2GB de RAM, vídeo onboard e no G... (3)
Instalação de Ubuntu em SSD (interno) como se fosse um dispositivo ext... (1)