当前位置:首页 > 开发 > 编程语言 > 编程 > 正文

perl求平均数

发表于: 2015-07-09   作者:zengshaotao   来源:转载   浏览:
摘要: #!/usr/bin/perl ##############################################################################   sub sum{   my $sum; foreach(@_){   $sum+=$_;#取得数组里的每一个数 }   $sum;  

#!/usr/bin/perl

##############################################################################

 

sub sum{

 

my $sum;

foreach(@_){

 

$sum+=$_;#取得数组里的每一个数

}

 

$sum;

 

}

 

sub getAvg{

if(@_==0){return}#长度为零

my $avg;

my $len = @_;#如果是变量赋值,那么这里只是把数组的长度赋给了len

print @_;#打印出数组里面的内容

print "\n";

print "长度:";print $len;

print "\n";

print "平均数相加的和:\n";

print sum(@_);

print "\n";

$avg = sum(@_)/$len;

print "平均数:";

print $avg;print "\n";#print语句出现在方法的最后一行时,方法返回1

return $avg;

}

 

sub aboveAvg{

 

my $avgNum = getAvg(@_);

my $list;

 

foreach(@_){

 

if($avgNum<$_){

 

push @list,$_;

}

}

print "大于平均数的值\n";

print @list;

@list;

}

 

aboveAvg(1..8);

perl求平均数

  • 0

    开心

    开心

  • 0

    板砖

    板砖

  • 0

    感动

    感动

  • 0

    有用

    有用

  • 0

    疑问

    疑问

  • 0

    难过

    难过

  • 0

    无聊

    无聊

  • 0

    震惊

    震惊

编辑推荐
/* * Copyright (c) 2013, 烟台大学计算机学院 * All rights reserved. * 作 者: 申玉迪 * 完成日
/* * Copyright (c) 2013, 烟台大学计算机学院 * All rights reserved. * 作 者: 马广明 * 完成日
Option Explicit Dim i, v, sum, aver '定义变量 i用于在输入框中显示输入的是第几个数__ '变量v表
// Copyright (c) 2013, 烟台大学计算机学院 // All rights reserved. // 作 者: 沈远宏 // 完成日
1.函数实现 0)打印数组 /// <summary> /// 打印数组 /// </summary> /// <param na
转载请注明出去:http://blog.csdn.net/xiaojimanman/article/details/41117357 更多hadoop内容请访
入门就是能写出一个HelloWorld,前提自然需要先安装语言环境。 一、获取安装 1,来这里下载Perl,按
声明:本神奇的Perl系列为刘兴(http://deepfuture.iteye.com/)原创,未经笔者授权,任何人和机构不
声明:本神奇的Perl系列为刘兴(http://deepfuture.iteye.com/)原创,未经笔者授权,任何人和机构不
1 测试内容和常用模块 CPAN上有很多成熟的模块可以拿来帮助我们对perl脚本做单元测试,本文整理了它
版权所有 IT知识库 CopyRight © 2009-2015 IT知识库 IT610.com , All Rights Reserved. 京ICP备09083238号