読み込んだ３つの整数値の合計値と平均値を表示 (キャスト)

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

読み込んだ３つの整数値の合計値と平均値を表示 (キャスト)

Delphi

program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;

var

    na, nb, nc: Integer;

    sum:        Integer;

    avg:        Double;

begin

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

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

    read(nb);
    write('整数Ｃ：');

    read(nc);
    sum := na + nb + nc;

    avg := sum / 3.0;
    write(format('それらの合計は%dです。'#13#10, [sum]));

    write(format('それらの平均は%fです。'#13#10, [avg]));

    write(format('それらの平均は%.1fです。'#13#10, [avg]));

end.

実行結果

S:\>lesson014\project1.exe

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

整数Ａ：87

整数Ｂ：45

整数Ｃ：59

それらの合計は191です。

それらの平均は63.67です。

それらの平均は63.7です。