四則演算の減算

注意事項

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

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

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

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

ソースコード

• ソースコード

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