読み込んだ３つの整数値の最大値を返す関数

明解Ｃ言語 入門編 > 6. 関数 >

読み込んだ３つの整数値の最大値を返す関数

Perl

sub max3
{
    ($x, $y, $z) = @_;

    $max = $x;
    $max = $y  if ($y > $max);
    $max = $z  if ($z > $max);

    return $max;
}

print "３つの整数を入力してください。\n";

print "整数１：";
chomp($n1 = <>);

print "整数２：";
chomp($n2 = <>);

print "整数３：";
chomp($n3 = <>);

printf("最も大きい値は%dです。\n", &max3($n1, $n2, $n3));

実行結果

L:\>perl lesson_06_044.pl

３つの整数を入力してください。

整数１：83

整数２：45

整数３：25

最も大きい値は83です。