Hvordan finne den Mean Ved hjelp av Perl

I statistikk, er den midlere bare et gjennomsnitt av en prøve plass, noe som er en gruppe av tall i et sett. Du beregne middelverdien ved å legge alle tallene og deretter dele summen av det totale antall elementer i utfallsrommet. Ved hjelp av Perl, kan du programmere en funksjon for å beregne middelverdien og deretter kalle det fra andre steder i programmet. Du trenger bare å bruke utfallsrommet som en matrise og et par av variabler som tellere - du trenger ikke noen andre innebygde funksjoner.

Bruksanvisning

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

sub gjennomsnittlig {

min @set = @_;

$ Total = 0;

Dette definerer en ny funksjon kalt "betyr" og deretter oppretter en matrise som heter "@set" som tar argumentlisten 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 <@set; $ i ++) {

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

}

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

3 Skriv inn følgende kode:

skrive "Totalt Numbers:". @set. "\ N";

print "Sum:". $ Totalt. "\ N";

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

print "\ n \ n";

}

Disse linjene formatere output og vise brukeren hvor mange tall var i utfallsrommet, deres totale verdi og gjennomsnittet. Den skriver deretter to tomme linjer for lettere å lese, og lukker den gjennomsnittlige funksjon.

4 Skriv inn følgende kode:

mener (1,2,3);

mener (6,11,7);

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

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

5 Lagre Perl program.