読み込んだ２つの整数値の大きい方の値を返す関数

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

読み込んだ２つの整数値の大きい方の値を返す関数

C

#include <stdio.h>

int maxof(int x, int y)

{

    return (x > y) ? x : y;

}

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

{

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

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

    scanf("%d", &n2);
    printf("大きいほうの値は%dです。\n", maxof(n1, n2));
    return 0;

}

実行結果

R:\>lesson043\project1.exe

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

整数１：83

整数２：45

大きいほうの値は83です。

Delphi

program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;
function maxof(x: Integer; y: Integer): Integer;

begin

    if x > y then

        result := x

    else

        result := y;

end;
var

    n1, n2: Integer;

begin

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

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

    read(n2);
    writeln(format('大きいほうの値は%dです。', [maxof(n1, n2)]));

end.

実行結果

S:\>lesson043\project1.exe

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

整数１：83

整数２：45

大きいほうの値は83です。

Perl

sub maxof
{
    ($x, $y) = @_;
    return ($x > $y) ? $x : $y;
}
print "２つの整数を入力してください。\n";

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

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

printf("大きいほうの値は%dです。\n", &maxof($n1, $n2));

実行結果

L:\>perl lesson_06_043.pl

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

整数１：83

整数２：45

大きいほうの値は83です。

Ruby

def maxof(x, y)
    return (x > y) ? x : y
end

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

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

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

printf("大きいほうの値は%dです。\n", maxof(n1, n2))

実行結果

L:\>ruby  l:\lesson_06_043.rb

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

整数１：83

整数２：45

大きいほうの値は83です。