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.