ARITHMÉTIQUE (NOMBRES PREMIERS, PGCD, PPCM, DIVISEURS)

Commentaire de ricky84 le 11/02/2003 08:55:09

Juste un truc : le ppcm ne marche pas !!! Le resultat est toujours inferieur ou egal au plus petit des deux nombres,ce qui n'est pas logique.
Exemple les nombres 4 et 6 : resultat 4 ,normalement ça doit etre 12 je pense

Commentaire de Apophis le 11/02/2003 10:33:31

Mise à jour (amélioration de l'algorithme de recherche de nombres premiers)

Commentaire de boudas le 11/02/2003 18:44:37

voila une fonction isprime encore mieux optimisé puisque d'aprés ce que j'ai messuré grâce à une api windows,
(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

Commentaire de ricky84 le 12/02/2003 08:39:56

Apres verification,le code du source fonctionne correctement , c'est seulement dans l' EXE contenu dans le fichier ZIP que la fonction ppcm donne un faux resultat !

Commentaire de TheBabyCool le 02/03/2003 21:28:56

La fonction PPMC donne tj un mauvais resultat...
Par exemple elle sort pour le ppmc de 5 et 6 : 5 ?!?
bonne prog

Commentaire de Apophis le 02/03/2003 23:00:06

J'ai beau recompiler, avec l'exe, en effet cela ne marche pas. Mais cela fonctionne avec la source.

Commentaire de diablamanshadow le 30/11/2005 16:44:35

j'adore ta source vraiment belle donc je me propose a t'aider a l'ameliorer on pourrais en faire un projet commun si tu le desire ^^ sinon vla mon mail :
diablaman@hotmail.com

enfin sinon en note je met 9 car un prog est jamais parfait a 100% ^^ ++