Cómo encontrar la media Utilizando Perl

En estadística, la media es simplemente un promedio de un espacio de la muestra, que es un grupo de números en un conjunto. Se calcula la media sumando todos los números juntos y dividiendo la suma por el número total de elementos en el espacio muestral. Utilizando Perl, puede programar una función para calcular la media y luego llamarlo desde cualquier otro lugar en su programa. Sólo tiene que utilizar el espacio de muestra como una matriz y un par de variables como contadores - usted no necesita cualesquiera otras funciones incorporadas.

Instrucciones

1 Abrir un archivo de programa Perl. Escriba el siguiente código:

{sub media

mi @set = @_;

$ Total = 0;

Esto define una nueva función llamada "significa" y luego crea una matriz denominada "@set" que se lleva a la lista de argumentos pasados ​​a la función. También crea una variable llamada "$ total» y la inicializa a cero.

2 Escriba el siguiente código:

for ($ i = 0; $ i <@set; $ i ++) {

$ Total = $ + total @set [$ i];

}

Este "bucle" sentencia crea una variable de contador llamado "$ i" y lo utiliza para desplazarse a través de todos los números de la matriz "@set" y los suma, guardar el resultado en el "total de $" variable.

3 Escriba el siguiente código:

imprimir "Números totales:". @set. "\norte";

print "Sum". $ Total. "\norte";

print "se refiere a:". $ Total / @set;

print "\ n \ n";

}

Estas líneas de formato a la salida y muestran al usuario cuántos números estaban en el espacio muestral, su valor total y la media. A continuación, imprime dos líneas en blanco para facilitar la lectura, y se cierra la función de media.

4 Escriba el siguiente código:

significa (1,2,3);

significa (6,11,7);

significa (5,2,5,2,66,4,2,26,64,23);

Estas líneas pruebe las funciones de media. La primera llamada tiene tres números totales que suman seis y tienen una media de dos. La segunda llamada de nuevo tiene tres números totales que suman 24 y tienen una media de ocho. La tercera llamada tiene 10 números totales que suman 199 y tienen una media de 19.9.

5 Guarde el programa Perl.