四則演算の除算

注意

• このサイトの利用によって生じた損害については当方では責任を負いかねますのでご了承ください。

コード

                    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