begin process at 2012 02 17 04:32:59
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Maths

 > NOMBRE PREMIER ?

NOMBRE PREMIER ?


 Information sur la source

Note :
7,3 / 10 - par 10 personnes
7,30 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Maths Classé sous :premier, nombre Niveau :Débutant Date de création :16/03/2001 Vu :2 601
Auteur : Darty

Ecrire un message privé
Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

 Description

Il suffit d'appeler cette fonction qui renverra vrai si Nombre est un nombre premier (vous l'aurez compris). Pas de difficulté particulière...

Source

  • Public Function ESTPREMIER(Nombre as Long) as Boolean
  • Dim i as Integer
  • ESTPREMIER = True
  • For i = 2 To Int(Sqr(Nombre)) + 1
  • If Nombre Mod i = 0 Then
  • ESTPREMIER = False
  • Exit For
  • End If
  • DoEvents
  • Next i
  • End Function 
Public Function ESTPREMIER(Nombre as Long) as Boolean
Dim i as Integer

ESTPREMIER = True
For i = 2 To Int(Sqr(Nombre)) + 1
    If Nombre Mod i = 0 Then
       ESTPREMIER = False
       Exit For
    End If
  DoEvents
Next i
End Function

 Conclusion

... vous noterez toutefois :
- la petite astuce pour s'affranchir des nombres 0 et 1 dans la boucle "FOR" sans avoir à tester ces deux cas particuliers.
- on ne test que jusqu'à la racine carré du nombre (s'il n'existe pas de dénominateur plus petit que la racine carré du nombre à tester, pour obtenir un entier, il n'y en aura pas plus grand que cette racine). D'où une vitesse de test accrue. (Grand Merci à flyer257 pour ce rappel).

Le DoEvents est là pour que vous puissiez jouer à Tetris alors que vous avez lancer le test pour 1234567891...  ;)    


 Sources du même auteur

EXÉCUTER L'APPLICATION LIÉE À L'EXTENSION D'UN FICHIER
Toutes les sources de Darty

 Sources de la même categorie

Source avec Zip Source avec une capture CONVERTISSEUR HEXAVIGÉSIMAL par shaeks
Source avec Zip Source avec une capture Source .NET (Dotnet) CRYPTOGRAPHIE AFFINE par Tigrou66
Source avec Zip Source avec une capture SCANNER FLEX par lajouad
Source avec Zip EQUATIONSECONDDEGRÉ,MATH,DEGRÉ par shadkitenge
Source avec Zip Source .NET (Dotnet) SOMME DE CHIFFRES CONTENUE DANS UN NOMBRE par alpha5
Toutes les sources de la catégorie Maths

 Sources en rapport avec celle ci

Source avec Zip NOMBRES PREMIERS par MLH19
Source avec Zip Source avec une capture TROUVER DES NOMBRES PREMIERS par vbPink
Source avec Zip NOMBRE PREMIER AUTRE METHODE par Axar
Source avec une capture Source .NET (Dotnet) FACTORISATION EN NOMBRES PREMIERS par chewbaka62
Source avec Zip UN PETIT PROGRAMME DE CALCUL DES NOMBRE PREMIERS par mouad001

Commentaires et avis

Aucun commentaire pour le moment.

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

probléme [ par grimo109 ] je voudrais savoir comment specifier un numero précis d'un nombre par exemple1587 j'ai besoin en premier lieu de calculer seulement le premier numero nombre premier [ par moumaiag ] bonjourje veux un code d'un bouton "premier" qui me détermine si un nombre entré dans un textbox est un nombre premier ou non et un grand  merci pour Nombre premier [ par julienx ] Nombre premier [ par julienx ] 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 voyage 200 [ par cricrinature ]   Bonjour, je voudrai créer un programme permettant de vérifier si un nombre est premier ou pas (c'est-à-dire s'il n'est divisible Nombres premier et OpenOffice.calc [ par Taur33 ] Bonjour à tous, j'aurais besoin d'une fonction ou une procedure qui : 1.permet de savoir si un nombre en A1 est premier(ex 11) 2.si oui placer 1 devan LA SOMME EN VB 6 [ par LABEL85 ] Bonjour je viens de faire un petit exercice avec VB6. Au départ ca me parait trés facile ( et banal même) mais quand je voulais l'executer sur machine Calcul nombre de semaines et de jours [ par js8bleu ] Bonjour les VBiens et VBiennes, je souhaiterai savoir comment faire pour avoir le nombre de semaines et de jours entre une date D1 et une date D2 s'i Sélection d'un tableau a nombre de lignes variables [ par Costanzaa ] Bonjour, Je sollicite votre aide après avoir consulté le forum sans trouver de solution. Dans le cadre de mon travail, je récupère une feuille à l'in


Nos sponsors


Sondage...

Comparez les prix


Acer Liquid (noir) (XP.H480Q.013)
Entre 300€ et 346€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Green Energy Solutions With Light Bulb Morphed Into LandscapePhoto Renewable Energy is Within Reach
Photo Fresh Elements of Spring: Grass, Seeling and Sunflower 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,108 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)