四則演算の割り算

ホーム > Programing > Pascalコード集 > 四則演算の割り算

注意

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

コード

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
			

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