practica 7 ejercicio B8, Pascal

Language: Layout:

program HelloWorld;
{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
CONST - Define las constantes para usar en tiempo de compilacion}
const
    //-----------vector-----------//
    empleados = 800;
    oficinas = 20;
    
    //-----------fecha-----------//
    dias = 31;
    meses = 12;
    aniomax = 1999;
    aniomin = 1950;
{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
TYPE - Define los tipos creados por el usuario para usar en tiempo 
de compilacion}
type
    
    //-----------rangos-----------// 
    rangoOficinas = 1 .. oficinas;
    rangoEmpleados = 1 .. empleados;
    rangoDias = 1 .. dias;
    rangoMeses = 1 .. meses;
    rangoAnios = aniomin .. aniomax;
    
    //-----------registros-----------//
    Tnombre = string [15];
    
    Tfecha = record
        dia : rangoDias;
        mes : rangoMeses;
        anio : rangoAnios;
    end;
    
    Templeado = record
        nombre : Tnombre;
        apellido : Tnombre;
        fecha : Tfecha;
        DNI : integer;
        oficina : rangoOficinas;
    end;
    
    //-----------vectores-----------//
    Tvector = record
        vector : array [rangoEmpleados] of Templeado;
        DimL : rangoEmpleados;
    end;
    
    vectorOficinas = array [rangoOficinas] of integer;
    
{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
VARIABLES GLOBALES - Define variables que se podran usar por todos los modulos
de ser necesarias}
//var
{-----------------------------------------------------------------------------------------------------------------------}

begin
    readln(e.DNI);
    if e.DNI <> 0 then begin
        e.fecha.dia := random(dias)+1;
        e.fecha.mes := random(meses)+1;
        e.fecha.anio := random(aniomax-aniomin)+aniomin;
        e.oficina := random(oficinas)+1;
        readln(e.nombre);
        readln(e.apellido);
    end;
end;

{-----------------------------------------------------------------
CARGAR VECTOR ...}
procedure cargarVector(var v : Tvector);
begin
    randomize;
    v.DimL := 1;
    leerEmpleado(v.vector[v.DimL]);
    while (v.vector[v.DimL].DNI <> 0)and(v.DimL <= empleados) do begin
        v.DimL := v.DimL + 1;
        leerEmpleado(v.vector[v.DimL]);
    end;
    v.DimL := v.DimL -1 ;
end;

{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
IMPRIMIR DECENA}
procedure imprimirDecena(n:integer);
begin
        if n > 9 then begin
            write(' | ',n);
        end else
            write(' | 0',n);    
end;
{-----------------------------------------------------------------
IMPRIMIR DECENA 2}
procedure imprimirDecena2(n:integer);
begin
        if n > 9 then begin
            writeln(' | ',n,' |');
        end else
            writeln(' | 0',n,' |');    
end;
{-----------------------------------------------------------------
IMPRIMIR DECENA 3}
procedure imprimirDecena3(n:rangoOficinas);
begin
        if n > 9 then begin
            write('   ',n);
        end else
            write('   0',n);    
end;
{-----------------------------------------------------------------
IMPRIMIR VECTOR}
procedure imprimirOficinas(v : vectorOficinas);
var j : rangoOficinas;
begin
    for j := 1 to oficinas do 
        write('-----');
    writeln;
    for j := 1 to oficinas-1 do 
        imprimirDecena(v[j]);
    imprimirDecena2(v[oficinas]);
    for j := 1 to oficinas do 
        write('-----');
    writeln;
     for j := 1 to oficinas do 
        imprimirDecena3(j);
    writeln;
end;
{157-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------
IMPRIMIR EMPLEADO ...}
procedure imprimirEmpleado(e : Templeado);

begin
    writeln('nombre: ',e.nombre);
    writeln('apellido: ',e.apellido);
    writeln('DNI ', e.DNI);
    writeln('oficina: ', e.oficina);
    writeln('fecha de nacimiento: ',e.fecha.dia,'/',e.fecha.mes,'/',e.fecha.anio);
    writeln('-----------------------------------------------------------------');
end;
{-----------------------------------------------------------------
IMPRIMIR VECTOR ...}
procedure imprimirVector(v : Tvector);
var
    i : rangoEmpleados;
begin
    for i := 1 to v.DimL do 
        imprimirEmpleado(v.vector[i]);
end;

{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
INICIALIZAR ...}
procedure inicializar(var v1 : vectorOficinas;var m : rangoMeses);
var 
    i : rangoOficinas;
begin
    for i := 1 to oficinas do
        v1[i]:=0;
    m:= random(meses)+ 1;
end;

{-----------------------------------------------------------------
RECORRER VECTOR ...}
procedure recorrerVector(v : Tvector);
var
    v1 : vectorOficinas;
    i:rangoOficinas;
    m:rangoMeses;
begin
    
    inicializar(v1,m);
    
    
    for i := 1 to v.DimL do begin
        
        
        // ejercicio a ...
        if v.vector[i].oficina = 1 then begin
            writeln('empleado que trabaja en la oficina 1:');
            imprimirEmpleado(v.vector[i]);
        end;
        
        
        //ejercicio b ...
        v1[v.vector[i].oficina] := v1[v.vector[i].oficina] + 1;
        
        
        //ejercicio c ...
        if (v.vector[i].fecha.mes = m) then begin
            writeln('empleado que cumplio anios en el mes ',m);
            imprimirEmpleado(v.vector[i]);
        end;
        
    
    end;
    
    writeln('la cantidad de empleados por oficinas es : ');
    imprimirOficinas(v1);
    
    
end;

{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
PROGRAMA PRINCIPAL}
var
    v : Tvector;
begin
    randomize;
    cargarVector(v);
    writeln('//-----------imprimirVector-----------//');
    writeln;writeln;writeln;writeln;
    imprimirVector(v);
    writeln;writeln;writeln;
    writeln('//-----------imprimirResultados-----------//');
    writeln;writeln;
    recorrerVector(v);
end.
{-----------------------------------------------------------------------------------------------------------------------}

Show compiler warnings [ - ] Show input
Compilation time: 0.12 sec, absolute running time: 0.17 sec, cpu time: 0.01 sec, memory peak: 5 Mb, absolute service time: 0,47 sec