読み込んだ２つの整数値の平均値を実数で表示 (キャスト)

明解Ｃ言語 入門編 > 2. 演算と型 >

読み込んだ２つの整数値の平均値を実数で表示 (キャスト)

Delphi

program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;

var

    vx, vy: Integer;

begin

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

    read(vx);
    write('整数Ｂ：');

    read(vy);
    write(format('それらの平均は%dです。'#13#10, [(vx + vy) div 2]));

    write(format('それらの平均は%.6fです。'#13#10, [(vx + vy) / 2.0]));

end.

実行結果

S:\>lesson013\project1.exe

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

整数Ａ：40

整数Ｂ：45

それらの平均は42です。

それらの平均は42.500000です。