Commentçamarche.net
CodeS-SourceS
Rechercher un code, un tuto, une réponse

Savoir si un nombre est premier !!!

0/5 (4 avis)

Vue 14 267 fois - Téléchargée 300 fois

Description

Permet de verifier si un nombre est premier.

Source / Exemple :


'*************************************************
'* NOM : IsNPremier
'* DATE : 31/07/2000
'*
'* AUTEUR : Legay Thomas (TomAmplius)
'*
'* DESCRIPTION :
'* Verifie si un nombre est premier
'*
'*************************************************
Option Explicit
Dim Nombre As Long
Dim Temp_1 As Long

Private Function IsNpremier(ByRef Nombre As Long) As Boolean
If Nombre Mod 2 = 0 And Nombre <> 2 Then GoTo Non
'ajouter la ligne ci-dessous dans le cas ou les nombres traités sont grands
'(if right(str(Nombre) = "0" or right(str(Nombre) = "5" )and Nombre <> 5 then goto non:

For Temp_1 = 3 To Sqr(Nombre) Step 2
  If Nombre Mod Temp_1 = 0 Then GoTo Non
Next Temp_1
IsNpremier = True
Exit Function

Non:
IsNpremier = False
End Function

Codes Sources

A voir également

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.