Pascal/Turbo Pascal - criba de eratostenes

   
Vista:

criba de eratostenes

Publicado por Maria (8 intervenciones) el 02/12/2009 20:10:08
Hola!

Tengo este codigo para la criba de Eratostenes:

program Eratosthenes;

const N=1000;

var a:ARRAY[1..N] of boolean;
i,j,m:word;

begin
for i:=1 TO N do A[i]:=TRUE;
m:=trunc(sqrt(N));
for i:=2 to m do
if a[i] then for j:=2 to N DIV i do a[i*j]:=FALSE;
for i:=1 to N do if a[i] then write(i:4);
end.

Este programa genera los números primos comprendidos entre el 1 y el 1000. necesito que el programa genere números primos desde un numero introducido por pantalla y a partir de ahí genere otros 50 números primos. Alguna idea de como modificar el código???

Gracias de antemano.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Pascal/Turbo Pascal
- Código fuente de Pascal/Turbo Pascal
- Cursos de Pascal/Turbo Pascal
- Temas de Pascal/Turbo Pascal
- Chat de Pascal/Turbo Pascal
información
Códigos de Pascal/Turbo Pascal
- Capicúa
- Reloj en modo binario
- Piano

RE:criba de eratostenes

Publicado por juanchi (44 intervenciones) el 16/12/2009 21:05:55
sisi es facil , tenes que leer de teclado y ese numero te lo guardas , y el array de 1000 que tenes como constante cambiarlo por 50 simplemente.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar