値を返さない関数・仮引数を受け取らない関数

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

値を返さない関数・仮引数を受け取らない関数

Delphi

program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;
var

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

var

    max: Integer;

begin

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

    if n3 > max then    max := n3;
    writeln(format('最も大きい値は%dです。', [max]));

end;
begin

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

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

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

    read(n3);
    max3;

end.

実行結果

S:\>lesson045\project1.exe

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

整数１：83

整数２：45

整数３：25

最も大きい値は83です。