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ã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

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.

Script Tabuada

Jogo Sudoku em Pascal

Executar comando do DOS.

Calculadora utilizando until e case

Raiz Quadrada.

Nenhum comentário foi encontrado.