Evaluation Ecrite 2 Semestre 2 Classe : TCP
Note :
Nom et Prénom :………………………… Numéro : ... Durée : 50 20
... min
Exercice1 (2 points)
Identifier et corriger les erreurs du programme suivant:
program calcule division;
var X,Y,D : integer ;
begin
readln(X);
readln(Y);
if Y != 0 then
begin
D=X/Y;
writeln('Le résultat est ',D:0:5);
end
else
begin
writeln('Erreur: vérifier la valeur de Y');
end
end.
Exercice 2 (6 points)
Ecrire un programme qui permet la permutation de deux variables X, Y.
Afficher les valeur de X,Y avant et après la permutation.
Exercice 4 (12 points)
Ecrire un programme qui permet la saisie d'une note N (0 <= N <= 20) et
afficher après sa mention.
Note<10 : Redoublé
10<=Note<=12 : Passable
12<Note<=14 : Assez Bien
14<Note<=20 : Très Bien