NOMBRES PREMIERS (SIMPLE )

Commentaire de Gimli le 15/07/2005 21:47:01

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