Premier, décompose un nombre en facteurs premiers, par ex 12=2*2*3

Soyez le premier à donner votre avis sur cette source.

Vue 2 892 fois - Téléchargée 276 fois

Description

G écrit bcp de commentaires, sinon tout est dans le titre (ou presque). Si le nombre est premier ca renvoie 13=1*13 , ce nb est premier.
Euh vala c tout :-P

Codes Sources

A voir également

Ajouter un commentaire Commentaire
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
67
cette fonction pourrait t'etre utile.......

Function Decompose(ByRef facteur() As Long, ByVal n As Long) As Integer
Dim d As Long
d = 3

Dim i As Integer
i = 0

While (n Mod 2 = 0)
ReDim Preserve facteur(i)
facteur(i) = 2
i = i + 1
n = n / 2
Wend

While (d ^ d <= n)
If (n Mod d = 0) Then
ReDim Preserve facteur(i)
facteur(i) = d
i = i + 1
n = n / d
Else
d = d + 2
End If
Wend

If n > 1 Then
ReDim Preserve facteur(i)
facteur(i) = n
i = i + 1
End If

Decompose = i
End Function


Private Sub Form_Load()
Dim facteurs() As Long
a = Decompose(facteurs, 198)
End Sub



en sortie, on recupere la liste des facteurs premiers dans le tableau facteurs, et la fonction renvoie le nombre d'elements du tableau.

disons que ta source fonctionne, mais n'est pas simplement réutilisable.......

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.