作者jkchang (JK)
看板Perl
标题Re: [问题] 新手问个 perl平均值求法
时间Sat Nov 9 08:06:21 2019
※ 引述《sing10i14 (Lin)》之铭言：
: https://i.imgur.com/wdZSMEO.jpg
: 想问各位改如何求出平均值
: 目前学过 标准输入 回圈(for) 阵列(array)
: 分割(split) 随机数字(rand)
: 想问各位改如何解题
: 最大值跟最小值已经解出来了
: 谢谢大家
这样可以吗?
#!/usr/bin/perl
print "Please input number:";
chomp($input = <STDIN>);
@nums = split /,/, $input;
@sorted_nums = sort {$a <=> $b} @nums;
printf "Max=%d Min=%d\n", $sorted_nums[$#num], $sorted_nums[0];
foreach (@sorted_nums) {
$sum += $_;
}
printf "avg=%.1f\n", $sum / ($
#sorted_nums + 1)
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 203.67.167.133 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Perl/M.1573257983.A.556.html
1F：推 sing10i14: 谢谢你 我试试看 11/09 23:26