Chercheur & verificateur de nb 1er

Soyez le premier à donner votre avis sur cette source.

Vue 3 610 fois - Téléchargée 227 fois

Description

Bon voici un code pas sorcier qui utilise les boucle et la progressbar

Source / Exemple :


@ll in the zip

Conclusion :


Attention, le programme peux prendre beaucoup de ressource

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
155
Date d'inscription
jeudi 6 décembre 2001
Statut
Membre
Dernière intervention
19 avril 2010

oui en effet tu a raison mais se code j'aurai du le regarder avant de le mettre sur le web j'ai oublié de l'optimiser
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
1
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.

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.