最大、最小、平均

数値データの最大、最小、平均を求める

プログラム

プログラムは以下のように単純です。エディタを開き以下をタイプして、適当な名前でセーブしてください。ここでは max.pl という名前でセーブしたことにして話を進めます。

$min = 0;
$max = 0;
$sum = 0;
while(<%gt;) {
	s/[\r\n]//g;

	if ( $. == 1 ) {
		$min = $_;
		$max = $_;
	}

	$sum = $sum + $_;

	if ( $_ < $min ) {
		$min = $_;
	}
		
	if ( $_ > $max ) {
		$max = $_;
	}
}
printf( "MAX = %f:MIN = %f:AVERAGE = %f\n", $max, $min, $sum /$. );
exit;

入力データ

入力データは、数値データならなんでも大丈夫です。以下のようなファイルが dat4.txt として存在するとします。

実行結果

OSはWindowsを利用していると仮定します。 DOS prompt 上で、

c:\perl> perl max.pl dat4.txt

とタイプします。

MAX = 178.500000:MIN = 162.400000:AVERAGE = 169.675000

と出力されるはずです。

メニューに戻る

TKENSAKU top へ