Nombre premier

Résolu/Fermé
ghizl01 Messages postés 3 Date d'inscription jeudi 2 avril 2009 Statut Membre Dernière intervention 8 avril 2009 - 3 avril 2009 à 12:34
Sacabouffe Messages postés 9427 Date d'inscription dimanche 19 août 2007 Statut Membre Dernière intervention 29 mai 2009 - 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é
A voir également:

4 réponses

Sacabouffe Messages postés 9427 Date d'inscription dimanche 19 août 2007 Statut Membre Dernière intervention 29 mai 2009 1 832
3 avril 2009 à 12:35
0
ghizl01 Messages postés 3 Date d'inscription jeudi 2 avril 2009 Statut Membre Dernière intervention 8 avril 2009
3 avril 2009 à 23:20
merci mon ami mais comment faire?
0
Sacabouffe Messages postés 9427 Date d'inscription dimanche 19 août 2007 Statut Membre Dernière intervention 29 mai 2009 1 832
4 avril 2009 à 00:30
Montre-nous ce que t'as déjà fait.
0
ghizl01 Messages postés 3 Date d'inscription jeudi 2 avril 2009 Statut Membre Dernière intervention 8 avril 2009
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
0
Sacabouffe Messages postés 9427 Date d'inscription dimanche 19 août 2007 Statut Membre Dernière intervention 29 mai 2009 1 832
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
0