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)
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
[ 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
Fator
script para ler um vetor e mostrar o conteúdo
pares ou impares
Script Tabuada
Números perfeitos
Comentários
| Nenhum comentário foi encontrado. |
Indicar para um amigo
Escrever um script