GESTION

youssef Mohammedia
program notes;
uses crt;
const max=40;
var notes:array[1..max] of real;
    noms:array[1..max] of string[50];
    s,moyenne,sav:real;
     l,j,i,c,d,nbre,choix,w:integer;
     re,bao,rep,p:char;

begin
       textbackground(black);
        repeat
        clrscr;
             begin
             textcolor(blue);clrscr;
             textbackground(yellow);
         gotoxy(17,8);write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
         gotoxy(17,9);write('º           MENU DU PROGRAMME            º');
        gotoxy(17,10);write('ÈÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍO');
          gotoxy(19,11);write('º1-SAISIE DES NOTESº   2-MOYENNE     º');
          gotoxy(19,12);write('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹');
          gotoxy(19,13);write('º 3-MODIFICATIONS  º      4-TRI      º');
          gotoxy(19,14);write('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹');
          gotoxy(19,15);write('º    5-EDITION     º    6-QUITER     º');
        gotoxy(17,16);write('ÉÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍ»');
        gotoxy(17,17);write('º           ENTRER VOTRE CHOIX...        º');
        gotoxy(17,18);write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍO');
       end;
      gotoxy(49,17);readln(choix);

                case choix of

    1:
    begin
        textcolor(green);  textbackground(black);
        clrscr;
          repeat
         gotoxy(12,4);write('GROUPE:');gotoxy(51,4);write('driba');
                 gotoxy(12,5);write('ÄÄÄÄÄÄ');
                 gotoxy(12,6);write('OPTION:');gotoxy(51,6);write('Genie dardalan');
                 gotoxy(12,7);write('ÄÄÄÄÄÄ');
                 gotoxy(12,8);write('ANNEE:');gotoxy(51,8);write('Premi¦re');
                 gotoxy(12,9);write('ÄÄÄÄÄ');
                 gotoxy(12,10);write('ANNEE SCOLAIRE:');gotoxy(51,10);
                 write('1998-1999');
                 gotoxy(12,11);write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
          gotoxy(25,12);
          write('Entrer le nombre d'' ,tudiants: ');
          readln(nbre);
          until (nbre<=max);
               {preparation du masque}
          gotoxy(12,14);write('NOMS ET PRENOMS');
          gotoxy(12,15);write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
          gotoxy(52,14);write('NOTE/20');
          gotoxy(52,15);write('ÄÄÄÄÄÄÄ');
          l:=15;
          for i:=1 to nbre do
          begin
                {saisie des notes}
               gotoxy(12,l+1);
               readln(noms[i]);
               gotoxy(52,l+1);
               readln(notes[i]);  if notes[i]<=20 then
               l:=l+1;
               end;end;
            2:
               begin
                   textcolor(cyan);textbackground(black);
                    clrscr;
                    {calcul des moyennnes}
                    s:=0;j:=1;
                    for j:=1 to nbre do
                    s:=s+notes[j];
                    moyenne:=(s/nbre);
                    gotoxy(4,3);
               gotoxy(20,2);writeln('la moyenne des ', nbre,' ,tudiants est: ',moyenne:5:3);
                    gotoxy(13,25);write('(pour retourner au menu,appuyer sur la touche entrez.)');
                   readln;
          end;
          3: begin  textbackground(black); textcolor(red);
            rep:='o';
            repeat
                clrscr;
               writeln('donner le nom de l'',tudiant dont la note est . modifier');
               readln(noms[i]);
                writeln('la derniere note enregisrtr,e pour ',noms[i],' est ',notes[i]:5:3);gotoxy(3,5);
               writeln('donner la nouvelle note:');
                readln(notes[i]);
                writeln('voulez-vous modifier la note d''un autre ,tudiant o/oui n/non ?');

                 readln(re);rep:=re;
               {until (rep='o') or (rep='O') or (rep='n') or (rep='N');}
            until (rep='n') or (rep='N');
               end;

        5:
             begin
             repeat
                textbackground(black);textcolor(yellow);
                 begin
                 clrscr;
                 gotoxy(12,4);write('GROUPE:');gotoxy(51,4);write('IGA');
                 gotoxy(12,5);write('ÄÄÄÄÄÄ');
                 gotoxy(12,6);write('OPTION:');gotoxy(51,6);write('Genie Electrique');
                 gotoxy(12,7);write('ÄÄÄÄÄÄ');
                 gotoxy(12,8);write('ANNEE:');gotoxy(51,8);write('Premi¦re');
                 gotoxy(12,9);write('ÄÄÄÄÄ');
                 gotoxy(12,10);write('ANNEE SCOLAIRE:');gotoxy(51,10);
                 write('1998-1999');
                 gotoxy(12,11);write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
                 gotoxy(21,14);write('ÉÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍ»');
                 gotoxy(21,15);write('º ADMIS:A º RATRAPPAGE:R º ECHOUE:E º');
                 gotoxy(21,16);write('ÌÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍ͹');
                 gotoxy(21,17);write('º       FAITES VOTRE CHOIX...       º');
                 gotoxy(21,18);write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍO'); end;
                   gotoxy(48,17);readln(bao);
                     case bao of

   'a':
         begin
         textcolor(cyan);
         clrscr;
         i:=1;
          gotoxy(19,5);writeln('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
          gotoxy(19,6);writeln('º VOICI LA LISTE DES ETUDIANTS ADMIS º');
          gotoxy(19,7);writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍO');
              for i:=1 to nbre do

                if notes[i]>=10 then
                begin
                    gotoxy(15,10);write('NOMS');  gotoxy(60,10);write('NOTE/20');
                    gotoxy(15,11);write('ÄÄÄÄ');  gotoxy(60,11);write('ÄÄÄÄÄÄÄ');
                    gotoxy(15,11+i);write(noms[i]);gotoxy(60,11+i);write(notes[i]:5:3);
                    gotoxy(12,25);write('(pour retourner au menu ,dition appuyer sur enter.)');
                end;
           readln;
         end;
         'r':
         begin
         textcolor(cyan);
                clrscr;
          gotoxy(15,5);writeln('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
          gotoxy(15,6);writeln('º VOICI LA LISTE DES ETUDIANTS ADMIS AU RATTRAPAGE º');
          gotoxy(15,7);writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍO');
           for i:=1 to nbre do
            if (notes[i]<10) and (notes[i]>=7) then
                      begin
                    gotoxy(13,10);write('NOMS');  gotoxy(60,10);write('NOTE/20');
                    gotoxy(13,11);write('ÄÄÄÄ');  gotoxy(60,11);write('ÄÄÄÄÄÄÄ');
                    gotoxy(13,11+i);write(noms[i]);gotoxy(60,11+i);write(notes[i]:5:3);
                    gotoxy(12,25);write('(pour retourner au menu ,dition appuyer sur enter.)');
                end;

             readln;
         end;
         'e':
         begin
            textcolor(cyan);
            clrscr;
            i:=1;
            gotoxy(16,5);writeln('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
            gotoxy(16,6);writeln('º VOICI LA LISTE DES ETUDIANTS ADMIS A REDOUBLER  º');
            gotoxy(16,7);writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍO');
            for i:=1 to nbre do
             if notes[i]<7 then
              begin
                    gotoxy(13,10);write('NOMS');  gotoxy(60,10);write('NOTE/20');
                    gotoxy(13,11);write('ÄÄÄÄ');  gotoxy(60,11);write('ÄÄÄÄÄÄÄ');
                    gotoxy(13,11+i);write(noms[i]);gotoxy(60,11+i);write(notes[i]:5:3);
                    gotoxy(12,25);write('(pour retourner au menu principal appuyer sur enter.)');           end;
                    readln;
             end;
         end;   until (bao)='e';
                end;
       4:
       begin
        textcolor(magenta);textbackground(black);
        clrscr;
        for i:=1 to nbre-1 do
         for j:=i+1 to nbre do
         begin
             if notes[j]>notes[i] then
             begin
                 sav:=notes[i];
                 notes[i]:=notes[j];
                 notes[j]:=sav;
              end;
         end;
          for j:=1 to nbre do
          writeln('l''etudiant :',noms[j],' a  ',notes[j]:5:3,' de moyenne.');
          gotoxy(2,25);write('(pour retourner au menu appuyer sur la touche enter)');
        readln;  end;  end;
         until choix=6;
 end.