Exercice: Les 10 premiers nombres premiers
Forum INFOMATH :: Enseignement de l'informatique :: Informatique - Collège & Lycée :: Exercices Pascal
Page 1 sur 1
Exercice: Les 10 premiers nombres premiers
par Napoléon Lun 23 Fév - 1:44
EXERCICE
Écrire un programme qui initialise un tableau de 10 caractères par les 10 premiers nombres premiers.
Note :
* La solution suivante n'est qu'une suggestion. Il existe des solutions plus optimales, cependant, celle-ci à le mérite de montrer une certaine progression logique dans cette suite d'exercice.
Écrire un programme qui initialise un tableau de 10 caractères par les 10 premiers nombres premiers.
Note :
* La solution suivante n'est qu'une suggestion. Il existe des solutions plus optimales, cependant, celle-ci à le mérite de montrer une certaine progression logique dans cette suite d'exercice.
Napoléon- Admin
-
Nombre de messages : 2934
Localisation : Tunisie
Réputation : 122
Points : 7663
Date d'inscription : 19/03/2007
Feuille de personnage
Capacité linguistique:
(999/1000) -
Re: Exercice: Les 10 premiers nombres premiers
par Napoléon Lun 23 Fév - 1:46
Une solution très élégante !!!!
- Spoiler:
- Code:
program tabpremiers;
uses crt;
var
tableau: array[1..10] of integer;
nombre: integer;
i, j: integer;
Npremier: integer;
begin
clrscr;
Npremier := 0;
nombre := 1;
j := 1;
while (Npremier < 10) do
begin
i := 2;
while (((nombre mod i) <> 0) and (i <= (trunc(nombre div 2) + 1))) do
begin
i := i + 1;
end;
if ((nombre mod i) <> 0) then
begin
tableau[j] := nombre;
Npremier := Npremier + 1;
j := j + 1;
end;
nombre := nombre + 1;
end;
for i := 1 to 10 do
writeln('Element ', i, ' vaut ', tableau[i]);
readln;
end.
Napoléon- Admin
-
Nombre de messages : 2934
Localisation : Tunisie
Réputation : 122
Points : 7663
Date d'inscription : 19/03/2007
Feuille de personnage
Capacité linguistique: (999/1000) -
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|
|
|