作者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/m.aspx?n=bbs/Perl/M.1573257983.A.556.html
1F：推 sing10i14: 謝謝你 我試試看 11/09 23:26