practica 5 ejercicio 6, Pascal

Language: Layout:

//fpc 3.0.4

program HelloWorld;
const 
    meses = 12;
    sucursales = 7;
type
    rangoMes = 1 .. meses;
    rangoSucursal = 1 .. sucursales;
    Tsucursal = record
        cantidad_vendido : integer;
        cantidad_devuelto : integer;
        monto_facturado : real;
        monto_devuelto : real;
    end;
{--------------------------------------------------------------------
}
procedure leer (var s : Tsucursal);
begin
    readln(s.cantidad_vendido,s.cantidad_devuelto,s.monto_facturado,s.monto_devuelto);
end;
{--------------------------------------------------------------------
}    
function ganancia(s :Tsucursal):real;
begin
   ganancia:=(s.monto_facturado - s.monto_devuelto);
end;
{--------------------------------------------------------------------
}
procedure mesQueMasVendio(s : Tsucursal;var masVendio:integer; var mes_max: rangoMes;mes:rangoMes);
var vendio : integer;
begin
    vendio:= (s.cantidad_vendido - s.cantidad_devuelto);
    if vendio > masVendio then begin
        masVendio:= vendio;
        mes_max := mes;
    end;

end;
{--------------------------------------------------------------------
}
procedure gananciaMin(g:real;var gmin:real;s:rangoSucursal;var smin:rangoSucursal);
begin
    if gmin > g then begin
        gmin:= g;
        smin:=s;
    end;
end;
{--------------------------------------------------------------------
}
procedure Informe_AyC(smin:rangoSucursal;var prom:real);
begin
    writeln('la sucursal con menor ganancia es ',smin);
    prom:= prom / sucursales;
    writeln;
    writeln('la Ganancia promedio en el mes de marzo entre todas las sucursales es ',prom:8:2);
    writeln;
end;
{--------------------------------------------------------------------
}
procedure Informe_B(m:rangoMes;s:rangoSucursal);
begin
    write('para la sucursal ',s,' el mes que mas vendio fue ');
    case m of
        1: writeln('enero');
        2:writeln('febrero');
        3:writeln('marzo');
        4:writeln('abril');
        5:writeln('mayo');
        6:writeln('junio');
        7:writeln('julio');
        8:writeln('agosto');
        9:writeln('septiembre');
        10:writeln('octubre');
        11:writeln('noviembre');
        12:writeln('diciembre');
    end;
    writeln;
end;
{--------------------------------------------------------------------
}
procedure recaudacionPromedioMarzo(mes : rangoMes;s :Tsucursal; var prom :real);
begin
        if mes = 3 then
            prom:= prom + ganancia(s);
end;
{--------------------------------------------------------------------
}
var
    suc : Tsucursal;
    mes,mes_max : rangoMes;
    s,smin : rangoSucursal;
    g,gmin,prom:real;
    masVendio:integer;
begin
    gmin:=9999999999999;
    prom:=0;
    for s:=1 to sucursales do begin
        masVendio:=0;g:=0;
        for mes:= 1 to meses do begin
            leer(suc);//.. VENDIDO, DEVUELTO , FACTURADO, DEVUELTO
            g:= ganancia(suc) + g;
            recaudacionPromedioMarzo(mes,suc,prom);
            mesQueMasVendio(suc,masVendio,mes_max,mes);
        end;
        gananciaMin(g,gmin,s,smin);
        Informe_B(mes_max,s);
    end;
    Informe_AyC(smin,prom);
    
end.

125
13
1250000
130000

200
40
2000000
400000

222
33
2220000
330000

880
400
8800000
4000000

15
4
150000
40000

120
22
1200000
220000

80
15
800000
150000

400
130
4000000
1300000

200
113
2000000
1130000

555
222
5550000
2220000

999
0
9990000
0

42
10
420000
100000

125
13
1250000
130000

200
40
2000000
400000

222
33
2220000
330000

880
400
8800000
4000000

15
4
150000
40000

120
22
1200000
220000

80
15
800000
150000

400
130
4000000
1300000

200
113
2000000
1130000

555
222
5550000
2220000

999
0
9990000
0

42
10
420000
100000

125
13
1250000
130000

200
40
2000000
400000

222
33
2220000
330000

880
400
8800000
4000000

15
4
150000
40000

120
22
1200000
220000

80
15
800000
150000

400
130
4000000
1300000

200
113
2000000
1130000

555
222
5550000
2220000

999
0
9990000
0

42
10
420000
100000

125
13
1250000
130000

200
40
2000000
400000

222
33
2220000
330000

880
400
8800000
4000000

15
4
150000
40000

120
22
1200000
220000

80
15
800000
150000

400
130
4000000
1300000

200
113
2000000
1130000

555
222
5550000
2220000

999
0
9990000
0

42
10
420000
100000

125
13
1250000
130000

200
40
2000000
400000

222
33
2220000
330000

880
400
8800000
4000000

15
4
150000
40000

120
22
1200000
220000

80
15
800000
150000

400
130
4000000
1300000

125
13
1250000
130000

200
40
2000000
400000

222
33
2220000
330000

880
400
8800000
4000000

15
4
150000
40000

120
22
1200000
220000

80
15
800000
150000

400
130
4000000
1300000

200
113
2000000
1130000

555
222
5550000
2220000

999
0
9990000
0

42
10
420000
100000

200
113
2000000
1130000

555
222
5550000
2220000

999
0
9990000
0

42
10
420000
100000

125
13
1250000
130000

200
40
2000000
400000

222
33
2220000
330000

880
400
8800000
4000000

15
4
150000
40000

120
22
1200000
220000

80
15
800000
150000

400
130
4000000
1300000

200
113
2000000
1130000

555
222
5550000
2220000

999
0
9990000
0

42
10
420000
100000

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,42 sec