Numero primeros en delphi

[creus]

Necesitaria saber como mostrar los n numeros primeros.

Un saludo.

[[Caral]]

Buen chiste.
Estos son los tios, abuelos o padres de los numeros PRIMOS.
Saludos

[[maeyanes]]

No pos, para hacer las tareas de otros...


Saludos...

[creus]

pensaba que en este foro se ofrecia ayuda a parte de cordialidad y respeto por parte de sus integrantes.

gracias.

[[Caral]]

No te enojes creus ,
En la vida tambien hay que disfrutar de vez en cuando.
Explicate mejor que te ayudamos seguro
A que somos cordiales, buenitos
Saludos

[[maeyanes]]

Así es... prestamos ayuda, pero a preguntas bien hechas... digo:

Empezado por creus

Necesitaria saber como mostrar los n numeros primeros.

la verdad que no me dice mucho... solo que te lo marcaron de tarea y quieres que te la hagamos, sin siquiera investigar un poco.

Y esto por que en la red existen muchos ejemplos de como obtener números primos (que me imagino que a eso te refieres con numeros primeros)...


Saludos y de nada...

[[seoane]]

Bueno, aquí te dejo un poco de código:

Código Delphi [-]
function EsPrimo(n: integer): boolean;
var
  i: integer;
begin
  Result:= FALSE;
  for i:= 2 to Trunc(sqrt(n)) do
    if n mod i = 0 then
      Exit;
  Result:= TRUE;
end;

procedure Primos(n: integer);
var
  i: integer;
begin
  i:= 1;
  while n > 0 do
  begin
    if EsPrimo(i) then
    begin
      dec(n);
      ShowMessage(IntToStr(i)); // Writeln(IntToStr(i));
    end;
    inc(i);
  end;
end;

[creus]

Maeyanes, muchas gracias, estoy empezando y los comienzos son duros. El argot del foro aun no lo domino y espero q me entiendas.Muchas gracias de nuevo

[dec]

Hola,

Empezado por Creus

Maeyanes, muchas gracias, estoy empezando y los comienzos son duros. El argot del foro aun no lo domino y espero q me entiendas.Muchas gracias de nuevo

Revisa la guía de estilo de los Foros. Y la guía alternativa que escribió el compañero Román. No cuesta nada seguir ciertas "reglas" que no son tales, sino una serie de "compromisos" establecidos para mejor entendernos todos.

[[maeyanes]]

Te recomiendo que le des una leida a la Guía de Estilo de estos foros...


Saludos...

P.D. Vaya, se me adelantaron... aquí se atrasa uno media décima de segundo y se le adelanta alguien xDDDD

[dec]

Hola,

Hombre Maeyanes... es que no tienes nada que hacer...

[[maeyanes]]

No pos no, así no se puede... xDDD