Cómo encontrar el Mean Utilizando Perl

En estadística, la media no es más que una media de un espacio muestral , que es un grupo de números en un conjunto . Usted 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 el cálculo de 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 - no necesita otras funciones integradas. Instrucciones
1

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

sub significan {

mi @ set = @ _ ;

$ Total = 0 ;

Esto define una nueva función llamada " significa " y luego crea una matriz denominada " @ set " que tiene la lista argumento pasado a la función. También crea una variable llamada "$ Total" y se inicializa a cero
2

Escriba el siguiente código:

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

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

}

" bucle for " sentencia crea una variable de contador llamado " $ i " y la utiliza para desplazarse a través de todos los números en el " set @ " matriz y los agrega juntos, guardando el resultado en la variable" $ total. "
3

Escriba el el siguiente código :

impresión " Números totales : " . @ configurar . " \\ n";

print " Suma: " . $ total. " \\ n";

print " significa : " . $ total /@ set ;

print "\\ n \\ n"; }

Estas líneas Formato de la salida y mostrar al usuario la cantidad de números estaban en el espacio muestral , su valor total y la media . A continuación, se imprime dos líneas en blanco para facilitar la lectura , y se cierra la función de media
4

Escriba el siguiente código: .

Media ( 1,2,3) ;
< p> media ( 6,11,7 ) ;

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

Estas líneas de probar la función de significar . La primera convocatoria 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 convocatoria tiene 10 números totales que suman 199 y tienen una media de 19,9 .
5

Guardar el programa Perl.