Ayuda con numeros primos

[ecfisa]

Empezado por Jcn

Hola, necesito ayuda con este programa para que sume numeros primos entre dos limites pedidos, la cual tiene un error.

Código Delphi [-]
...
    {aqui esta el error}
    IF (numero) mod 2= 0 and (numero<>2 then
...

Hola Jcn.

Si, en esa línea hay un error. Debería ser:

Código Delphi [-]
  if (numero mod 2 = 0) and (numero <> 2) then

Tambíen vas a encontrar otro en:

Código Delphi [-]
  until factor>Sqrt(numero) or primo = False;

Sería:

Código Delphi [-]
  until (factor > Sqrt(numero)) or not primo;

Luego queda saber si ejecuta su cometido...

Saludos.

[Jcn]

gracias nuevamente, no se proque no me di cuenta de eso.

[[nlsgarcia]]

Jcn,

Empezado por Jcn

...sume numeros primos entre dos limites pedidos...

Revisa este código:

Código Delphi [-]
procedure SumNumberPrime(RangoI, RangoF : Integer);
var
   i,j : Integer;
   rn : integer;
   Prime : Boolean;
   SumPrime : Int64;

begin

   SumPrime := 0;

   for i := RangoI to RangoF do
   begin

      Prime := True;

      rn := Trunc(sqrt(i));

      for j := 2 to rn do
      begin
         if (i mod j) = 0 then
         begin
            Prime := False;
            break;
         end;
      end;

      if Prime then
         SumPrime := SumPrime + i;

   end;

   Showmessage(Format('La Suma de los Números Primos entre %d y %d es: %d',[RangoI, RangoF, SumPrime]));

end;

El código anterior realiza la sumatoria de los números primos contenidos entre los limites (RangoI, RangoF) del procedure SumNumberPrime.

Espero sea útil

Nelson.