petit programme de gestion d'eleves ou l'on peut ajouter modifier et suprimer un eleves ....
Source / Exemple :
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('Premire');
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 enregisrtre 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('Premire');
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.
Conclusion :
merci
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.