Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte súbor programu v Perlu . Zadajte nasledujúci kód :
sub priemerná {
môj @ set = @ _ ;
$ total = 0 ;
definuje novú funkciu s názvom " znamenať " a potom vytvorí pole s názvom " @ set " , ktorý berie v zozname argumentov odovzdaný funkciu . To tiež vytvorí premennú s názvom " $ celkom " a inicializuje na nulu
2
zadajte nasledujúci kód :
for ( $ i = 0 ; $ i < @ sady . ; $ i + + ) {
$ spolu = $ celkom + @ nastavte [ $ i ] ;
}
" pre sláčiky " príkaz vytvorí čítač premennú s názvom " $ i " a využíva ho , aby cyklus cez všetky čísla vo " @ set " pole a spočíta je , uloženie výsledku do " $ celkom " premenné .
3
Sem nasledujúci kód :
print " Počet čísiel " . @ Nastavený . " \\ N " ;
print " Sum " . $ Celkom . " \\ N " ;
print " Mean " . $ Príspevkov /@ set ;
print " \\ n \\ n" ;
}
Tieto riadky formátovanie výstupu a ukázať užívateľovi , koľko čísel bolo v priestore pre vzorky ich celková hodnota a priemer . To potom vytlačí dve prázdne riadky pre jednoduchšie čítanie , a zavrie stredné funkcie
4
zadajte nasledujúci kód : .
Stredné ( 1,2,3 ) ;
stredná ( 6,11,7 ) ;
mysle ( 5,2,5,2,66,4,2,26,64,23 ) ;
Tieto riadky otestovať znamená funkciu . Prvý hovor má tri celkové počty , ktoré pridávajú až šesť a majú priemer dva . Druhá výzva má opäť tri celkové počty , ktoré pridávajú do 24 a majú priemer osem . Tretia výzva má celkom 10 čísel , ktoré pridávajú do 199 a majú priemer 19,9 .
5
Uložte program Perl .