四則演算の除算

注意事項

このサイト内で公開していることがらについて

使用や利用によるいかなる損失に対しても責任を負いませんのでご了承ください。

著作物に関する著作権について

原則としてすべて運営者(EponaLab)にあります。

ソースコード

• ソースコード

program ArithDiv(input, output);

procedure main;
var a, b : integer;
begin
    writeln('2つの数の商を計算します。');

    write('a = ');
    readln(a);

    write('b = ');
    readln(b);
    
    writeln(a, ' / ', b, ' = ', a/b);
    writeln(a, ' / ', b, ' = ', a/b:20);
    writeln(a, ' / ', b, ' = ', a/b:20:10);
    writeln(a, ' / ', b, ' = ', a div b);
end;

begin
    main
end.
                

実行結果

$ ./CalcArithDiv
2つの数の商を計算します。
a = 42
b = 5
42 / 5 = 8.39999999999999999965E+0000
42 / 5 = 8.40000000000E+0000
42 / 5 = 8.4000000000
42 / 5 = 8