新手求助有关perl subroutine计算平均值的问题

和谐之风

题目要求输入5个0至100的数值，并取平均值。
输入过程为一个输完后回车再输下一个
比如 请输入数值：
       请输入数值： 。。。。5次
       平均值：
   
小弟查了许多都没有发现教程，望大神不吝赐教

zhlong8

http://product.dangdang.com/22704137.html 网上也有电子版，入门书哪一版并不太重要

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;

复制代码

yeahnoob

rubyish 发表于 2015-05-07 00:40

成熟男人的幽默感

flyingdancen

回复 3# rubyish


    虽然我也感觉像是lz的个人作业。。