Une solution de l'exercice 1 du TP4 d'informatique
en DEUG MIAS+MASS S1
Question 1
PROGRAM tp3exc2a ;
VAR nom : string ;
note : integer ;
resultat : real ;
BEGIN
write('quel est votre nom ? ') ; readln(nom) ;
write('note de maths ? ') ; readln(note) ;
resultat:=note*0.5 ;
write('note de physique ? ') ; readln(note) ;
resultat:=resultat+note*2 ;
write('note d''électronique ? ') ; readln(note) ;
resultat:=resultat+note*1.5 ;
write('note d''informatique ? ') ; readln(note) ;
resultat:=resultat+note*6 ;
resultat:=resultat/(0.5+2+1.5+6) ;
write('le resultat de ',nom,' est ',resultat:1:1,' mention : ') ;
if resultat>=16
then writeln('tres bien')
else if resultat>14 then writeln('bien')
else if resultat>12 then writeln('assez bien')
else if resultat>10 then writeln('passable')
else writeln('recale') ;
END.
Question 2
PROGRAM tp3exc2b ;
VAR nom, reponse : char ;
note : integer ;
resultat : real ;
effectif, recus : integer ;
BEGIN
effectif:=0 ;
recus:=0 ;
repeat
write('encore un etudiant (o|n) ? ') ; readln(reponse) ;
if (upcase(reponse)<>'N')
then
begin
effectif:=effectif+1 ;
write('quel est votre nom ? ') ; readln(nom) ;
write('note de maths ? ') ;
readln(note) ;
resultat:=note*0.5 ;
write('note de physique ? ') ;
readln(note) ;
resultat:=resultat+note*2 ;
write('note de chimie ? ') ;
readln(note) ;
resultat:=resultat+note*1.5 ;
write('note d''informatique ? ') ;
readln(note) ;
resultat:=resultat+note*6 ;
resultat:=resultat/(0.5+2+1.5+6) ;
write('le resultat de ',nom,' est ',resultat:1:1,' mention : ') ;
if resultat>=16
then writeln('tres bien')
else if resultat>=14 then writeln('bien')
else if resultat>=12 then writeln('assez bien')
else if resultat>=10 then writeln('passable')
else writeln('recale') ;
if resultat>=10
then recus:=recus+1 ;
end ;
until (upcase(reponse)='N') ;
writeln('Pourcentage de recus : ',(recus*100/effectif):1:1) ;
END.