Primalite connaitre ou savoir si un nombre est premier

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 750 fois - Téléchargée 29 fois

Contenu du snippet

Ce programme renvoie la valeur vrai si c'est un nombre premier

Source / Exemple :


Public Function Premier(n As Currency) As Boolean
Dim x As Currency, y As Currency, r As Currency
'Définition d'un nombre premier
'Un nombre est premier s'il n'est divisible que par lui-même et par l'unité
If n Mod 2 = 0 Then
Premier = False
Exit Function
End If

y = Abs(Fix(-Sqr(n)))
If y < 3 Then y = 3
For x = y To 3 Step -2
If n Mod x = 0 And x <> n Then
Premier = False
Exit For
Else
Premier = True
End If
Next
r = 0
End Function

Conclusion :


:|) uhm No Comment

A voir également

Ajouter un commentaire

Commentaires

cs_max12
Messages postés
1491
Date d'inscription
dimanche 19 novembre 2000
Statut
Modérateur
Dernière intervention
7 juillet 2014
-
À noter aussi qu'un nombre premier doit aussi avoir 2 divisieurs (1 et lui-même). Seul chose, c'est que 1 n'est pas un nombre premier à cause de cette règle. M'enfin, c'est ce que le prof de math nous disait.

A+
Mindiell
Messages postés
559
Date d'inscription
jeudi 25 juillet 2002
Statut
Membre
Dernière intervention
5 septembre 2007
1 -
Tout a fait, et d'après les quelques premières lignes lues du code, ta fonction est fausse : 2 est le seul nombre pair premier...
Mindiell
Messages postés
559
Date d'inscription
jeudi 25 juillet 2002
Statut
Membre
Dernière intervention
5 septembre 2007
1 -
Ah oui, et a quoi sert r la-dedans au fait ? :)
bremondpierrejean
Messages postés
39
Date d'inscription
samedi 24 juillet 2004
Statut
Membre
Dernière intervention
6 janvier 2007
-
Bonjour,

je me permet un correctif à la définition du nombre premier :

Vous dites :
'Définition d'un nombre premier
'Un nombre est premier si il est divisible par lui-même et par l'unité

Correctif:
'Un nombre est premier s'il n'est divisible que par lui-même et par l'unité

Grosse différence car selon votre définition : tous les nombres sont premiers !!!

amitié vb
MadM@tt
Messages postés
2215
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
16 juillet 2009
-
c'est du chipoti chipota ;)

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.