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

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

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

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