新手求助有關(guān)perl subroutine計算平均值的問題

和諧之風(fēng)

題目要求輸入5個0至100的數(shù)值，并取平均值。
輸入過程為一個輸完后回車再輸下一個
比如 請輸入數(shù)值：
       請輸入數(shù)值： 。。。。5次
       平均值：
   
小弟查了許多都沒有發(fā)現(xiàn)教程，望大神不吝賜教

zhlong8

http://product.dangdang.com/22704137.html 網(wǎng)上也有電子版，入門書哪一版并不太重要

rubyish

1. my $sum;
   
2. my $input;
   
3. 
   
4. print 'input: ';
   
5. $input = <>;
   
6. $sum += $input;
   
7. print 'input: ';
   
8. $input = <>;
   
9. $sum += $input;
   
10. print 'input: ';
    
11. $input = <>;
    
12. $sum += $input;
    
13. print 'input: ';
    
14. $input = <>;
    
15. $sum += $input;
    
16. print 'input: ';
    
17. $input = <>;
    
18. $sum += $input;
    
19. print 'ave = ', $sum / 5;

復(fù)制代碼

yeahnoob

rubyish 發(fā)表于 2015-05-07 00:40

成熟男人的幽默感

flyingdancen

回復(fù) 3# rubyish


    雖然我也感覺像是lz的個人作業(yè)。。