In statistica , la media è semplicemente una media di uno spazio campione , che è un gruppo di numeri in un insieme . Si calcola la media sommando tutti i numeri insieme e dividendo la somma per il numero totale di elementi dello spazio campionario . Utilizzando Perl , è possibile programmare una funzione per calcolare la media e quindi chiamare da qualsiasi altra parte del programma. Hai solo bisogno di utilizzare lo spazio campione come un array e un paio di variabili come i contatori - non avete bisogno di altre funzioni built- in . Istruzioni
1

Aprire un file di programma Perl . Digitare il seguente codice :
sub

significano {

mio @ set = @ _ ;

$ total = 0;

Questo definisce una nuova funzione chiamata " significare" e quindi crea un array di nome " @ set" che prende la lista degli argomenti passati alla funzione . Inoltre, crea una variabile chiamata " $ totale " e lo inizializza a zero
2

Digitare il seguente codice:

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

$ totale = $ totale + @ set [ $ i ] ; }

" per il ciclo " dichiarazione crea una variabile contatore chiamato " $ i " e la usa per scorrere tutti i numeri della " @ set " array e li somma , salvando il risultato nel" variabile $ totale " .
3

Tipo l' seguente codice :

stampa " il numero totale di : " . @ set . " \\ n"; print

" Somma : " . $ totale . " \\ n";

stampa " significa : " . $ totale /@ set ;

print " \\ n \\ n"; }

Questi formato linee l'uscita e mostrare all'utente quanti numeri sono stati nello spazio campione , il loro valore e la media . E poi stampa due righe vuote per una più facile lettura , e chiude la funzione di media
4

digitare il seguente codice : .

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

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

Queste linee di prova del funzione di significare . La prima chiamata ha tre numeri totali che aggiungere fino a sei e hanno una media di due. La seconda chiamata è di nuovo tre numeri totali che aggiungere fino a 24 e hanno una media di otto. La terza chiamata ha 10 numeri totali che aggiungere fino a 199 e hanno una media di 19,9 .
5

Salvare il programma Perl .