ARITHMÉTIQUE (NOMBRES PREMIERS, PGCD, PPCM, DIVISEURS)
ricky84
Messages postés
44
Date d'inscription
dimanche 8 septembre 2002
Statut
Membre
Dernière intervention
13 janvier 2014
-
11 févr. 2003 à 08:55
Abdelelansari Messages postés 21 Date d'inscription samedi 12 janvier 2008 Statut Membre Dernière intervention 29 mars 2008 - 1 févr. 2008 à 00:03
Abdelelansari Messages postés 21 Date d'inscription samedi 12 janvier 2008 Statut Membre Dernière intervention 29 mars 2008 - 1 févr. 2008 à 00:03
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/6080-arithmetique-nombres-premiers-pgcd-ppcm-diviseurs
https://codes-sources.commentcamarche.net/source/6080-arithmetique-nombres-premiers-pgcd-ppcm-diviseurs
1 févr. 2008 à 00:03
Bon courage
30 nov. 2005 à 16:44
diablaman@hotmail.com
enfin sinon en note je met 9 car un prog est jamais parfait a 100% ^^ ++
2 juin 2004 à 16:42
Pour le pb de l'exe g essayer chez moi en recomplilant c le meme prob ! alors que la source joue parfaitement :-/
La je comprend pas !
Bonne prog @ tous
//JoVB
2 mars 2003 à 23:00
2 mars 2003 à 21:29
2 mars 2003 à 21:28
Par exemple elle sort pour le ppmc de 5 et 6 : 5 ?!?
bonne prog
15 févr. 2003 à 19:25
Le code a été modifié en conséquent et le fichier exe recompilé.
A+
12 févr. 2003 à 08:39
11 févr. 2003 à 18:45
11 févr. 2003 à 18:44
(Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim Debut As Long, Fin As Long
Debut = GetTickCount()
'ici le code à chronométrer
Fin = GetTickCount()
MsgBox "Temps mis en millisecondes : " & Fin - Debut)
le temps pour calculer les nombres premiers de 0 à 20 000 passe de 78s à 4 secondes ( 78146 à 4036 ms pour être tout à faît rigoureux
'Un nombre est premier s'il admet comme diviseur que 1 et lui-même. Par definition, 1 n'est pas premier.
If n <0 Then isprime False: Exit Function ' Elimine le cas ou n est inférieur à 0
If Val(Right(n, 1)) Mod 2 0 And n <> 2 Then isprime False: Exit Function 'Elimine le cas où n est pair
Dim i
Dim m As Double
m = Int(n ^ (1 / 2)) + 1 ' le calcul de l'exposant puis du int prend un temps énorme donc, on faît une variable tampon
For i = 2 To m
If n Mod i = 0 And i <> n Then
isprime = False
Exit Function
Else
isprime = True
End If
Next i
A ce que j'ai pu constater, ça donne les mêmes résultats !
Au revoir, Boudas
11 févr. 2003 à 18:11
Si un nombre est divisible alors, l'un au moins de ses facteurs est inférieur à la racine carrée de ce nombre.
Et oui, prenon un nombre qui n'est divisible par aucun des nombres inférieurs à sa racine carrée, alors, le probléme de ses diviseurs sera ..... supérieur au carré de la racine carrée donc à ce nombre !!!
donc de façon encore plus optimisé la boucle devient
for i=2 to sqrt(n)
verifier n premier
next
Au revoir, Boudas
11 févr. 2003 à 10:33
11 févr. 2003 à 10:31
Chez moi, quand je fais ppcm(4,6) j'obtiens bien 12 et non 4
Apophis
11 févr. 2003 à 08:55
Exemple les nombres 4 et 6 : resultat 4 ,normalement ça doit etre 12 je pense