Aide programme décomposition facteur nombre premier

→ **MyCalcs** profile · by **omar6995** » 18 Jan 2013, 13:47

Bonjour j'aurais besoin d'un programme pour la spé maths en terminale , je m'explique je voudrais que mon programme décompose en facteur premier un nombre que j'insere avant : par exemple,

9800 = 2^3*5²*7²

J'ai commencer a réfléchir tout d'abord, étant donné que l'on connais pas toute la liste des nombres premier j'ai décidé de commencer mon programme juste avec ces nombre :
2,3,5,7,11,13,17,23,29
Par exemple pour vérifier si mon nombre peut être décomposé en 2 , je fais ceci

Define decomp(n)=
Prgm
:Local n
:p2:= 0
:r:=0
:While r:=0
:If remain(n,2)=0
:Then
:n:=((n)/(2))
:p2:=p2+1
:If remain(n,2)=0
:Then
:r:=0
:Else
:r:=1
:EndIf
:Else r:=1
:EndIf
:EndPrgm

Puis je refais la même chose pour les autre nombres cité plus haut, le problème c'est que je sais pas comment faire pour qu'il m'affiche a la fin mon nombre décomposé sous forme de produit de nombre premier , si vous pouvez m'aider, ça sera sympa

Par exemple avec le petit programme en haut , j'aimerais quand j’insère 4 comme n il me mette 4 = 2²
Note p2 = la variable qui compte la puissance de 2

→ **MyCalcs** profile · by **Excale** » 18 Jan 2013, 15:31

Bonjour,

Pour décomposer un nombre en facteurs premier, le plus simple est de tenter de le diviser par tous les nombres dans l'ordre croissant. De cette manière, il ne pourra être divisé que par des nombres premiers (par exemple la division par 8 ne serait jamais possible, le nombre ayant été divisé par 2 (et ce au moins 3 fois) avant. Pour faire plus raide, tu peux aussi tenter de ne diviser que par 2 puis nombres impairs.
Ensuite, si jamais le compteur du nombre "diviseur" dépasse la racine du nombre à diviser, tu sais que ce dernier est premier.

Quant à l'affichage... la nspire simplifie automatiquement les expressions et il faut donc passer par les chaines de caractères.
Par exemple: sortie := sortie & "*" & string(nombrepremierenquestion) & "^" & string(puissance) pour rajouter un nombre à ta chaine.

PS: Ça ne sert à rien de mettre n en Local, il y est automatiquement car c'est une variable prise en entrée. Par contre, il serait judicieux de mettre les autres variables en Local.

PS²: factor() est très pratique, mais je suppose que tu veux coder la chose par toi-même

.

EDIT: Un "pseudo-code" écrit rapidement et non testé:

Code: Select all: Local s,q,i s:=string(n)&"=" q:=2 i:=0 While q<v(n) Disp n,q,i If remain(n,q)=0 Then n:=((n)/(q)) i:=i+1 Else If i>0 Then s:=s&string(q)&"^"&string(i)&"*" EndIf i:=0 q:=q+1 EndIf EndWhile If q=n Then Disp s&string(n)&"^"&string(i+1) Else Disp s&string(q)&"^"&string(i)&"*"&string(n) EndIf