Examen : Algorithmes et Programmation en Pascal
Partie 1 : Algorithmes
1. Ecris un algorithme qui calcule la somme des nombres de 1 a un nombre donne N (saisi par
l'utilisateur).
2. Ecris un algorithme pour verifier si un nombre X (saisi par l'utilisateur) est pair ou impair.
3. Ecris un algorithme qui calcule la factorielle d'un nombre N, ou :
N! = N x (N-1) x (N-2) x ... x 1
Exemple : 4! = 4 x 3 x 2 x 1 = 24.
Partie 2 : Programmation en Pascal
1. Ecris un programme en Pascal qui demande a l'utilisateur de saisir un nombre N, puis calcule et
affiche la somme des nombres de 1 a N.
Exemple :
program SommeDesNombres;
var
i, n, somme: integer;
begin
somme := 0;
writeln('Entrez un nombre :');
readln(n);
for i := 1 to n do
somme := somme + i;
writeln('La somme est : ', somme);
end.
2. Ecris un programme qui demande a l'utilisateur de saisir un nombre et verifie s'il est pair ou
impair.
Exemple :
program PairOuImpair;
var
x: integer;
begin
writeln('Entrez un nombre :');
readln(x);
if x mod 2 = 0 then
writeln('Le nombre est pair')
else
writeln('Le nombre est impair');
end.
3. Ecris un programme pour calculer la factorielle d'un nombre saisi par l'utilisateur.
Exemple :
program Factorielle;
var
i, n, fact: integer;
begin
fact := 1;
writeln('Entrez un nombre :');
readln(n);
for i := 1 to n do
fact := fact * i;
writeln('La factorielle est : ', fact);
end.
Questions Bonus
1. Ecris un programme qui affiche la table de multiplication d'un nombre donne par l'utilisateur.
2. Ecris un programme qui affiche tous les nombres premiers entre 1 et N.