関数プロトタイプ

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

関数プロトタイプ

Delphi

program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;
function max3():Integer; forward;
var

    n1, n2, n3: Integer;
procedure main();

begin

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

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

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

    read(n3);
    Writeln(Format('最も大きい値は%dです。', [max3]));

end;
function max3():Integer;

begin

    result := n1;
    if n2 > result then result := n2;

    if n3 > result then result := n3;

end;
begin

    main;

end.

実行結果

S:\>lesson046\project1.exe

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

整数１：83

整数２：45

整数３：25

最も大きい値は83です。