EST CE UN CHIFFRE PREMIER?(FONCTION)

Signaler
Messages postés
132
Date d'inscription
samedi 25 mai 2002
Statut
Membre
Dernière intervention
31 août 2007
-
Messages postés
119
Date d'inscription
lundi 15 avril 2002
Statut
Membre
Dernière intervention
28 novembre 2008
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/4017-est-ce-un-chiffre-premier-fonction

Messages postés
119
Date d'inscription
lundi 15 avril 2002
Statut
Membre
Dernière intervention
28 novembre 2008

ça pour faire simple bestmomo tu fais simple!
je t'invite à retourner potasser tes bouquins de troisième parce que pour moi les multiples de 5 ne sont pas des nombres premiers (excepté 5 !)
Alors tu peux faire des alorithmes simples mais faufrait pas en oublier la moitié
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
68
"Les chiffres sont aux lettres
ce que les nombres sont aux mots"
Les chiffres premiers sont 1, 2, 3, 5, 7 -> Pas besoin de programme pour ça.
Pour les nombres, autre histoire ...
Messages postés
235
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
9 novembre 2007

tu peux meme gagner plein de lignes si tu mets : partout lol
++
Messages postés
439
Date d'inscription
dimanche 20 janvier 2002
Statut
Membre
Dernière intervention
2 février 2010
1
YES !!, Kool
Tu peux même gagner une ligne : 'isprime = false' puisque la fonction renvoi false par défaut! (en vb du moins...) @+ et bonne prog
Messages postés
132
Date d'inscription
samedi 25 mai 2002
Statut
Membre
Dernière intervention
31 août 2007

On peut faire plus simple :

Public Function IsPrime(ByVal n As Long) As Boolean
Dim i As Long
IsPrime = False
If n <> 2 And (n And 1) = 0 Then Exit Function 'test si div 2
If n <> 3 And n Mod 3 = 0 Then Exit Function 'test si div 3
For i = 6 To Sqr(n) Step 6
If n Mod (i - 1) = 0 Then Exit Function
If n Mod (i + 1) = 0 Then Exit Function
Next
IsPrime = True
End Function