型と演算について確認する

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

Delphi



program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;

var

    n1, n2, n3, n4: Integer;

    d1, d2, d3, d4: Double;

begin

    n1 := 5   div 2  ;

//  n2 := 5.0 div 2.0;

//  n3 := 5.0 div 2;

//  n4 := 5   div 2.0;
    d1 := 5   / 2  ;

    d2 := 5.0 / 2.0;

    d3 := 5.0 / 2;

    d4 := 5   / 2.0;
    write(format('n1 = %d'#13#10, [n1]));

//  Write(format('n2 = %d'#13#10, [n2]));

//  Write(format('n3 = %d'#13#10, [n3]));

//  Write(format('n4 = %d'#13#10#13#10, [n4]));
    write(format('d1 = %.6f'#13#10, [d1]));

    write(format('d2 = %.6f'#13#10, [d2]));

    write(format('d3 = %.6f'#13#10, [d3]));

    write(format('d4 = %.6f'#13#10, [d4]));

end.

実行結果



S:\>lesson012\project1.exe

n1 = 2

d1 = 2.500000

d2 = 2.500000

d3 = 2.500000

d4 = 2.500000