cs_Gimli
Messages postés21Date d'inscriptionmardi 31 décembre 2002StatutMembreDernière intervention 5 janvier 2008
-
15 juil. 2005 à 21:47
365tib
Messages postés27Date d'inscriptionvendredi 2 décembre 2005StatutMembreDernière intervention31 janvier 2007
-
17 juin 2006 à 09:43
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
365tib
Messages postés27Date d'inscriptionvendredi 2 décembre 2005StatutMembreDernière intervention31 janvier 2007 17 juin 2006 à 09:43
sa:lut si tu ve g un prog ki les cherche automatikement et ki les écrits dans un fichier text...
j'en suis a environ 9 500 000 si tu le ve fait moi signe...
cs_butcher2
Messages postés5Date d'inscriptionmardi 3 août 2004StatutMembreDernière intervention24 octobre 2005 24 oct. 2005 à 17:30
j'ai tester 667
ce n'est pas Npremier (29*23=667) mai???
ils dit Npremier comment?
cs_Gimli
Messages postés21Date d'inscriptionmardi 31 décembre 2002StatutMembreDernière intervention 5 janvier 2008 15 juil. 2005 à 21:47
Salut,
code interessant, mais j'ai 2 petites remarques à faire:
tout d'abord, pour tester si un nombre est premier on le teste pas jusqu'a sa moitie mais jusqu'a sa racine carré; et pis, pour racourcir le test vaut mieux mettre 1 Break dans la boucle, comme ca quand il a vu qu'il etait pas premier il s'arrete:
par exemple:
Npremier := False;
for i := 2 to Trunc(Sqrt(nombre)) + 1 do
begin
if nombre mod i = 0 then
begin
Npremier := True;
Break;
end;
end;
tu verras ca va beaucoup plus vite!
@+ et bonne prog
17 juin 2006 à 09:43
j'en suis a environ 9 500 000 si tu le ve fait moi signe...
24 oct. 2005 à 17:30
ce n'est pas Npremier (29*23=667) mai???
ils dit Npremier comment?
15 juil. 2005 à 21:47
code interessant, mais j'ai 2 petites remarques à faire:
tout d'abord, pour tester si un nombre est premier on le teste pas jusqu'a sa moitie mais jusqu'a sa racine carré; et pis, pour racourcir le test vaut mieux mettre 1 Break dans la boucle, comme ca quand il a vu qu'il etait pas premier il s'arrete:
par exemple:
Npremier := False;
for i := 2 to Trunc(Sqrt(nombre)) + 1 do
begin
if nombre mod i = 0 then
begin
Npremier := True;
Break;
end;
end;
tu verras ca va beaucoup plus vite!
@+ et bonne prog