begin process at 2012 02 12 16:45:31
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Maths

 > PRIMALITE CONNAITRE OU SAVOIR SI UN NOMBRE EST PREMIER

PRIMALITE CONNAITRE OU SAVOIR SI UN NOMBRE EST PREMIER


 Information sur la source

Note :
Aucune note
Catégorie :Maths Niveau :Débutant Date de création :09/04/2005 Date de mise à jour :09/05/2005 10:39:55 Vu :2 733
Auteur : ericigor

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

 Description

Ce programme renvoie la valeur vrai si c'est un nombre premier

Source

  • Public Function Premier(n As Currency) As Boolean
  • Dim x As Currency, y As Currency, r As Currency
  • 'Définition d'un nombre premier
  • 'Un nombre est premier s'il n'est divisible que par lui-même et par l'unité
  • If n Mod 2 = 0 Then
  • Premier = False
  • Exit Function
  • End If
  • y = Abs(Fix(-Sqr(n)))
  • If y < 3 Then y = 3
  • For x = y To 3 Step -2
  • If n Mod x = 0 And x <> n Then
  • Premier = False
  • Exit For
  • Else
  • Premier = True
  • End If
  • Next
  • r = 0
  • End Function 
Public Function Premier(n As Currency) As Boolean
Dim x As Currency, y As Currency, r As Currency
'Définition d'un nombre premier
'Un nombre est premier s'il n'est divisible que par lui-même et par l'unité
If n Mod 2 = 0 Then
Premier = False
Exit Function
End If

y = Abs(Fix(-Sqr(n)))
If y < 3 Then y = 3
For x = y To 3 Step -2
If n Mod x = 0 And x <> n Then
Premier = False
Exit For
Else
Premier = True
End If
Next
r = 0
End Function

 Conclusion

:|) uhm No Comment


 Historique

09 avril 2005 14:48:13 :
Rectification du titre
09 mai 2005 10:39:55 :
Rectification de la définition d'un nombre premier

 Sources du même auteur

MME MOYENNE MOBILE EXPONENTIELLE
MINIMAX D'UNE LISTE DE NOMBRES MINIMUM MAXIMUM
Source avec une capture CONNAITRE LE NOMBRE DE LECTEUR DE CDROM
Source avec une capture FAIRE OBSTACLE AU CTRL ALT SUPPR
PROGRAMME INTERMINABLE INQUITABLE
Toutes les sources de ericigor

 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

Commentaires et avis

Commentaire de max12 le 10/04/2005 03:21:18 administrateur CS

À noter aussi qu'un nombre premier doit aussi avoir 2 divisieurs (1 et lui-même). Seul chose, c'est que 1 n'est pas un nombre premier à cause de cette règle. M'enfin, c'est ce que le prof de math nous disait.

A+

Commentaire de Mindiell le 11/04/2005 10:07:18

Tout a fait, et d'après les quelques premières lignes lues du code, ta fonction est fausse : 2 est le seul nombre pair premier...

Commentaire de Mindiell le 11/04/2005 10:08:45

Ah oui, et a quoi sert r la-dedans au fait ? :)

Commentaire de bremondpierrejean le 11/04/2005 18:04:49

Bonjour,

je me permet un correctif à la définition du nombre premier :

Vous dites :
'Définition d'un nombre premier
'Un nombre est premier si il est divisible par lui-même et par l'unité

Correctif:
'Un nombre est premier s'il n'est divisible que par lui-même et par l'unité

Grosse différence car selon votre définition : tous les nombres sont premiers !!!

amitié vb

Commentaire de MadM@tt le 12/04/2005 19:27:07

c'est du chipoti chipota ;)

Commentaire de bremondpierrejean le 15/04/2005 12:51:27

bonjour,
si vous considérez cela comme du "chipoti chipota" c'est que vous ne devez pas être très bon en math. Il y a sûrement des personnes qui ne sont pas aussi douées que vous et qui désirent connaître exactement ce à quoi sert un petit programme... Sinon, comment l'utiliser ?

Nihil nisi subtilitatem timet

Commentaire de MadM@tt le 16/04/2005 21:16:25

lol mais ce que je voulais dire c'est que la correction que tu as faite me semblais logique et superflue menfin bon...
Sinon j'ai 19.5 de moyenne en maths (pour de vrai en +) et chu en terminale S tralalèreuuuuuuuuu alors dis pas que chu pas très bon en maths :p mdr
allé ciao et à d'autres rigolades les amis !!

Commentaire de Silmon le 02/05/2005 15:19:53

Salut MadM@tt

Il y a 10 ans j'etais en terminal S avec option Maths
La meilleurs moyenne obtenue etait 17,5 par un gars consideré par tous comme un surdoué (sans exagerer).

Alors quand tu dis 19,5  !! DE MOEYNNE !!
je me dis ou le niveau de S a bien baissé pendant toutes ces années,
               ou tu es le petit fils d'Einstein.

Dans ce cas, je suis extremement etonné de lire ton commentaire sur la remarque de bremondpierrejean.

Ma moyenne? Elle arrondissait les 11.

Commentaire de Mindiell le 02/05/2005 15:36:36

Alors :
- Einstein n'était pas bon en maths à l'école,
- Pitet MadMatt est très fort,
- MadMatt est peut etre pas en option Maths (ce qui est plus facile tout de suite, désolé Mad ;oP )

- .... p'tain, 10 ans ? Je suis vieux !!!!!!!!!!!!!

Commentaire de Mindiell le 02/05/2005 15:39:58

Pour compléter la définition :

- "Dans Z, un nombre premier est un nombre qui possède exactement 4 diviseurs"

voili ;P

PS : Z est l'ensemble des entiers relatifs ( -n , ... , +n )

Commentaire de MadM@tt le 02/05/2005 19:02:43

lol voui j'ai pas maths "spé" (option maths) et je suis tout à fait d'accord c'est tout de suite plus facile parce que quand je vois leurs cours (j'y regarde de temps en temps pour le cryptage) et ben c'est à pleurer lol...
Et puis y'a des fois c'est assez interressant, et non je ne suis pas surdoué du tout passke je travaille :p, alors que les surdoués n'en n'ont pas besoin. (et pour la petite histoire ma moyenne a baissé aujourdui, j'ai eu 17 au bac blanc;)
Non cessons de parler de ça c'est pas ça qui fait des programmes ;)

Commentaire de boag le 29/08/2005 13:22:20

joli petit programme !!!
que demande le peuple!
je me passionne pour les nombres premiers et je dit Bravo ça mévite de membeter a codé
donc merci merci merci
ps:je suis en train de réalisé un algo de factorisation avec une nouvelle méthode
si ça vous interresse quon en discute je suis dispo

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


iPod touch 3rd Generation (64 Go)
Entre 374€ et 379€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Renewable Energy is Within Reach
Photo bora-bora 

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 : 2,855 sec (3)

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)