Rechercher les premiers nombres premiers

Télécharger le projet
Commenter

Description

Tout est dans le titre ce petit programme permet de chercher beaucoup de nombre premier. On part de 2 et on ne s'arrète pas. On peut enregistrer/charger tous ces nombres premier dans/depuis un fichier texte.
En ce qui concerne la méthode pour trouver les nombres premiers, on vérifie que les restes des divisions du nombre testé par tous les nombres premiers inferieur ou égaux à la racine du nombre tester sont differents de 0. Si c'est le cas alors le nombre est premier alors on l'ajoute dans le tableau conteant tous les nombres premiers trouvés. (voir code ci-dessous)

Source / Exemple : 


procedure trouver;
var
racine:real;
begin
 repeat
  k := 0;
  racine := power(i,0.5);
  while ((i mod t[k]<> 0) and (t[k]<= racine) and (not(stop))) do
   begin
    inc(k);
    Application.ProcessMessages;
   end;
  if t[k]>racine then
   begin
    inc(l);
    SetLength(t,l);
    t[l-1]:= i;
    if form1.Afficherlesnombrestrouver1.Checked then
     begin
      form1.ListBox1.Items.Add(inttostr(i));
      if form1.Resterenfindeliste1.Checked then
       form1.listbox1.TopIndex := form1.listbox1.Items.Count-1;
     end;
   end;
  if not(stop) then
   inc(i);
 until stop;
end;

Conclusion :


N'hesiter pas à critiquer!
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_needle)