#!/usr/bin/perl -w

use strict;

my $dalia_demanda_diaria = 4380 * 25 / 365;
my $dalia_punto_de_pedido = 20 * $dalia_demanda_diaria;

print "1. Punto de pedido de dalias = $dalia_punto_de_pedido\n";

my $jazmin_punto_de_pedido = 420;
my $jazmines_demanda_diaria = $jazmin_punto_de_pedido * 18;

print "2. Demanda diaria de jazmines = $jazmines_demanda_diaria\n";

my $maceta_tasa_neta_diaria = 300 - 180;
my $macetas_a_fabricar = (840 / $maceta_tasa_neta_diaria) * 300;

print "3. Tamaño del lote a fabricar de macetas = $macetas_a_fabricar\n"; 

my $dias_a_fabricar = $macetas_a_fabricar / 300;

print "4. Días de fabricación de macetas = $dias_a_fabricar\n";

__END__

La empresa distribuidora de plantas CALENDULA, S.L. es famosa por tres
productos: las dalias, los jazmines y las macetas rústicas.
Las dalias las compra a un proveedor que le suministra lotes de 4380
unidades. Con este sistema, se conoce que la empresa deberá solicitar
25 pedidos a lo largo del año (365 días). Sabiendo que el proveedor
tarda 20 días en llevar el pedido desde que le es solicitado, determine:

1. El número de dalias que debe tener en inventario para que la
empresa solicite un nuevo pedido al proveedor.

El proveedor de los jazmines desea recibir un pedido cada 15 días,
tardando en suministrarlo 18 días desde su solicitud. Cuando se realiza
un nuevo pedido, la empresa posee 420 jazmines, recibiéndose el nuevo
lote justo cuando deja de tener existencias de tan preciada planta.
Con esta información se desea saber:
  
2. Cuál es la demanda diaria.
  
Las macetas las fabrican ellos mismos con ayuda de un pequeño horno que,
cuando está en funcionamiento, tiene una capacidad de 300 macetas al
día. Diariamente venden 180 unidades. Para evitar demasiadas roturas y 
pérdidas en el almacén, no desean mantener en inventario más de 840
macetas. Con estos datos:
  
3. ¿Cuál es el tamaño del lote que deben fabricar?
  
4. ¿Durante cuántos días se fabrica?