Partager vos
astuces Bricolage
Posez votre question Signaler

Nombre premier [Résolu]

ghizl01 4Messages postés 2 avril 2009Date d'inscription - Dernière réponse le 8 avril 2009 à 14:07
Bonjour,j'arrive plue à resoudre cet exercice s'il vous plait aidez moi
ecrire un algorithme qui permet de lire un nombre et de trouver le plus petit nombre premier strictement supérieur à ce nomdre donné
Lire la suite 

Nombre premier »

5 réponses
Réponse
+0
moins plus
Sacabouffe 9604Messages postés 19 août 2007Date d'inscription ModérateurStatut 3 avril 2009 à 12:35
Salut
Demander de l'aide pour vos exercices sur CCM
Ciao

Ajouter un commentaire - Site web
ghizl01 - 3 avril 2009 à 23:20
merci mon ami mais comment faire?
Ajouter un commentaire
Réponse
+0
moins plus
Sacabouffe 9604Messages postés 19 août 2007Date d'inscription ModérateurStatut 4 avril 2009 à 00:30
Montre-nous ce que t'as déjà fait.

Ajouter un commentaire - Site web
Ajouter un commentaire
Réponse
+0
moins plus
ghizl01 4Messages postés 2 avril 2009Date d'inscription 8 avril 2009 à 13:59
voila ce ke jé fait et je sait pas si c'est vrai ou faux:
dim n,m,j
n=inputbox("donner un nbre")
for j=1 to n
m=n+j
if premier(m)=true then
msgbox (m & " est premiere")

end if
next



'function premier (n)
function premier (x)
dim i
for i=2 to x-1
if x mod i=0 then
premier=false
exit function
end if
next

 Ajouter un commentaire
Ajouter un commentaire
Réponse
+0
moins plus
Sacabouffe 9604Messages postés 19 août 2007Date d'inscription ModérateurStatut 8 avril 2009 à 14:07
Salut

Ça a l'air correct comme façon de faire ;-)
Cela dit, concernant la fonction pour tester si un nombre x est premier, tu peux te contenter d'aller jusqu'à la partie entière de √x.

Bon après-midi

Ajouter un commentaire - Site web
Ajouter un commentaire
Posez votre question
Ce document intitulé « nombre premier » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
5 extensions si vous voulez revenir à l'ancien Facebook