×

[PR]この広告は3ヶ月以上更新がないため表示されています。
ホームページを更新後24時間以内に表示されなくなります。

四則演算の引き算

ホーム > 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
			

作成日:2016年9月25日、最終更新日: