Come trovare la media utilizzando Perl

February 21

In statistica, la media è semplicemente una media di uno spazio campione, che è un gruppo di numeri in un set. Si calcola la media con l'aggiunta di tutti i numeri insieme e dividendo la somma per il numero totale di elementi nello spazio del campione. Utilizzando Perl, è possibile programmare una funzione per calcolare la media e quindi chiamare da qualsiasi altro posto nel programma. Hai solo bisogno di utilizzare lo spazio campione come un array e un paio di variabili come contatori - non hai bisogno di altre funzioni built-in.

istruzione

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

sub media {

il mio @Impostare = @_;

$ Totale = 0;

Questo definisce una nuova funzione chiamata "media" e poi crea un array chiamato "@Impostare" 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 <@Impostare; $ i ++) {

$ Totale = $ totale + @Impostare [$ i];

}

Questo "per il ciclo" istruzione crea una variabile contatore denominata "$ i" e lo usa per scorrere tutti i numeri nella matrice "@Impostare" e li somma, salvando il risultato nella variabile "$ totale".

3 Digitare il seguente codice:

stampare "Totale numeri:". @impostato . "\ N";

print "Somma:". $ Totale. "\ N";

print "Mean". $ Totale / @Impostare;

print "\ n \ n";

}

Queste linee formattare l'output e mostrano all'utente come molti numeri erano nello spazio del campione, il valore totale 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:

dire (1,2,3);

dire (6,11,7);

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

Queste linee testare la funzione media. La prima chiamata ha tre numeri totali che aggiungere fino a sei e hanno una media di due. La seconda chiamata ha di nuovo tre numeri totali che aggiungere fino a 24 e hanno una media di otto. La terza chiamata ha 10 numeri totali che si sommano a 199 e hanno una media di 19,9.

5 Salvare il programma Perl.