値を返さない関数・仮引数を受け取らない関数

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

値を返さない関数・仮引数を受け取らない関数

Perl

sub max3
{
    $max = $n1;
    $max = $n2  if ($n2 > $max);
    $max = $n3  if ($n3 > $max);

    printf("最も大きい値は%dです。\n", $max);
}

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

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

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

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

&max3;

実行結果

L:\>perl lesson_06_045.pl

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

整数１：83

整数２：45

整数３：25

最も大きい値は83です。