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

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

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

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