Nombre premier
Résolu
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é
ecrire un algorithme qui permet de lire un nombre et de trouver le plus petit nombre premier strictement supérieur à ce nomdre donné
Configuration: Windows XP Internet Explorer 6.0
4 réponses
-
-
Montre-nous ce que t'as déjà fait.
-
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 -
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
