affichage d'une moyenne

ÉNONCÉ
Écrire un programme Pascal qui qui affiche :
* la somme et la moyenne pondérée de trois notes. (Les coefficients des notes sont respectivement 1, 2, 2).
* si l’élève Passe, Racheté ou Refusé.
* l’appréciation adéquate : Excellent, Bien, A.Bien, Passable, Racheté, Refusé.

ALGORITHME:

0- Début eleve

1- Lire (Note1)
2- Lire (Note2)
3- Lire (Note3)
4- Moy <-- (Coef1*Note1+Coef2*Note1+Coef3*Note1)/CoefT
5- Ecrire(Moy :5;2)
6- Si Moy >=10
Alors Ecrire ("Passe")
Sinon
Si Moy >=9
Alors Ecrire ("Racheté")
Sinon Ecrire ("Redouble")
FinSi
FinSi
7- Si Moy >=16
Alors Ecrire ("Excellent")
Sinon
Si Moy >=14
Alors Ecrire ("Bien")
Sinon
Si Moy >=12
Alors Ecrire ("A.Bien")
Sinon
Si Moy >=10
Alors Ecrire ("Passable")
Sinon
SI Moy >=9
Alors Ecrire ("Racheté")
Sinon Ecrire ("Refusé")
Finsi
Finsi
Finsi
Finsi
Finsi
8- Fin eleve

PASCAL

Program eleve;
uses Wincrt;

Const Coef1 = 1; Coef2 = 2;
Coef3 = 2; CoefT = Coef1+Coef2+Coef3 ;

Var Note1,Note2,Note3,Moy : Real;
Begin
Write('Note1=');
Readln(Note1);
Write('Note2=');
Readln(Note2);
Write('Note3=');
Readln(Note3);
Moy := (Coef1*Note1+Coef2*Note2+Coef3*Note3)/CoefT;


Writeln('La moyenne de l''élève est : ', Moy : 5 : 2);


If Moy >=10
Then
Writeln ('Passe')
Else
If Moy >=9
Then Writeln ('Racheté')
Else Writeln ('Redouble');


If Moy >=16
Then Writeln ('Excellent')
Else
If Moy >=14
Then Writeln ('Bien')
Else
If Moy >=12
Then Writeln ('A.Bien')
Else
If Moy >=10
Then Writeln ('Passable')
Else
If Moy >=9
Then Writeln ('Racheté')
Else Writeln ('Refusé');


End.

réécrire ce programme en utilisant la structure conditionnelle à choix