Numero primeros en delphi
 

Necesitaria saber como mostrar los n numeros primeros.

Un saludo.

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

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


Saludos...

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

gracias.

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

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

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... :)

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;

Gracias
 

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

Hola,

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.

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

Hola,

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

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

:D :D