四則演算の減算

HOME > Programing > Pascal > 四則演算の減算

注意

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

コード

                    program ArithDiff(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(' ', b, ' - ', a, '  = ', b-a);

                        {絶対値を計算します。}
                        if a < b then
                            writeln('|', a, ' - ', b, '| = ', b-a)
                        else
                            writeln('|', a, ' - ', b, '| = ', a-b);
                    end;

                    begin
                        main
                    end.
                

実行結果

                    $ ./CalcArithDiff
                    2つの数の差を計算します。
                    a = 53
                    b = 35
                    53 - 35  = 18
                    35 - 53  = -18
                    |53 - 35| = 18