CHERCHEUR & VERIFICATEUR DE NB 1ER

Commentaire de Nono40 le 27/04/2002 20:31:48

Tu pourrais gagner beaucoup de temps dans la recherche des nombres premiers de la manière suivante :

i:=2;
j:=0;
limite:=(nb+1)Div 2;
while (i <=Limite)And(j<>1) do if (nb mod i) = 0 then j:=1 Else Inc(i)
if j<>1 then result:=result+IntTOStr(nb)+', ';

Il suffit de balayer la moité de 2 à N car si X divise NB et X>N/2 alors NB/X aurait divisé NB et NB/X<NB/2.
Ensuite dès qu'un diviseur est trouvé, ce n'est plus la peine de finir la boucle.