Petit programme donnant la liste des NP en utilisant l'algorithme du crible d'Eratosthène. A vos commentaires et merci d'avance.
Source / Exemple :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim N As System.String ' Variable contenant le nombre max. saisi
Dim intCompteur, intCompteur1, intDiviseur As System.Int32
txtNP.Text = "2" & " " & "3" ' On isole déjà le 2 et le 3 amorcer la liste
N = InputBox("Saisissez un nombre", "Saisir un entier N")
' On regarde si chaque nombre depuis 5 jusque N est divisible par un nombre <= à la racine
' carrée de ce nombre. Si oui, ce n'est pas un nombre premier.
For intCompteur = 5 To CInt(N) Step 2
' On réinitialise le compteur de diviseurs
intDiviseur = 0
For intCompteur1 = 2 To Sqrt(intCompteur) Step 1
' S'il y a au moins 1 diviseur, on exclut ce nombre de la liste
If intCompteur Mod intCompteur1 = 0 Then
txtNP.Text &= ""
intDiviseur += 1 ' Compteur de diviseurs
End If
Next
If intDiviseur = 0 Then ' Si aucun diviseur, alors on ajoute le nombre à la liste des NP
txtNP.Text &= " " & CStr(intCompteur)
End If
Next
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.