Re: [問題] 新手問個 perl平均值求法

看板Perl作者 (JK)時間5年前 (2019/11/09 08:06), 編輯推噓1(100)
留言1則, 1人參與, 5年前最新討論串2/3 (看更多)
※ 引述《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://www.ptt.cc/bbs/Perl/M.1573257983.A.556.html

11/09 23:26, 5年前 , 1F
謝謝你 我試試看
11/09 23:26, 1F
文章代碼(AID): #1TnWB_LM (Perl)
文章代碼(AID): #1TnWB_LM (Perl)