Re: [問題] 新手問個 perl平均值求法
: 想問各位改如何求出平均值
: 目前學過 標準輸入 迴圈(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://www.ptt.cc/bbs/Perl/M.1573257983.A.556.html
推
11/09 23:26,
5年前
, 1F
11/09 23:26, 1F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 3 篇)：
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
