Nombre premier

Signaler
Messages postés
1
Date d'inscription
mardi 19 avril 2005
Statut
Membre
Dernière intervention
25 juillet 2005
-
Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
-
Bonjour,

je voudrais savoir comment crée un programme qui puisse calculé tout les nombre premier jusqu'a une valeur donner par l'utilsateur.

merci

3 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
81
Salut
Il y a une belle collection de sources qui font ça sur le site : cherche

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
(je
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
18
Salut,

Il y a
http://www.vbfrance.com/code.aspx?ID=32294 sur le site mais j'ai une autre méthode traduite du C.


Une form avec une listbox (list1) et faire attention à la taille maximum que peut prendre le tableau. Dans cet exemple, ça calcule jusqu'à 1000.


Dim tabl() As Long


Sub calcul(Limite As Long)
Dim i As Long, n As Long, index As Long
Dim isprime As Integer

ReDim tabl(0)
tabl(0) = 1
ReDim Preserve tabl(1)
tabl(1) = 2
ReDim Preserve tabl(2)
tabl(1) = 3
index = 1
n = 3

Do
n = n + 2
If (n >= Limite - 3) Then Exit Do
i = 0
isprime = 1

Do
i = i + 1
isprime = n Mod tabl(i)
Loop While (isprime And tabl(i) * tabl(i) <= tabl(index))

If isprime Then
index = index + 1
ReDim Preserve tabl(index)
tabl(index) = n
End If

Loop

For i = 0 To UBound(tabl)
List1.AddItem tabl(i)
Next

End Sub


Private Sub Form_Load()
Call calcul(1000)
End Sub

-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?
Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
9
Salut,


Ou sinon tu vois le code de Julien39 source #32289


++

Zlub