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

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

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

C

#include <stdio.h>

int max3(int x, int y, int z)

{

    int max = x;
    if (y > max) max = y;

    if (z > max) max = z;
    return max;

}

int main(int argc, char* argv[])

{

    int n1, n2, n3;
    puts("３つの整数を入力してください。");
    printf("整数１：");

    scanf("%d", &n1);
    printf("整数２：");

    scanf("%d", &n2);
    printf("整数３：");

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

}

実行結果

R:\>lesson044\project1.exe

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

整数１：83

整数２：45

整数３：25

最も大きい値は83です。

Delphi

program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;
function max3(x: Integer; y: Integer; z: Integer): Integer;

begin

    result := x;
    if y > result then  result := y;

    if z > result then  result := z;

end;
var

    n1, n2, n3: Integer;

begin

    writeln('３つの整数を入力してください。');
    write('整数１：');

    read(n1);
    write('整数２：');

    read(n2);
    write('整数３：');

    read(n3);
    writeln(format('最も大きい値は%dです。', [max3(n1, n2, n3)]));

end.

実行結果

S:\>lesson044\project1.exe

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

整数１：83

整数２：45

整数３：25

最も大きい値は83です。

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です。

Ruby

def max3(x, y, z)
    max = x
    max = y  if (y > max)
    max = z  if (z > max)

    return max
end

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

print "整数１："
n1 = STDIN.gets.chomp.to_i

print "整数２："
n2 = STDIN.gets.chomp.to_i

print "整数３："
n3 = STDIN.gets.chomp.to_i

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

実行結果

L:\>ruby  l:\lesson_06_044.rb

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

整数１：83

整数２：45

整数３：25

最も大きい値は83です。