EST CE UN CHIFFRE PREMIER?(FONCTION)

Messages postés
132
Date d'inscription
samedi 25 mai 2002
Statut
Membre
Dernière intervention
31 août 2007
- - Dernière réponse : 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

Afficher la suite 
stefsoft
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é
cs_Jack
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
61 -
"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 ...
cs_OphidiaN
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
++
VicoLaChips2
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
bestmomo
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