EST CE UN CHIFFRE PREMIER?(FONCTION)
bestmomo
Messages postés
132
Date d'inscription
samedi 25 mai 2002
Statut
Membre
Dernière intervention
31 août 2007
-
13 juil. 2002 à 19:33
stefsoft Messages postés 119 Date d'inscription lundi 15 avril 2002 Statut Membre Dernière intervention 28 novembre 2008 - 15 juil. 2002 à 17:00
stefsoft Messages postés 119 Date d'inscription lundi 15 avril 2002 Statut Membre Dernière intervention 28 novembre 2008 - 15 juil. 2002 à 17:00
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
https://codes-sources.commentcamarche.net/source/4017-est-ce-un-chiffre-premier-fonction
15 juil. 2002 à 17:00
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é
14 juil. 2002 à 01:38
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 ...
13 juil. 2002 à 21:12
++
13 juil. 2002 à 19:42
Tu peux même gagner une ligne : 'isprime = false' puisque la fonction renvoi false par défaut! (en vb du moins...) @+ et bonne prog
13 juil. 2002 à 19:33
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