Primalite connaitre ou savoir si un nombre est premier

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 838 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

Messages postés
2
Date d'inscription
vendredi 28 mars 2003
Statut
Membre
Dernière intervention
23 août 2005

joli petit programme !!!
que demande le peuple!
je me passionne pour les nombres premiers et je dit Bravo ça mévite de membeter a codé
donc merci merci merci
ps:je suis en train de réalisé un algo de factorisation avec une nouvelle méthode
si ça vous interresse quon en discute je suis dispo
Messages postés
2215
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
16 juillet 2009

lol voui j'ai pas maths "spé" (option maths) et je suis tout à fait d'accord c'est tout de suite plus facile parce que quand je vois leurs cours (j'y regarde de temps en temps pour le cryptage) et ben c'est à pleurer lol...
Et puis y'a des fois c'est assez interressant, et non je ne suis pas surdoué du tout passke je travaille :p, alors que les surdoués n'en n'ont pas besoin. (et pour la petite histoire ma moyenne a baissé aujourdui, j'ai eu 17 au bac blanc;)
Non cessons de parler de ça c'est pas ça qui fait des programmes ;)
Messages postés
559
Date d'inscription
jeudi 25 juillet 2002
Statut
Membre
Dernière intervention
5 septembre 2007
1
Pour compléter la définition :

- "Dans Z, un nombre premier est un nombre qui possède exactement 4 diviseurs"

voili ;P

PS : Z est l'ensemble des entiers relatifs ( -n , ... , +n )
Messages postés
559
Date d'inscription
jeudi 25 juillet 2002
Statut
Membre
Dernière intervention
5 septembre 2007
1
Alors :
- Einstein n'était pas bon en maths à l'école,
- Pitet MadMatt est très fort,
- MadMatt est peut etre pas en option Maths (ce qui est plus facile tout de suite, désolé Mad ;oP )

- .... p'tain, 10 ans ? Je suis vieux !!!!!!!!!!!!!
Messages postés
85
Date d'inscription
mardi 6 janvier 2004
Statut
Membre
Dernière intervention
7 mai 2007

Salut MadM@tt

Il y a 10 ans j'etais en terminal S avec option Maths
La meilleurs moyenne obtenue etait 17,5 par un gars consideré par tous comme un surdoué (sans exagerer).

Alors quand tu dis 19,5 !! DE MOEYNNE !!
je me dis ou le niveau de S a bien baissé pendant toutes ces années,
ou tu es le petit fils d'Einstein.

Dans ce cas, je suis extremement etonné de lire ton commentaire sur la remarque de bremondpierrejean.

Ma moyenne? Elle arrondissait les 11.
Afficher les 12 commentaires

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.