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 .