I statistikken er middelverdien rett og slett et gjennomsnitt av et utfallsrommet , som er en gruppe med tall i et sett. Du beregne gjennomsnittet ved å tilsette alle tallene sammen, og deretter dividere summen av det totale antall elementer i prøven plass . Ved hjelp av Perl , kan du programmere en funksjon for å beregne middelverdien og deretter kalle det fra noe annet sted i programmet. Du trenger bare å bruke utfallsrommet som en matrise og et par variabler som tellere - du trenger ikke noen andre innebygde funksjoner . Instruksjoner
en

Åpne et Perl program fil . Skriv inn følgende kode :

sub bety {

min @ set = @ _ ;

$ total = 0;
p Dette definerer en ny funksjon kalt " mener" og deretter oppretter en matrise kalt " @ set" som tar argumentet liste sendes til funksjonen . Det skaper også en variabel kalt " $ total" og setter den til null
2

Skriv inn følgende kode :

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

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

}

Denne " for loop " statement skaper en teller variabel kalt " $ jeg ", og bruker den til å bla gjennom alle tallene i " @ set "array og legger dem sammen , lagre resultatet i " $ total "variable .
3

Skriv inn følgende kode :

print " Totalt Numbers : " . @ innstilt. "\\ n";

print " Sum: " . $ totalt . "\\ n";

print " Mean : " . $ totalt /@ set ;

print " \\ n \\ n ";

}

Disse linjene format utgang og vise brukeren hvor mange tall var i utfallsrommet , deres totale verdi og mener. Den skriver deretter to blanke linjer for lettere lesing, og lukker den gjennomsnittlige funksjon
4

Skriv inn følgende kode : .

Gjennomsnitt ( 1,2,3 ) ;
< p> gjennomsnittet ( 6,11,7 ) ;

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

Disse linjene teste bety funksjon . Den første samtalen har tre totaltall som legger opp til seks og har et gjennomsnitt på to. Den andre samtalen har igjen tre totaltall som legger opp til 24 og har et gjennomsnitt på åtte. Den tredje samtalen har 10 totalt tall som legger opp til 199 og har et gjennomsnitt på 19,9 .
5

Lagre Perl program .