Re: [问题] 新手问个 perl平均值求法

楼主: jkchang (JK)   2019-11-09 08:06:21
※ 引述《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)
作者: sing10i14 (Lin)   2019-11-09 23:26:00
谢谢你 我试试看

Links booklink

Contact Us: admin [ a t ] ucptt.com