practica 6 ejercicio 2, Pascal

Language: Layout:

//fpc 3.0.4

program HelloWorld;
const
    anios = 4;
    meses = 12;
    dias = 31;
    horas = 23;
{------------------------------------------------------
TYPE - Se definen los tipos de variables no definidos por el programa}
type
{------------------SUBRANGOS--------------------}
    rangoAnio = 0 .. anios;
    rangoMes = 1 .. meses;
    rangoDia = 1 .. dias;
    rangoHora = 0 .. horas;
{------------------FECHAS--------------------}
    Tfecha = record
        anio : rangoAnio;
        mes : rangoMes;
        dia : rangoDia;
    end;
{------------------MENSAJES--------------------}
    Tmensaje = record
        fecha : Tfecha;
        hora : rangoHora;
        cant : integer;
    end;
{------------------------------------------------------
VARIABLES GLOBALES - Para evitar la fatiga}
var
    m : Tmensaje;
    cant,cantDia,cantMes:integer;                                       // variables
    max: Tmensaje;
{------------------------------------------------------
Informar Fecha - imprime en pantalla la fecha correspondiente }
procedure informarFecha();
var l : integer;
begin
    l:= 2021 - m.fecha.anio;
    write(m.fecha.dia,'/',m.fecha.mes,'/',l);                     // se informa fecha

end;
{------------------------------------------------------
Maximo - calcula la mayor cant de mensajes }
procedure maximo();
begin
    if cantDia > max.cant then begin                 // se calcula la maxima cantidad de mensajes por dia
        max.cant:= cantDia;
        max.fecha := m.fecha;
    end;
end;
{------------------------------------------------------
lectura - lee todos los parametros }
procedure Lectura();
begin
    write(' ingrese anio: ');                                   {se ingresa el anio}
    readln(m.fecha.anio); write(m.fecha.anio);writeln;
    if m.fecha.anio <> 0 then begin
        write(' ingrese mes: ');                               {se ingresa el mes}
        readln(m.fecha.mes);write(m.fecha.mes);writeln;
        write(' ingrese dia: ');                              {se ingresa el dia}
        readln(m.fecha.dia);write(m.fecha.dia);writeln; 
        write(' ingrese hora: ');                              {se ingresa la hora}
        readln(m.hora);write(m.hora);writeln;
    end;
end;
{------------------------------------------------------
LECTURA HORARIA - Se lee durante la misma hora}
procedure Xhora();
var
    reg_hora : rangoHora;
begin
    reg_hora:= m.hora;                        // se registra la hora
    cant:=0;
    while m.hora = reg_hora do begin    // mientras la hora sea la misma
       
        write(' ingrese cant: ');           {se ingresa la cantidad}
        readln(m.cant);
        write(m.cant);
        writeln;
        
        
        cant:= cant + m.cant;           // se suma la cantidad de mensajes en esa hora
      
        write(' ingrese hora: ');             {se ingresa la hora}
        readln(m.hora);
        write(m.hora);
        writeln;
        
    end;
end;
{------------------------------------------------------
LECTURA DIARIA - se lee durante el mismo dia }
procedure Xdia();
var 
    reg_dia: rangoDia;
begin
    reg_dia:= m.fecha.dia;                          // se registra el dia
    cantDia:=0;            // inicializacion...
    while m.fecha.dia = reg_dia do begin
        Xhora();
        cantDia:= cant+ cantDia;
        
         
        write(' ingrese dia: ');                         {se ingresa el dia}
        readln(m.fecha.dia); 
        write(m.fecha.dia);
        writeln;
        
    end;
    
    writeln;
    write(' para el dia ');informarFecha();                     // informamos mensajes por dia
    write(' hubo ',cantDia,' mensajes');
    writeln;writeln;
    
end;
{------------------------------------------------------
LECTURA MENSUAL - Se lee durante el mismo mes}
procedure Xmes();
var
    reg_mes: rangoMes;
begin
    reg_mes := m.fecha.mes;                                               // se registra el mes
    cantMes:= 0;        // inicializacion ...
    while m.fecha.mes = reg_mes do begin
        Xdia();
        maximo();
        cantMes:= cantMes + cantDia;
        
        
        write(' ingrese mes: ');                            {se ingresa el mes}
        readln(m.fecha.mes);
        write(m.fecha.mes);
        writeln;
    
    end;
    writeln;
    writeln(' en el mes ',m.fecha.mes,' hubo ',cantMes,' mensajes');         // informamos mensajes por mes
    writeln;
end;
{------------------------------------------------------
LECTURA ANUAL - Se lee durante el mismo anio}
procedure Xanio ();
var
    reg_anio :rangoAnio;
begin
    reg_anio := m.fecha.anio;                           // se registra el anio
    while m.fecha.anio = reg_anio do begin
        Xmes();
        
        
        write(' ingrese anio: ');                  {se ingresa el anio}
        readln(m.fecha.anio);
        write(m.fecha.anio);
        writeln;
    
    end;
end;
{------------------------------------------------------
LECTURA PRINCIPAL - engloba todas las lecturas temporarias }
begin
    Lectura();
    max.cant:=0;                                            // inicializamos la cantidad de mensajes maxima
    while m.fecha.anio <> 0 do begin
        Xanio();    
    end;
end.

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