domingo, 3 de marzo de 2013

Programando en Perl no.1


Lo prometido es deuda. He aquí algunos ejercicios de programación en Perl. No tienen una explicación detallada, pero se entienden.

1. Paso de parámetros:
my $parametro=$ARV[0];
print "Introduciste:  ",$parametro,"\n";

2. Obtener salario bruto y neto:

my $extras; 
my $salarioBruto;
my $salarioNeto;

print "Introduce horas:";
$horas= <STDIN>;
if($horas <= 38){
  $extras=0,
}else{
  $extras=$horas-38;
  $horas=38;
}

print "Introduce tasa de interes:";
$tasa= <STDIN>;

$salarioBruto=$horas*$tasa+$extras*$tasa*1.5;

if($salarioBruto<=300){
  $salarioNeto=$salarioBruto;
}else{
  $salarioNeto=$salarioBruto*0.9;
}

print "Datos:\n";
print "horas: ",$horas,"\n";
print "extras: ",$extras,"\n";
print "salario bruto: ",$salarioBruto,"\n";
print "salario neto: ",$salarioNeto,"\n";


3.  Calcular el valor futuro

#definimos una función
sub valorfuturo{
 print "valor futuro obtenido: ",$_[0]*((1+$_[1]/100)**$_[2]),"\n";
}

print "Valor presente: \n";
$valor= <STDIN>;
print "Tasa de interes: \n";
$interes= <STDIN>;
print "Plazo de pago: \n";
$plazo= <STDIN>;

&valorfuturo($valor,$interes,$plazo);

4. Obtener pulsaciones e índice de masa corporal:
#ejecutamos el comando clear (Linux  en Windwos sería cls)

print `clear`;
print "\n";
print "Tu nombre:\n";
$nombre = <STDIN>;
print "Tu edad:";
$edad= <STDIN>;
print "Tu peso:\n";
$peso = <STDIN>;
print "Tu talla:";
$talla= <STDIN>;


print "Hola $nombre\n";
print "tienes $edad de edad\n";
print "tu peso es de $nombre kg\n";
print "tu talla es de $edad mts\n";

$pulsaciones=(220-$edad);
$imc=$peso/($talla*$talla);
print "pulsaciones: ",$pulsaciones,"\n";
print "indice de masa corporal: ",$imc,"\n";

Si usas Windows te conviene usar  Strawberry Perl.






No hay comentarios:

Publicar un comentario