PROGRAM D?ETUDIANT;
{
REPUBLIQUE ALGERIENNE DEMOCRATIQUE ET POPULAIRE
MENISTRE D'ENSEIGNEMENT SUPERIEURE ET DE LA RECHERCHE SCIENTIFIQUE
UNIVERSITE AMMAR TLAIDJI LAGHOUAT
DEPARTEMENT INFORMATIQUE ET MATHEMATIQUE
Programme realise par BOURAS Mohamed et BENADDOUN Elhadj
Encadrer par Mm TAABA
Premiere annee Mathematique et Informatique
Saison universitair 2009/2010
}
uses crt;
label g,h;
const n=1;
type date=record
joure:1..31;
mois:1..12;
annee:00..99;
end;
anuver=record
ane1:integer;
ane2:integer;
end;
identite=record
num:integer;
nom:string[30];
prenom:string[30];
d_ness:date;
l_ness:string[30];
niv:string[30];
filer:string[30];
ane_univ:anuver;
end;
var
ch:char;
c_etud:file of identite;
etud:identite;
n2,n1,j,i,k:integer;
{+--------------------------------------------------------}
procedure affichage;
begin
gotoxy(13,03);
writeln('----------------------------------------------------- ?);
for j:=4 to 22 do
begin
gotoxy(13,J);
writeln('-');
gotoxy(68,j);
writeln('-');
end;
gotoxy(52,04);
writeln(' ÄÄÄÄÄÄÄÄÄÄÄÄ¿');
for k:=5 to 10do
begin
gotoxy(52,k);
writeln('³');
gotoxy(65,k);
writeln('³');
end;
gotoxy(52,11);
writeln('ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ');
gotoxy(57,07);
writeln('PHOTO');
gotoxy(16,05);
writeln(' MINISTRE D''ENSEGNEMENT SUPERIEURE');
gotoxy(16,6);
writeln(' ET DE LA RECHERCHE SCIENTIFIQUE ');
gotoxy(16,7);
writeln(' UNIVERSITE DE LAGHOUAT');
gotoxy(16,8);
writeln(' PRISEDENCE DE L''UNIVERSITE');
gotoxy(23,11);
writeln(' CARTE D''ETUDIANT');
gotoxy(17,13);
writeln('NUMERO:');
gotoxy(17,15);
writeln('NOM:');
gotoxy(37,15);
writeln('PRENOM:');
gotoxy(17,17);
writeln('D NESSANCE:');
gotoxy(47,17);
writeln('A'':');
gotoxy(17,19);
writeln('NIVEAU:');
gotoxy(47,19);
writeln('FILIERE:');
gotoxy(17,21);
writeln('L''ANNEE UNIVERSITAIR:');
gotoxy(47,21);
writeln('/');
gotoxy(13,23);
writeln('------------------------------------------------- ');
end;
{----------------------------------------------------}
procedure creation;
begin
with etud do
begin
gotoxy(26,13);
readln(num);
gotoxy(23,15);
readln(nom);
gotoxy(47,15);
readln(prenom);
with d_ness do
begin
gotoxy(32,17);
readln(joure);
gotoxy(36,17);
readln(mois);
gotoxy(40,17);
readln(annee);
end;
gotoxy(52,17);
readln(l_ness);
gotoxy(26,19);
readln(niv);
gotoxy(57,19);
readln(filer);
with ane_univ do
begin
gotoxy(42,21);
readln(ane1);
gotoxy(49,21);
readln(ane2);
end;
end;
end;
{---------------------------------------------------------}
procedure sesir;
begin
rewrite(c_etud);
for i:=1 to n do
begin
affichage;
creation;
write(c_etud,etud);
clrscr;
end;
close(c_etud);
clrscr;
end;
{--------------------------------------------}
procedure consult;
begin
reset(c_etud);
gotoxy(20,08);
writeln('donnez le numero de l''enregistrement:');
gotoxy(58,08);
read(i);
if i>filesize(c_etud)then
begin
clrscr;
gotoxy(20,08);
writeln('la valeur depasse la taille du fichier?');
gotoxy(28,10);
writeln('<appyer sur une touch>');
gotoxy(52,10);
ch:=readkey;
end
else
begin
clrscr;
affichage;
seek(c_etud,i-1);
read(c_etud,etud);
with etud do
begin
gotoxy(26,13);
writeln(num);
gotoxy(23,15);
writeln(nom);
gotoxy(47,15);
writeln(prenom);
with d_ness do
begin
gotoxy(32,17);
writeln(joure);
gotoxy(36,17);
writeln(mois);
gotoxy(40,17);
writeln(annee);
end;
gotoxy(52,17);
writeln(l_ness);
gotoxy(26,19);
writeln(niv);
gotoxy(59,19);
writeln(filer);
with ane_univ do
begin
gotoxy(42,21);
writeln(ane1);
gotoxy(49,21);
writeln(ane2);
end;
end;
ch:=readkey;
close(c_etud);
readln;
end;
end;
{-------------------------------------------------------------}
procedure affichage1;
begin
reset(c_etud);
with etud do
for i:=1 to filesize(c_etud) do
begin
read(c_etud,etud);
affichage;
gotoxy(26,13);
writeln(num);
gotoxy(23,15);
writeln(nom);
gotoxy(47,15);
writeln(prenom);
with d_ness do
begin
gotoxy(32,17);
writeln(joure);
gotoxy(36,17);
writeln(mois);
gotoxy(40,17);
writeln(annee);
end;
gotoxy(52,17);
writeln(l_ness);
gotoxy(26,19);
writeln(niv);
gotoxy(57,19);
writeln(filer);
with ane_univ do
begin
gotoxy(42,21);
writeln(ane1);
gotoxy(49,21);
writeln(ane2);
end;
ch:=readkey;
clrscr;
end;
close(c_etud);
end;
{------------------------------------------------------------------}
procedure ajoute;
begin
reset(c_etud);
gotoxy(17,8);
write('donner le nombre des etudients ? ajouter: ');
gotoxy(59,8);
read(n1);
clrscr;
affichage;
seek(c_etud,filesize(c_etud));
for i:= 1 to n1 do
begin
affichage;
creation;
write(c_etud,etud);
clrscr;
end;
close(c_etud);
clrscr;
end;
{------------------------------------------------------------------}
begin {programme principale}
assign(c_etud,'crtetd');
g:clrscr;
gotoxy(13,03);
writeln('--------------------------------------------------------------');
for j:=4 to 22 do
begin
gotoxy(13,J);
writeln('-');
gotoxy(70,j);
writeln('-');
end;
gotoxy(18,7);
writeln('--------------CARTE D''ETUDIANT--------------');
gotoxy(20,9);
writeln('1:CREATION');
gotoxy(20,11);
writeln('2:AFFICHAGE');
gotoxy(20,13);
writeln('3:CONSULTATION');
gotoxy(20,15);
writeln('4:AJOUT');
gotoxy(20,17);
writeln('5:QUITTER');
gotoxy(20,19);
writeln('DONNEZ VOTRE CHOIX : ');
gotoxy(13,23);
writeln('--------------------------------------------------------------------');
gotoxy(41,19);
readln(n2);
clrscr;
case n2 of
1:begin
sesir;
goto g;
end;
2:begin
affichage1;
goto g;
end;
3:begin
consult;
goto g
end;
4:begin
ajoute;
goto g
end;
5:goto h;
end;
h:end.
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.