#!/usr/bin/perl -w

$OTROstock = 200;
$Tesoreria = 50;
$Clientes = 100;
$ActFijo = 200;
$Vtas = 1000;
$Compras = 550;
$GastFin = 50;
$OCostes = 300;

# Otros datos:
# 1. Financiación sin coste a 60 días
# 2. Rotación de existencias = 4 
# 3. Coste marginal del dinero = 20%

$Stock = $Vtas/4; # mayor que el enunciado


# 1. Calcular la rentabilidad

$Beneficio = $Vtas - $Compras - $GastFin - $OCostes;
$Activo = $Stock + $Tesoreria + $Clientes + $ActFijo;

print "#1 Rentabilidad = ", $Beneficio / $Activo , "\n";

# 2.1 Reducción del coste de las compras del 2%

$Beneficio21 = $Beneficio + $Compras * 0.02;

print "#2.1 Rentabilidad = ", $Beneficio21 / $Activo, "\n";

# 2.2 Rotación de existencias pasa de 4 a 5 veces

$Stock22 = $Vtas / 5 ;

$Activo22 = $Activo -$Stock + $Stock22;

print "#2.2 Rentabilidad = ", $Beneficio / $Activo22, "\n";

# 2.3 Período medio de pago pasa de 60 a 70 días, sin coste

$GastFin23 = $GastFin * (60/70);

$Beneficio23 = $Beneficio + $GastFin - $GastFin23;

print "#2.3 Rentabilidad = ", $Beneficio23 / $Activo, "\n";

$Volfin = $GastFin/0.2;

$Volfin = $Volfin * (60/70);

$GastFin23b = $Volfin * 0.2;

$Beneficio23b = $Beneficio + $GastFin - $GastFin23b;

print "#2.3b Rentabilidad = ", $Beneficio23b / $Activo, "\n";


__END__

VER LIBRO PARA ENUNCIADO

$ perl compras
  Name "main::OTROstock" used only once: possible typo at compras line 3.
  #1 Rentabilidad = 0.166666666666667
  #2.1 Rentabilidad = 0.185
  #2.2 Rentabilidad = 0.181818181818182
  #2.3 Rentabilidad = 0.178571428571429
  #2.3b Rentabilidad = 0.178571428571429