Décomposition en facteurs de nombres premiers
Forum INFOMATH :: Enseignement de l'informatique :: Informatique - Collège & Lycée :: Exercices Pascal
Page 1 sur 1
Décomposition en facteurs de nombres premiers
par Napoléon Lun 23 Fév - 1:40
Exercice de base, très classique et important !
Ecrire un programme qui stocke la décomposition en facteurs premiers d'un nombre entier strictement positif dans un tableau et ensuite affiche les éléments de ce tableau sous la forme 18 = 2*3*3.
Ecrire un programme qui stocke la décomposition en facteurs premiers d'un nombre entier strictement positif dans un tableau et ensuite affiche les éléments de ce tableau sous la forme 18 = 2*3*3.
Napoléon- Admin
-
Nombre de messages : 2934
Localisation : Tunisie
Réputation : 122
Points : 7667
Date d'inscription : 19/03/2007
Feuille de personnage
Capacité linguistique:
(999/1000) -
Re: Décomposition en facteurs de nombres premiers
par Napoléon Lun 23 Fév - 1:41
Une solution très élégante :
- Spoiler:
- Code:
program decomposition;
uses crt;
var
nombre: integer;
tableau: array[1..10] of integer;
diviseur: integer;
i, j: integer;
Nbrelement: integer;
begin
clrscr;
NbrElement := 0;
diviseur := 2;
write('Entrez le nombre dont vous voulez la decomposition : ');
readln(nombre);
while (nombre <> 1) do
begin
if ((nombre mod diviseur) = 0) then
begin
tableau[NbrElement + 1] := diviseur;
nombre := nombre div diviseur;
NbrElement := NbrElement + 1;
end
else
diviseur := diviseur + 1;
end;
i := 1;
while (i < NbrElement) do
begin
write(tableau[i], '*');
i := i + 1;
end;
writeln(tableau[i]);
readln;
end.
Napoléon- Admin
-
Nombre de messages : 2934
Localisation : Tunisie
Réputation : 122
Points : 7667
Date d'inscription : 19/03/2007
Feuille de personnage
Capacité linguistique: (999/1000) -
Sujets similaires» Décomposition en facteurs premiers
» Exercice: Somme des nombres premiers inférieurs à 2 millions
» Exercice: Les 10 premiers nombres premiers
» Une infinité de nombres premiers?
» Jouer avec les nombres premiers ...
» Exercice: Somme des nombres premiers inférieurs à 2 millions
» Exercice: Les 10 premiers nombres premiers
» Une infinité de nombres premiers?
» Jouer avec les nombres premiers ...
Forum INFOMATH :: Enseignement de l'informatique :: Informatique - Collège & Lycée :: Exercices Pascal
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum|
|
|