写一个子程序,名为&above_average,将一列数字作为其参数,返回所有大于平均值的数字(提示:
来源:互联网 发布:用友软件t6价格 编辑:程序博客网 时间:2024/06/07 23:30
#! usr/bin/perl
sub average
{
my $total;
my $n=0;
my $average;
foreach(@_)
{
$total+=$_;
$n++;
}
$average=$total/$n;
$average;
}
sub above_average
{
@above=();
my $t=&average(@_);
foreach(@_)
{
if($_>$t){push @above ,$_};
}
@above;
}
my @fred =&above_average(1 .. 10);
print "\@fred is @fred\n";
print "(Should be 6 7 8 9 10)\n";
my @barney = &above_average(100,1 .. 10);
print "\@barney is @barney\n";
print "(Should be just 100)\n";
sub average
{
my $total;
my $n=0;
my $average;
foreach(@_)
{
$total+=$_;
$n++;
}
$average=$total/$n;
$average;
}
sub above_average
{
@above=();
my $t=&average(@_);
foreach(@_)
{
if($_>$t){push @above ,$_};
}
@above;
}
my @fred =&above_average(1 .. 10);
print "\@fred is @fred\n";
print "(Should be 6 7 8 9 10)\n";
my @barney = &above_average(100,1 .. 10);
print "\@barney is @barney\n";
print "(Should be just 100)\n";
- 写一个子程序,名为&above_average,将一列数字作为其参数,返回所有大于平均值的数字(提示:
- 写一个名为 &total 的子程序,返回一列数字的和
- 编写一个程序,最多将10个donation值读入到一个double数组中。程序遇到非数字输入时将结束输入,并报告这些数字的平均值以及数组中有多少个数字大于平均值。
- 返回一个字符串的所有数字
- 输入N个数字,然后将其大于0的数无重复的排序输出
- 将一个字符串中小于0的数字放到左边,大于0的数字放到右边
- 大于零的数字以内的各个数字累加求和,奇数偶数个数,及平均值求解
- 将一个int类型的数字转化为字符串,并判断有无重复字符串(长度应大于等于2)有返回1,无返回0
- 大数乘法。给定两个数字表示为字符串,返回乘数的数字作为一个字符串。
- 把表中一列的所有数字加和
- 输入一个数字,将其倒序输出,并输出其各个位上的乘积
- 输入数字,返回数字代表的字母的所有组合
- PERL语言入门:第四章:子程序(函数):习题1:写一个程序, 求所有参数的和
- 举一个nspredicate来过滤array的例子,给你一个数字组成的NSArray,写一个predicate,将返回数组中的偶数。
- 给定一个整型数组,求数组元素大于等于所有元素平均值的元素个数
- 【C编程练习】2013华为校园招聘机试题目题5:将一个int类型的数字转化为字符串,并判断有无重复字符串(长度应大于2)有返回1,无返回2
- 编写一个名为identity_matrix的函数,他接受一个 10*10整型矩阵为参数,并返回一个布尔值,提示该矩阵是不 是单位矩阵。
- 在文本框中输入一个大于零的数字
- 七夕,你拿什么拯救你的爱人?
- ubuntu 12.04 的源:sources.list :Ubuntu 12.04 Precise Pangolin源更新地址
- 我自己写的atoi(). 字符串转整型.
- rrdtool介绍
- IFrame通过JavaScript进行页面跳向 chrome可以跳转而IE报错
- 写一个子程序,名为&above_average,将一列数字作为其参数,返回所有大于平均值的数字(提示:
- hibernate第二章:关联映射2
- 移动应用程序图片格式
- 雨中飘荡的回忆
- 回调函数原理及实现浅析
- useradd命令使用
- 1.js 获取日期 指定数字按月累计日期!
- mac (基于Unix)终端命令
- Android - Broadcast receiver 作为内部类接受广播