Nombre premier

cs_julienx Messages postés 1 Date d'inscription mardi 19 avril 2005 Statut Membre Dernière intervention 25 juillet 2005 - 25 juil. 2005 à 16:49
Zlub Messages postés 809 Date d'inscription mercredi 11 octobre 2000 Statut Membre Dernière intervention 29 septembre 2010 - 26 juil. 2005 à 00:49
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

cs_Jack Messages postés 14007 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 78
25 juil. 2005 à 18:24
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
0
cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 18
25 juil. 2005 à 18:39
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 !?
0
Zlub Messages postés 809 Date d'inscription mercredi 11 octobre 2000 Statut Membre Dernière intervention 29 septembre 2010 9
26 juil. 2005 à 00:49
Salut,


Ou sinon tu vois le code de Julien39 source #32289


++

Zlub
0