Discussion :

[Girl24]

Bonjour a tous, je suis nouvelle sur le forum, voila mon problème :
Je dois coder un programme en Fortran afin d'obtenir la décomposition en facteurs premiers d'un nombre N entré au préalable par un utilisateur, je galère un peu , j'ai vu qu'il fallait peut être établir un tableau mais je n'ai pas vraiment compris. Si une âme charitable pouvait m'aider je lui en serait reconnaissante !
bisous a tous !

[genteur slayer]

ça sent le tp classique pour fortran ça...

pour décomposé en facteur premier, il te faut d'abord trouvé le plus grand nombre premier qui divise ton nombre, tu éfectue l'opération en stockant le nombre premier dans un tableau, et tu recommence l'arrêt se fait quand le résultat de l'opération est égal à 1, c fini, tu les as tous trouvé.

tu affiche ensuite le résultat: ce sont les nombre premiers que tu as stocké dans tion tableau cqfd

[FR119492]

Salut!

le plus grand nombre premier qui divise ton nombre

Personnellement, je commencerais par le plus petit (par exemple 2 si ton nombre est pair) et j'arrêterais à la racine carrée de ton nombre.
Jean-Marc Blanc

[Matthieu Brucher]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
i = 2
tableau vide
Une boucle infinie tant que le nombre ne vaut pas 1:
  si nombre % i est nul:
    ajouter i dans le tableau
    nombre = nombre / i
  sinon:
    i = i +1

C'est pas optimal, car on teste des nombres non premiers qui ne seront jamais pris en compte, on ne s'arrête pas à racine(nombre), mais ça marche pour des nombres pas trop grand de manière plus rapide que la racine.

[genteur slayer]

tu as raison as raison FR119492... c'est vrai qu'avec les nombre premier on a pas à se soucié de l'ordre et c'est sûr, c'est plus facil dans l'ordre croissant !!

en ayant deux fonction genre "isprime" et "nextprime"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
integer :: i,Nombre,premier
integer,dimension(:) ::tab
 
Nombre=...
Premier = 2
i=1
 
do
  if (isprime(Nombre)) then
    tab(i)=Nombre
    exit
  end if
  if (mod(Nombre),Premier)==0) then
    tab(i)=premier
    Nombre=Nombre/premier
    i=i+1
  else
    Premier=NextPrime(Premier)
  end if
end do

cela te donne même le nombre de facteur...

tu peux ensuitre traité un peu le tableau pour avoir le nombre de fois que l'on utilise un nombre premier pour un affichage genre 2^4+3^2+5... etc..

[Matthieu Brucher]

cela te donne même le nombre de facteur...

Pas besoin d'avoir autant de fonctions. La mienne fait exactement ça, sans tester si un nombre est premier (car par récurrence, si i divise le nombre, c'est qu'il est premier) et le nombre de facteur (car je ne change de nombre à tester que si le nombre i ne divise plus le nombre, me permettant de dire que chaque i divisant le nombre est effectivement premier).

[genteur slayer]

c'est pas faux!! si i divise le nombre alors il est premier car s'il ne l'était pas il serai facteur de nombre premier or on les as déjà enlevé... pas con!!! du coup on a certes pas besoin de se demander s'il est bien premier ou non...

belle astuce, joli!!!